implement per-variable tolerances for Cactus testsuites, for long discussion, see ET ticket #114

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

1 files changed, 14 insertions, 2 deletions

diff --git a/lib/sbin/RunTest.pl b/lib/sbin/RunTest.pl
index c1b23021..2a36e635 100644
--- a/lib/sbin/RunTest.pl
+++ b/lib/sbin/RunTest.pl
@@ -80,6 +80,7 @@ while ($choice !~ /^Q/i)
     print "  Choose test from [T]horn or [A]rrangement\n";
     print "  Rerun previous test [R]\n";
     print "  Rerun previous test and show run output on screen [S]\n";
+    print "  Print tolerance table for data in previous test [P]\n";
     print "  Compare all files in the test output directories [O]\n";
     print "  Customize testsuite checking [C]\n";
     print "  Quit [Q]\n\n";
@@ -171,6 +172,17 @@ while ($choice !~ /^Q/i)
 	print "  No previous test has been run\n";
       }
     }
+    elsif ($choice =~ /^P/i)
+    {
+      if ($thorn && $test)
+      {
+        &PrintToleranceTable($test,$thorn,$testdata,\%runconfig);
+      }
+      else
+      {
+	print "  No previous test has been run\n";
+      }
+    }
     elsif ($choice =~ /^C/i)
     {
       print "  Options for customization\n";
@@ -183,11 +195,11 @@ while ($choice !~ /^Q/i)
 	  $choice = &defprompt("  Select choice: ","");
 	  if ($choice =~ /A/i)
 	  {
-	    $runconfig{"$thorn $test ABSTOL"} = &defprompt("  New absolute tolerance: ","$runconfig{\"$thorn $test ABSTOL\"}");
+	    $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\"}");
+	    $runconfig{"$thorn $test RELTOL"}{".*"} = &defprompt("  New relative tolerance: ","$runconfig{\"$thorn $test RELTOL\"}{\".*\"}");
 	  }
 	}
       }