Can now set absolute or relative tolerance for all runs ... need to work out

still how to get to this menu in other cases and how to add this information
to the end summary, and whether a testsuite should be able to set it's tolerance itself etc.


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

1 files changed, 29 insertions, 5 deletions

diff --git a/lib/sbin/RunTest.pl b/lib/sbin/RunTest.pl
index 8e5b814c..43699eb3 100644
--- a/lib/sbin/RunTest.pl
+++ b/lib/sbin/RunTest.pl
@@ -120,13 +120,37 @@ while ($choice !~ /^Q/i)
       print "  Options for customization\n";
       if ($test)
       {
-	print "    Change tolerance for this run ($test) [R]\n";
+	while ($choice !~ /^[AR]/i)
+	{
+	  print "    Change absolute tolerance for this run ($test) [A]\n";
+	  print "    Change relative tolerance for this run ($test) [R]\n";
+	  $choice = &defprompt("  Select choice: ","");
+	  if ($choice =~ /A/i)
+	  {
+	    $runconfig{"$thorn $test ABSTOL"} = &defprompt("  New absolute tolerance: ","$runconfig{\"$thorn $test ABSTOL\"}");
+	  }
+	  elsif ($choice =~ /R/i)
+	  {
+	    $runconfig{"$thorn $test RELTOL"} = &defprompt("  New relative tolerance: ","$runconfig{\"$thorn $test RELTOL\"}");
+	  }
+	}
       }
-      print "    Change tolerance from $rundata->{\"TOLERANCE\"} for all further runs [T]\n";
-      $choice = &defprompt("  Select choice: ","");
-      if ($choice =~ /T/i)
+      else
       {
-	$rundata->{"TOLERANCE"} = &defprompt("  New tolerance: ","$rundata->{\"TOLERANCE\"}");
+	while ($choice !~ /^[AR]/i)
+	{
+	  print "    Change absolute tolerance from $runconfig{\"ABSTOL\"} for all further runs [A]\n";
+	  print "    Change relative tolerance from $runconfig{\"RELTOL\"} for all further runs [R]\n";
+	  $choice = &defprompt("  Select choice: ","");
+	  if ($choice =~ /^A/i)
+	  {
+	    $runconfig{"ABSTOL"} = &defprompt("  New absolute tolerance: ","$runconfig{\"ABSTOL\"}");
+	  }
+	  elsif ($choice =~ /^R/i)
+	  {
+	    $runconfig{"RELTOL"} = &defprompt("  New relative tolerance: ","$runconfig{\"RELTOL\"}");
+	  }
+	}
       }
     }
     elsif ($choice =~ /^Q/i)