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

Added new script for number comparison

This commit is contained in:
Shahram Najm 2014-08-08 11:03:08 +01:00
parent 7fbf493d5a
commit 72db474c84
3 changed files with 89 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/Makefile.am
View File

@ -9,7 +9,8 @@ TESTS = definitions.sh \
bitmap.sh list.sh second_order.sh \
multi_from_message.sh change_scanning.sh \
julian.sh statistics.sh tigge.sh tigge_conversions.sh \
read_any.sh padding.sh lamb_az_eq_area.sh grib_to_netcdf.sh bufrdc_ref.sh bufr_dump.sh debug.sh $(JPEG_TEST)
read_any.sh padding.sh lamb_az_eq_area.sh grib_to_netcdf.sh \
bufrdc_ref.sh bufr_dump.sh debug.sh $(JPEG_TEST)
noinst_PROGRAMS = packing_check gauss_sub read_any double_cmp packing pack_unpack \
multi_from_message julian read_index index gribex_perf\
@ -37,5 +38,5 @@ LDADD = $(top_builddir)/src/libgrib_api.la $(EMOS_LIB)
INCLUDES = -I$(top_builddir)/src
EXTRA_DIST = $(TESTS) mf.rules filter_rules include.sh include.ctest.sh.in \
lamb_az_eq_area.ref CMakeLists.txt
lamb_az_eq_area.ref CMakeLists.txt number_compare.pl

3
tests/bufrdc_ref.sh
View File

@ -30,7 +30,8 @@ do
${tools_dir}bufr_filter bufrdc_ref.filter $file 2> $REDIRECT > $res_num
# Cannot use plain diff. We need to compare FLOAT NUMBERS with a tolerance
numdiff $ref_num $res_num >$REDIRECT
#numdiff $ref_num $res_num >$REDIRECT
perl number_compare.pl $ref_num $res_num >$REDIRECT 2> $REDIRECT
rm -f $res_num

84
tests/number_compare.pl Executable file
View File

@ -0,0 +1,84 @@
#!/usr/local/bin/perl
eval 'exec perl -S $0 "$@"'
if $runnning_under_some_shell;
########################################################################
#
# Simple program to emulate numdiff
# It compares two files which must have the same number of lines
# ignoring small numeric differences or/and different numeric formats
#
# The user can specify an absolute tolerance for the comparisons
#
# It exits with status 0 if the files are considered the same
# otherwise status is 1.
# The actual differences are NOT printed
#
########################################################################
use strict;
use File::Compare;
use Getopt::Long;
# Process arguments. Must be at least two files
if (scalar @ARGV < 2) {
&usage;
}
# Tolerance is optional
my $tolerance = 0.0000000000001;
my $result = GetOptions (
"t=s" => \$tolerance
);
my $fileA = $ARGV[0];
my $fileB = $ARGV[1];
die "$!" unless (-e $fileA && -e $fileB);
#print "DEBUG: f1=$fileA, f2=$fileB, tol=$tolerance\n";
use File::Compare 'cmp';
sub munge($) {
my $line = $_[0];
for ($line) {
s/^\s+//; # Trim leading whitespace.
s/\s+$//; # Trim trailing whitespace.
}
return ($line);
}
my $delta = $tolerance;
if (not cmp($fileA, $fileB, sub {abs(munge $_[0] - munge $_[1])>$delta} ))
{
#print "FLOAT: fileA and fileB are considered the same. HOORA\n";
exit 0;
}
# Comparison failed. Check if the files have different number of lines
my $linesA = 0;
my $linesB = 0;
open (FILE, $fileA) or die "Can't open $fileA: $!";
$linesA++ while (<FILE>);
close FILE;
open (FILE, $fileB) or die "Can't open $fileB: $!";
$linesB++ while (<FILE>);
close FILE;
if ($linesA != $linesB) {
print STDERR "Files do not have the same number of lines\n";
}
exit 1; # Files considered different
###################################################
sub usage {
print <<USAGE;
Usage: $0 [-t tolerance] file1 file2
USAGE
exit 1
}