Changeset 663baa in git

Timestamp:

Jul 28, 2009, 12:39:05 PM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

1f3a1b8c5d19502f1e5edf853b7db2d835ef2e5c

Parents:

3f4e526e3cc452dc07c10ec2049456a441cf11d8

Message:

*hannes: nightly builds fail


git-svn-id: file:///usr/local/Singular/svn/trunk@12025 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

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

Tst/regress.cmd

@@ -2 +2 @@
 
 #################################################################
-# $Id: regress.cmd,v 1.41 2009-07-27 19:31:16 motsak Exp $
+# $Id: regress.cmd,v 1.42 2009-07-28 10:39:05 Singular Exp $
 # FILE:    regress.cmd
 # PURPOSE: Script which runs regress test of Singular
@@ -717 +717 @@
 }
 
-sub file_check
-{
-  local($t)= $_[0];
-  print( "Processing: $t\n");
+
+# now do the work
+foreach (@ARGV)
+{
 
   if ( /^(.*)\.([^\.\/]*)$/ )
@@ -732 +732 @@
     $path = $1;
     $base = $2;
-
-    local($pwd);
-    chop($pwd=`pwd`);
-
     chdir($path);
     print "cd $path\n" if ($verbosity > 2);
@@ -753 +749 @@
   elsif ($extension eq "lst")
   {
+    
     if (! open(LST_FILE, "<$file"))
     {
@@ -766 +763 @@
       if (/^;/)          # ignore lines starting with ;
       {
-          print unless ($verbosity == 0);
+        print unless ($verbosity == 0);
         next;
       }
       next if (/^\s*$/); #ignore whitespaced lines
-      chop;   #chop of \n
-
-      $t = $_;
-
-      if ( /^(.*)\.([^\.\/]*)$/ )
-      {
-        $_ = $1; # chop of extension
-
-        if( $2 eq "lst")
-        {
-          print("going... recursive into: $t!\n");
-          file_check("$t");
-          next;
-        }
-      } 
-#     $_ = $1 if (/^(.*)\.([^\.\/]*)$/ ); 
-
+      chop if (/\n$/);   #chop of \n
+
+      $_ = $1 if (/^(.*)\.([^\.\/]*)$/ ); # chop of extension
       if ( /^(.*)\/([^\/]*)$/ )
       {
@@ -813 +796 @@
     }
     close (LST_FILE);
+    printf("$base Summary: Checks:$lst_checks Failed:%d Time:%.2f\n", $lst_checks - $lst_checks_pass, $lst_used_time) 
+      unless ($verbosity < 2)
   }
   else
@@ -821 +806 @@
   if ($path ne "")
   {
-    chdir($pwd);
+    chdir($curr_dir);
     print "cd $curr_dir\n" if ($verbosity > 2);
   }
 }
-
-
-# now do the work
-foreach (@ARGV)
-{
-  file_check($_);
-}
-
-printf("$base Summary: Checks:$lst_checks Failed:%d Time:%.2f\n", $lst_checks - $lst_checks_pass, $lst_used_time) 
-  unless ($verbosity < 2);
-
 
 unless ($verbosity < 2 || $lst_checks == $total_checks)