Changeset c46699 in git

Timestamp:

Oct 1, 1997, 1:09:25 PM (27 years ago)

Author:

Jens Schmidt <schmidt@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

a315324d113f619dbe5a835c69f3825ca1e22568

Parents:

7517fd09661a2e962a684393323075f4f5d921cf

Message:

	* ftest_util.m4 (_ftestOutput): bug fix

	* ftest_util.m4 (ftestGetInVar): checks for non existing arguments
	  now


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

File:

• factory/ftest/ftest_util.m4 (modified) (3 diffs)

factory/ftest/ftest_util.m4

@@ -1 @@
-dnl $Id: ftest_util.m4,v 1.4 1997-10-01 10:49:41 schmidt Exp $
+dnl $Id: ftest_util.m4,v 1.5 1997-10-01 11:09:25 schmidt Exp $
 dnl
 dnl ftest_util.m4 - m4 macros used by the factory test environment.
@@ -134 +134 @@
 define(`ftestGetInVar', `dnl
 ifelse(`$#', `1',
-  ``ftestArgGiven$1= true;
-    $1= ftestGet'_stripTWS(`_ftestInType_$1')`( argv[ optind++ ] )'',
+  ``if ( argv[ optind ] ) {
+        ftestArgGiven$1= true;
+        $1= ftestGet'_stripTWS(`_ftestInType_$1')`( argv[ optind++ ] );
+    } else
+        ftestError( CommandlineError,
+                    "expected '_stripTWS(`_ftestInType_$1')` at position %d in commandline\n",
+                    optind )'',
   ``if ( argv[ optind ] ) {
         ftestArgGiven$1 = true;
@@ -193 +198 @@
   `$#', `1', ,
 ``;
-    ftestPrintResult( $1, $2)'_ftestOutput(shift(shift($@)))')')
+    ftestPrintResult( $1, '_qstripTWS(`$2')` )'_ftestOutput(shift(shift($@)))')')
 
 define(`ftestOutput', `dnl