diff options
| author | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2003-10-13 17:24:29 +0000 |
|---|---|---|
| committer | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2003-10-13 17:24:29 +0000 |
| commit | 456924d5fd062dcc075121903fa0edf604cfc73d (patch) | |
| tree | 3e24fcbcd25278ce139c40879392d88af706c1f0 /lib/sbin/RunTestUtils.pl | |
| parent | b7d73f8884bf0569ec220277a85e66a8454ead76 (diff) | |
Offer to display test case results with gnuplot as well.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3430 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/RunTestUtils.pl')
| -rw-r--r-- | lib/sbin/RunTestUtils.pl | 27 |
1 files changed, 22 insertions, 5 deletions
diff --git a/lib/sbin/RunTestUtils.pl b/lib/sbin/RunTestUtils.pl index d68e1eaa..964ddf41 100644 --- a/lib/sbin/RunTestUtils.pl +++ b/lib/sbin/RunTestUtils.pl @@ -1389,8 +1389,8 @@ sub ViewResults while ($myfile !~ /^[c]/i && $choice !~ /^[c]/i) { - print " File $myfiles[$myfile] of test $test for thorn $thorn\n"; - $choice = &defprompt(" Choose action [l]ist, [d]iff, [g]raph, [c]ontinue","c"); + print " File $myfiles[$myfile] of test $test for thorn $thorn\n"; + $choice = &defprompt(" Choose action [l]ist, [d]iff, [x]graph, [y]graph, [g]nuplot, [c]ontinue","c"); if ($choice =~ /^l/i) { @@ -1415,15 +1415,32 @@ sub ViewResults elsif ($choice =~ /^d/i) { print "\n Performing diff on <archive> <test>\n\n"; - $command = " diff $testdata->{\"$thorn TESTSDIR\"}/$test/$myfiles[$myfile] $testdata->{\"$thorn $test TESTOUTPUTDIR\"}/$myfiles[$myfile]\n"; + $command = "diff $testdata->{\"$thorn TESTSDIR\"}/$test/$myfiles[$myfile] $testdata->{\"$thorn $test TESTOUTPUTDIR\"}/$myfiles[$myfile]\n"; print "$command\n\n"; system($command); print "\n"; } + elsif ($choice =~ /^x/i) + { + print " xgraph <archive> <test>\n\n"; + $command = "xgraph $testdata->{\"$thorn TESTSDIR\"}/$test/$myfiles[$myfile] $testdata->{\"$thorn $test TESTOUTPUTDIR\"}/$myfiles[$myfile] &\n"; + print " $command\n"; + system($command); + } + elsif ($choice =~ /^y/i) + { + print " ygraph <archive> <test>\n\n"; + $command = "ygraph $testdata->{\"$thorn TESTSDIR\"}/$test/$myfiles[$myfile] $testdata->{\"$thorn $test TESTOUTPUTDIR\"}/$myfiles[$myfile] &\n"; + print " $command\n"; + system($command); + } elsif ($choice =~ /^g/i) { - print " Xgraph <archive> <test>\n\n"; - $command = " xgraph $testdata->{\"$thorn TESTSDIR\"}/$test/$myfiles[$myfile] $testdata->{\"$thorn $test TESTOUTPUTDIR\"}/$myfiles[$myfile] &\n"; + print " gnuplot <archive> <test>\n\n"; + $command = ("gnuplot -persist <<EOF\n" + . "set grid\n" + . "plot \"$testdata->{\"$thorn TESTSDIR\"}/$test/$myfiles[$myfile]\" w lp, \"$testdata->{\"$thorn $test TESTOUTPUTDIR\"}/$myfiles[$myfile]\" w lp\n" + . "EOF"); print " $command\n"; system($command); } |