drygdryg/calc
1
0
Fork 0
mirror of https://github.com/lcn2/calc.git synced 2025-08-16 01:03:29 +03:00
Code Issues Packages Projects Releases Wiki Activity

Release calc version 2.11.0t8.9.1

Browse Source
This commit is contained in:
Landon Curt Noll
1999-10-30 18:19:55 -07:00
parent 9b6c308b42
commit a99a3400e7
10 changed files with 103 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
lib/regress.cal
View File

@@ -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