test_relative_difference или что-нибудь в этом духе? И, понятно, $percentage хотелось бы задавать.<div><br><div class="gmail_quote">26 октября 2011 г. 12:31 пользователь Nikolay Mishin <span dir="ltr"><<a href="mailto:mi@ya.ru">mi@ya.ru</a>></span> написал:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">Moscow-pm, Hi<br>
<br>
как вам такая реализация?<br>
use 5.01;<br>
use Test::More qw/no_plan/;<br>
use POSIX;<br>
my $calc_value = 22;<br>
my $orig_value = 23;<br>
my $persent    = 10;      #%<br>
my $message    = 'BIG_SYSTEM';<br>
<br>
test_10_persent( $calc_value, $orig_value, $persent, $message );<br>
<br>
#test if bigger or lower not lower then 10%<br>
sub test_10_persent {<br>
    my ( $calc_value, $orig_value, $persent, $message ) = @_;<br>
<br>
    if ( $calc_value >= $orig_value ) {<br>
        cmp_ok( $calc_value, '>=', $orig_value,<br>
            $message . " $calc_value >= $orig_value " );<br>
    }<br>
    else {<br>
        my $cal_persent =<br>
          floor( abs( ( ( $calc_value - $orig_value ) / $orig_value ) * 100 ) );<br>
        cmp_ok( $cal_persent, '<=', $persent,<br>
            $message . " $calc_value <= $orig_value but not lower then 10 %" );<br>
    }<br>
}<br>
<br>
<br>
--<br>
Nikolay Mishin<br>
<font color="#888888">--<br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
</font></blockquote></div><br></div>