core
/
eccodes
mirror of https://github.com/ecmwf/eccodes.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Improved number comparison script to print 1st difference

This commit is contained in:
Shahram Najm 2014-08-14 11:37:47 +01:00
parent a2f885b290
commit dc017c92bc
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tests/number_compare.pl
View File

@ -12,7 +12,8 @@
# #
# It exits with status 0 if the files are considered the same # It exits with status 0 if the files are considered the same
# otherwise status is 1. # otherwise status is 1.
# The actual differences are NOT printed #
# Only the first difference is printed
# #
######################################################################## ########################################################################
@ -36,6 +37,7 @@ die "$!" unless (-e $fileA && -e $fileB);
#print "DEBUG: f1=$fileA, f2=$fileB, tol=$tolerance\n"; #print "DEBUG: f1=$fileA, f2=$fileB, tol=$tolerance\n";
my $line_num=1;
use File::Compare 'cmp'; use File::Compare 'cmp';
sub munge($) { sub munge($) {
@ -49,7 +51,19 @@ sub munge($) {
my $delta = $tolerance; my $delta = $tolerance;
if (not cmp($fileA, $fileB, sub {abs(munge $_[0] - munge $_[1])>$delta} )) if (not cmp($fileA, $fileB, sub {
my $arg1 = munge $_[0];
my $arg2 = munge $_[1];
#print "Line $line_num: Comparing $arg1 with $arg2 ...\n";
my $result = (abs($arg1 - $arg2) > $delta);
if ($result) {
print "Line $line_num differs: [$arg1] <=> [$arg2]\n";
print "Absolute error = ". abs($arg1 - $arg2) . "\n";
}
++$line_num;
return $result;
# abs(munge $_[0] - munge $_[1])>$delta
} ))
{ {
#print "FLOAT: fileA and fileB are considered the same. HOORA\n"; #print "FLOAT: fileA and fileB are considered the same. HOORA\n";
exit 0; exit 0;