Test checking technology using configuration directories

Cactus/154


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

1 files changed, 6 insertions, 3 deletions

diff --git a/lib/sbin/Runtest.pl b/lib/sbin/Runtest.pl
index f83421e3..375775df 100644
--- a/lib/sbin/Runtest.pl
+++ b/lib/sbin/Runtest.pl
@@ -266,8 +266,12 @@ else
 sub runtest {
     my ($inpf,$inthorn,$num) = @_;
 
+    # File name from thorn
     $inpf = "arrangements/$inthorn/test/$inpf";
-    $tsttop = ".${sep}TEST";
+
+    # Directory for output
+    $tsttop = ".${sep}TEST${sep}$config";
+    mkdir (TEST,0755);
     mkdir ($tsttop,0755);
 
     $tp = $inpf;
@@ -300,7 +304,7 @@ sub runtest {
     close LOG;
     close CMD;
     
-    chdir ("..");
+    chdir ("../..");
    
     $retcode = $? >> 8 if($retcode==0);
 
@@ -317,7 +321,6 @@ sub runtest {
     $indir = $inpf;
     $indir =~ s:.par:${sep}:g;
     @oldout = <$indir${sep}*.*l>;
-
     $blewit = 0;
     $reallyblewit = 0;
     $nfiles = 0;