diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-05-23 19:54:22 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-05-23 19:54:22 +0000 |
| commit | adcd24c9f3a6d9b466f838ab64fc55d7d21d6700 (patch) | |
| tree | 4ad97a03d7665e8c4fc42aa169e2b95b86e1d437 /lib/sbin/RunTestUtils.pl | |
| parent | 4786106eae970847962eeabf6d42eb718a277a45 (diff) | |
Initialising some database entries in a different place
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2855 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/RunTestUtils.pl')
| -rw-r--r-- | lib/sbin/RunTestUtils.pl | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lib/sbin/RunTestUtils.pl b/lib/sbin/RunTestUtils.pl index d08be244..d4ea8eea 100644 --- a/lib/sbin/RunTestUtils.pl +++ b/lib/sbin/RunTestUtils.pl @@ -812,18 +812,18 @@ sub CompareTestFiles $newfile = "$test_dir$sep$file"; $oldfile = "$testdata->{\"$inthorn TESTSDIR\"}${sep}${test}${sep}$file"; + $rundata->{"$inthorn $test $file NINF"}=0; + $rundata->{"$inthorn $test $file NNAN"}=0; + $rundata->{"$inthorn $test $file NINFNOTFOUND"}=0; + $rundata->{"$inthorn $test $file NNANNOTFOUND"}=0; + $rundata->{"$inthorn $test $file NFAILSTRONG"}=0; + $rundata->{"$inthorn $test $file NFAILWEAK"}=0; + if ( -e $newfile && -s $newfile && -s $oldfile) { open (INORIG, "<$oldfile") || print "Warning: Archive file $oldfile not found"; open (INNEW, "<$newfile") || print "Warning: Test file $newfile not found"; - - $rundata->{"$inthorn $test $file NINF"}=0; - $rundata->{"$inthorn $test $file NNAN"}=0; - $rundata->{"$inthorn $test $file NINFNOTFOUND"}=0; - $rundata->{"$inthorn $test $file NNANNOTFOUND"}=0; - $rundata->{"$inthorn $test $file NFAILSTRONG"}=0; - $rundata->{"$inthorn $test $file NFAILWEAK"}=0; - + undef(@maxdiff); undef(@diffvals); undef(@oldvals); @@ -836,7 +836,7 @@ sub CompareTestFiles { $nline = <INNEW>; - next if (($oline =~ /^[\"\#]/) && ($nline =~ /^[\"\#]/)); + next if (($oline =~ /^\s*["\#]/) && ($nline =~ /^\s*["\#]/)); $numlines++; # Now lets see if they differ. |