diff -urN old/PRTI/bin/compare.pl new/PRTI/bin/compare.pl --- old/PRTI/bin/compare.pl 2007-07-02 13:21:50.082436800 +0700 +++ new/PRTI/bin/compare.pl 2007-07-09 14:28:06.405292500 +0700 @@ -238,7 +238,7 @@ for (my $i = 1; $i <= $#$results; $i++) { my $previous_result = $$results[$i]; my $threshold = sprintf("%.4f", $previous_result->{'rate'} / 100 * $regression_percent); - $is_regression = $metric_greater_better ? ($previous_result->{'rate'} - $most_recent_result->{'rate'} >= $threshold) : ($most_recent_result->{'rate'} - $previous_result->{'rate'} >= $threshold); + $is_regression = $metric_greater_better ? ($previous_result->{'rate'} - $most_recent_result->{'rate'} > $threshold) : ($most_recent_result->{'rate'} - $previous_result->{'rate'} > $threshold); if ($is_regression) { $actual_percent = sprintf("%.2f", abs($most_recent_result->{'rate'} / $previous_result->{'rate'} - 1) * 100); diff -urN old/PRTI/bin/reporter.pm new/PRTI/bin/reporter.pm --- old/PRTI/bin/reporter.pm 2007-07-02 13:25:18.231740800 +0700 +++ new/PRTI/bin/reporter.pm 2007-07-09 14:10:26.156899900 +0700 @@ -141,8 +141,8 @@ $regressions->{'suites'}{$suite}{'tests'}{$test}{'error'} END } else { - my $rate_worst = sprintf("%.3f", $regressions->{'suites'}{$suite}{'tests'}{$test}{'rate_worst'}); - my $rate_best = sprintf("%.3f", $regressions->{'suites'}{$suite}{'tests'}{$test}{'rate_best'}); + my $rate_worst = sprintf("%.4f", $regressions->{'suites'}{$suite}{'tests'}{$test}{'rate_worst'}); + my $rate_best = sprintf("%.4f", $regressions->{'suites'}{$suite}{'tests'}{$test}{'rate_best'}); my $percent = $regressions->{'suites'}{$suite}{'tests'}{$test}{'actual_percent'}; my $date_worst = $regressions->{'suites'}{$suite}{'tests'}{$test}{'date_worst'}; my $date_best = $regressions->{'suites'}{$suite}{'tests'}{$test}{'date_best'};