Fixed bug in last commit, and added ability to run all testsuites for a

chosen thorn (not for an arrangement yet).


git-svn-id: http://svn.cactuscode.org/flesh/trunk@2718 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 12 insertions, 5 deletions

diff --git a/lib/sbin/RunTest.pl b/lib/sbin/RunTest.pl
index a317d277..9a7a7827 100644
--- a/lib/sbin/RunTest.pl
+++ b/lib/sbin/RunTest.pl
@@ -78,7 +78,7 @@ while ($choice !~ /^Q/i)
 	{
 	  print "  Test $thorn: $test \n";
 	  print "    \"$testdata{\"$thorn $test DESC\"}\"\n";
-	  if ($choice =~ /^O/i)
+	  if ($choice !~ /^O/i)
 	  {
 	    %testdata = &RunTest($test,$thorn,%testdata);
 	  }
@@ -91,15 +91,22 @@ while ($choice !~ /^Q/i)
     } 
     elsif ($choice =~ /^[AT]/i)
     {
-      ($test,$thorn) = &ChooseTest($choice,%testdata);
-      %testdata = &RunTest($test,$thorn,%testdata);
-      %testdata = &CompareTestFiles($test,$thorn,%testdata);
+      ($ntests,@tests) = &ChooseTest($choice,%testdata);
+      for ($i=0;$i<$ntests;$i++)
+      {
+	$test  = $tests[2*$i];
+	$thorn = $tests[2*$i+1];
+	print "  Test $thorn: $test\n";
+	print "    \"$testdata{\"$thorn $test DESC\"}\"\n";
+	%testdata = &RunTest($tests[2*$i],$tests[2*$i+1],%testdata);
+	%testdata = &CompareTestFiles($tests[2*$i],$tests[2*$i+1],%testdata);
+      }
     }
     elsif ($choice =~ /^R/i)
     {
       if ($thorn && $test)
       {
-	print "  Running $thorn: $test \n";
+	print "  Test $thorn: $test \n";
 	print "    \"$testdata{\"$thorn $test DESC\"}\"\n";
 	%testdata = &RunTest($test,$thorn,%testdata);
 	%testdata = &CompareTestFiles($test,$thorn,%testdata);