Changeset 863a27 in git for Tst

Timestamp:

Apr 23, 1998, 10:30:52 AM (26 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'a719bcf0b8dbc648b128303a49777a094b57592c')

Children:

e4b0ecb335b41553f06500f3237225b9440c8935

Parents:

751c5ca78ac69036cc8a0d6ae34bb24f7be5454c

Message:

* switched from gzipprd files to uuencoded files


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

Location:

Tst

Files:

• README (modified) (2 diffs)
• regress.cmd (modified) (7 diffs)

Tst/README

@@ -22 +22 @@
     is run. 
 5.) If no diffs were found, xx.diff and xx.new.res are rm'ed and
-    xx.res is gzip'ed. Otherwise (i.e., diffs were found), xx.diff and
-    xx.new.res are kept, diffs are printed to stdout, and regress.cmd
-    exits with exit status != 0.
+    xx.res is gzip'ed and uuencoded. Otherwise (i.e., diffs were
+    found), xx.diff and xx.new.res are kept, diffs are printed to
+    stdout, and regress.cmd exits with exit status != 0.
 
 Do also 
    ../regress.cmd -h
-for some more details on regress.cmd.
+and see the source code of ../regress.cmd for some more details on
+regress.cmd.
 
 To add a new test for a library/commando to the test-suite:
@@ -76 +77 @@
   "memory" keyword -- // ignore: memory:
   which causes automatic tests to ignore these lines when doing a diff 
-  on result files. If possible, short tests should not contain
-  system-dependent output. 
+  on result files. 
+  
+  3.) Time and/or memory-intensive tests should be followed by
+  (tst_ignore'd) time (resp. memory) output, so that we can keep track
+  of the timing (resp. memory) behaviour of Singular. This could be
+  accomplished as shown below: 
+  int mytime = timer;
+  /* time/memory intesive computations */
+  tst_ignore("time", timer - mytime);
+  tst_ignore("memory", memory(0));
 
 * Command for generating *.res files: 

Tst/regress.cmd

@@ -2 +2 @@
 
 #################################################################
-# $Id: regress.cmd,v 1.1.1.1 1998-04-17 15:06:45 obachman Exp $
+# $Id: regress.cmd,v 1.2 1998-04-23 08:30:52 obachman Exp $
 # FILE:    regress.cmd 
 # PURPOSE: Script which runs regress test of Singular
@@ -20 +20 @@
   [-h]             -- print out help and exit
   [-n]             -- do not ignore output from tst_ignore when diffing
-  [-k]             -- keep result (*.res) files, do not gzip original res file
+  [-k]             -- keep result (*.res) files, do not zip original res file
   [-v num]         -- set verbosity to num (used range 0..3, default: 1)
   [-g]             -- generate result (*.res) files, only
@@ -54 +54 @@
 $rm = "rm";
 $cp = "cp";
+$uuencode = "uuencode";
+$uudecode = "uudecode";
 
 #################################################################
@@ -84 +86 @@
     if (! (-r "$root.res.gz"))
     {
-      if ($generate ne "yes")
-      {
-        print (STDERR "Can not read $root.res[.gz]\n");
-        return (1);
+      if (! (-r "$root.res.gz.uu"))
+      {
+        if ($generate ne "yes")
+        {
+          print (STDERR "Can not read $root.res[.gz]\n");
+          return (1);
+        }
+      }
+      else 
+      {
+        $exit_status 
+          = $exit_status || &mysystem("$uudecode -o $root.res.gz $root.res.gz.uu; $gunzip $root.res.gz");
+        if ($exit_status)
+        {
+          print (STDERR "Can not decode $root.res.gz.uu\n");
+          return ($exit_status);
+        }
       }
     }
@@ -95 +110 @@
       if ($exit_status)
       {
-        print (STDERR "Can not $gunzip -f -c $root.res.gz > $root.res" );
+        print (STDERR "Can not `$gunzip -f -c $root.res.gz > $root.res'\n" );
         return ($exit_status);
       }
@@ -146 +161 @@
   {
     & mysystem("$rm -rf $root.new.res $root.diff");
-    if (-r "$root.res.gz")
+    if (-r "$root.res.gz.uu")
     {
       & mysystem("$rm -rf $root.res");
@@ -152 +167 @@
     else
     {
-      & mysystem("$gzip -f $root.res");
+      & mysystem("$gzip -f $root.res; $uuencode $root.res.gz $root.res.gz > $root.res.gz");
     }
   } 
   elsif ($generate eq "yes")
   {
-    & mysystem("$gzip -f $root.res");
+    & mysystem("$gzip -f $root.res; $uuencode $root.res.gz $root.res.gz > $root.res.gz");
     if ($keep eq "yes")
     {