Release calc version 2.11.0t8.9.1

lib/Makefile

@@ -44,7 +44,7 @@ CALC_FILES= README bigprime.cal deg.cal ellip.cal lucas.cal lucas_chk.cal \
 	test2700.cal test3100.cal test3300.cal test3400.cal prompt.cal \
 	test3500.cal seedrandom.cal test4000.cal test4100.cal test4600.cal \
 	beer.cal hello.cal test5100.cal test5200.cal randombitrun.cal \
-	randomrun.cal xx_print.cal natnumset.cal qtime.cal
+	randomrun.cal xx_print.cal natnumset.cal qtime.cal test8400.cal
 
 # These files are found (but not built) in the distribution
 #

lib/regress.cal

@@ -30,6 +30,7 @@ ecnt = 0;				/* clear expected errcount() value */
 initcfg = config("all", "oldstd");	/* set config to startup default */
 initcfg = config("lib_debug", 0);	/* disable lib startup messages */
 initcfg = config("calc_debug", 0);	/* disable internal debugging */
+initcnf = config("verbose_quit", 0);	/* disable quit messages */
 initcfg = config("all");		/* save state for later use */
 
 print '003: parsed global definitions';
@@ -7159,6 +7160,21 @@ define test_somenew()
 print '189: parsed test_somenew()';
 
 
+/*
+ * test_quit - test the QUIT functionality
+ */
+define test_quit()
+{
+	print '8400: Starting test_quit';
+
+	quit;
+	prob('quit did not end the test_quit() function');
+
+	/* 8400 serise continued after return, do not print end here */
+}
+print '190: parsed test_quit()';
+
+
 /*
  * Reserved for top level test use
  */
@@ -7442,6 +7458,16 @@ vrfy(l8300(10) == 15,		'8309: l8300(10) == 15');
 print	'8310: Ending define tests';
 
 
+/*
+ * quit tests
+ */
+print;
+return test_quit();
+read -once test8400;
+print	'8402: read -once test8400';
+print	'8403: Ending test_quit';
+
+
 /*
  * read various calc libs
  *
@@ -7455,7 +7481,7 @@ print	'8310: Ending define tests';
  *	lucas_tbl.cal	- duplicatres code already read by another file
  *	regress.cal	- this file
  *	surd.cal	- already read by this file
- *	testXXXX.cal	- already read by this file
+ *	test9999.cal	- files of this form are already read by this file
  *	xx_print.cal	- prints a bunch of things when loaded
  *
  * We want to do this 2nd to last; ahead of any final cleanup and behind

lib/test8400.cal

@@ -0,0 +1,16 @@
+/*
+ * Copyright (c) 1999 Landon Curt Noll
+ * Permission is granted to use, distribute, or modify this source,
+ * provided that this copyright notice remains intact.
+ *
+ * By:  Landon Curt Noll
+ *      http://reality.sgi.com/chongo
+ *
+ *      chongo <was here> /\../\
+ *
+ * This library is used by the 8400 series of the regress.cal test suite.
+ */
+
+print "8401: in test8400.cal";
+quit;
+prob('quit did not end test8400.cal');