Changeset 52f5a58 in git for Tst

Timestamp:

Sep 25, 2011, 8:32:06 PM (13 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

94247563c0a457265fa75e6855cb41bf4fff3a39

Parents:

3de3f9ab13ec9653869bd4238e04e07baef77aec

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2011-09-25 20:32:06+02:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 16:13:29+01:00

Message:

FIX: regress.cmd should handle pathes better (e.g. trim leading "\s*./")

File:

• Tst/regress.cmd (modified) (3 diffs)

Tst/regress.cmd

@@ -1045 +1045 @@
 foreach (@ARGV)
 {
+  if( /^([^:]*): *(.*)$/ )
+  {
+    $_=$2;
+  }
+
+  if ( /^\s*([^ ].*)$/ )
+  {
+    $_ = $1;
+  }  
+  
+  if ( /^\.\/(.*)$/ )
+  {
+    $_ = $1;
+  }
+
   $test_file = $_;
 
   tcLog("test_file: $test_file");
-  
+
   if ( /^(.*)\.([^\.\/]*)$/ )
   {
     $_ = $1;
     $extension = $2;
-  }
+  } else
+  {
+    print ("Wrong input: [$_] has no extension!");
+    tcWarn("Wrong input: [$_] has no extension!");
+    next;
+  }
+    
+  
+    
+    
 
   if ( /^(.*)\/([^\/]*)$/ )
@@ -1100 +1124 @@
         next;
       }
+  if( /^([^:]*): *(.*)$/ )
+  {
+    $_=$2;
+  }
+
+  if ( /^\s*([^\s].*)$/ )
+  {
+    $_ = $1;
+  }  
+  
+  if ( /^\.\/(.*)$/ )
+  {
+    $_ = $1;
+  }
+        
       next if (/^\s*$/); #ignore whitespaced lines
       chop if (/\n$/);   #chop of \n
@@ -1113 +1152 @@
         $test_file = $_;
       }
+
+      $test_file =~ s/^[ ]*\.\///;