diff options
author | rideout <rideout@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-10-01 07:02:44 +0000 |
---|---|---|
committer | rideout <rideout@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-10-01 07:02:44 +0000 |
commit | c8ef83132b5daef8506da1126bcfb6bb4a2ec65a (patch) | |
tree | cefba36cbc81e08aff2d920d32f35bde087d096a | |
parent | 66136beb3f0c80afd7cd3efacbfe9e17f8985e6e (diff) |
hack which fixes a bug which caused all tests to pass
unconditionally. (The bug was that the old directory name was not
prepended to the old file name, so that the loop starting with
while ($oline = <INORIG>)
was never executed.)
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2388 17b73243-c579-4c4c-a9d2-2d5706c11dac
-rw-r--r-- | lib/sbin/Runtest.pl | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/lib/sbin/Runtest.pl b/lib/sbin/Runtest.pl index 5f4f034c..75f5755d 100644 --- a/lib/sbin/Runtest.pl +++ b/lib/sbin/Runtest.pl @@ -151,7 +151,7 @@ foreach $t (@testfiles) $processing_active = 0; - # Give a default test name in case non is specified in the parameter file. + # Give a default test name in case none are specified in the parameter file. $testnames{$ntests} = "$testthorns[$ntests]/test/$t"; while (<IN>) @@ -469,6 +469,9 @@ sub runtest $indir =~ s:\.par$:${sep}:g; opendir (DIR, $indir); @oldout = grep (/\..+l$/, readdir (DIR)); +#print STDERR "\nindir is $indir\n"; #readdir is :",readdir(DIR),":\n"; +#print STDERR "oldout[0] == @oldout[0]\n"; + closedir (DIR); $blewit = 0; $reallyblewit = 0; @@ -481,26 +484,36 @@ sub runtest foreach $file (@oldout) { + + $file="$indir$file"; + $nfiles ++; $newfile = $file; $newfile =~ s:^.*${sep}([^${sep}]+)$:$1:; $newfile = "$tsttop$sep$tp$sep$newfile"; - # print "Comparing $file with $newfile\n"; + #print STDERR "Comparing :${file}: with :${newfile}:\n"; if ( -e $newfile) { + + #print STDERR "*************** -e :${newfile}:!\n"; + #if (-e $file) {print "************** file exists\n";} + open (INORIG, "<$file"); open (INNEW, "<$newfile"); $nblow = 0; $nrealblow = 0; while ($oline = <INORIG>) { + #print STDERR "***************** got oline = :${oline}:\n"; + $nline = <INNEW>; # Now lets see if they differ. if (!($nline eq $oline)) { # Check against nans + #print STDERR "*************** Looking for nans...........\n\a\a\a"; if ($nline =~ /nan/i) { print "****CAUGHT NAN in $newfile****\n"; |