diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-04-24 13:34:04 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-04-24 13:34:04 +0000 |
commit | f567c5fc3750c0161d88f461e807139a0014cf30 (patch) | |
tree | b12f11b2e7829531802816063c3c710460199a03 /lib/sbin/RunTest.pl | |
parent | da2f1dd9580d1aa0ba9213652614caf89e1dbf78 (diff) |
Sorted out referencing a bit better, hopefully removes problem with a /%
with a couple of people saw ...
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2749 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/RunTest.pl')
-rw-r--r-- | lib/sbin/RunTest.pl | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/lib/sbin/RunTest.pl b/lib/sbin/RunTest.pl index 43699eb3..a3fbca83 100644 --- a/lib/sbin/RunTest.pl +++ b/lib/sbin/RunTest.pl @@ -56,7 +56,7 @@ while ($choice !~ /^Q/i) { # Reset/Initialise Test Statistics - \%rundata = &ResetTestStatistics(\%rundata,%testdata); + $rundata = &ResetTestStatistics($rundata,%testdata); # Run all parameter files foreach $thorn (split(" ",$testdata{"RUNNABLETHORNS"})) @@ -70,17 +70,17 @@ while ($choice !~ /^Q/i) { %testdata = &RunTest($test,$thorn,\%config_data,%testdata); } - %rundata = &CompareTestFiles($test,$thorn,\%runconfig,\%rundata,\%config_data,%testdata); - %rundata = &ReportOnTest($test,$thorn,\%rundata,%testdata); + $rundata = &CompareTestFiles($test,$thorn,\%runconfig,$rundata,\%config_data,%testdata); + $rundata = &ReportOnTest($test,$thorn,$rundata,%testdata); if ($choice =~ /^I/i) { - &ViewResults($test,$thorn,\%runconfig,\%rundata,%testdata); + &ViewResults($test,$thorn,\%runconfig,$rundata,%testdata); } } } # Write results of all tests - &WriteFullResults(\%rundata,%testdata); + &WriteFullResults($rundata,%testdata); } elsif ($choice =~ /^[AT]/i) { @@ -93,9 +93,9 @@ while ($choice !~ /^Q/i) print " Test $thorn: $test\n"; print " \"$testdata{\"$thorn $test DESC\"}\"\n"; %testdata = &RunTest($tests[2*$i],$tests[2*$i+1],\%config_data,%testdata); - %rundata = &CompareTestFiles($tests[2*$i],$tests[2*$i+1],\%runconfig,\%rundata,\%config_data,%testdata); - %rundata = &ReportOnTest($tests[2*$i],$tests[2*$i+1],\%rundata,%testdata); - &ViewResults($tests[2*$i],$tests[2*$i+1],\%runconfig,\%rundata,%testdata); + $rundata = &CompareTestFiles($tests[2*$i],$tests[2*$i+1],\%runconfig,$rundata,\%config_data,%testdata); + $rundata = &ReportOnTest($tests[2*$i],$tests[2*$i+1],$rundata,%testdata); + &ViewResults($tests[2*$i],$tests[2*$i+1],\%runconfig,$rundata,%testdata); } } elsif ($choice =~ /^R/i) @@ -106,9 +106,9 @@ while ($choice !~ /^Q/i) print " Test $thorn: $test \n"; print " \"$testdata{\"$thorn $test DESC\"}\"\n"; %testdata = &RunTest($test,$thorn,\%config_data,%testdata); - %rundata = &CompareTestFiles($test,$thorn,\%runconfig,\%rundata,\%config_data,%testdata); - %rundata = &ReportOnTest($test,$thorn,,\%rundata,%testdata); - &ViewResults($test,$thorn,\%runconfig,\%rundata,%testdata); + $rundata = &CompareTestFiles($test,$thorn,\%runconfig,$rundata,\%config_data,%testdata); + $rundata = &ReportOnTest($test,$thorn,,$rundata,%testdata); + &ViewResults($test,$thorn,\%runconfig,$rundata,%testdata); } else { |