diff --git a/lib/README b/lib/README index 77edc5e..935f911 100644 --- a/lib/README +++ b/lib/README @@ -2,11 +2,11 @@ To load a library, try: read filename -You to not need to add the .cal extension to the filename. Calc +You do not need to add the .cal extension to the filename. Calc will search along the $CALCPATH (see ``help environment''). Normally a library will simply define some functions. By default, -most libraries will print out a short message when thei are read. +most libraries will print out a short message when they are read. For example: > read lucas @@ -360,7 +360,7 @@ randbitrun.cal randbitrun([run_cnt]) Using randbit(1) to generate a sequence of random bits, determine if - the number and kength of identical bits runs match what is expected. + the number and length of identical bits runs match what is expected. By default, run_cnt is to test the next 65536 random values. This tests the a55 generator. @@ -416,7 +416,7 @@ randrun.cal regress.cal Test the correct execution of the calculator by reading this library file. - Errors are reported with '****' mssages, or worse. :-) + Errors are reported with '****' messages, or worse. :-) seedrandom.cal diff --git a/lib/regress.cal b/lib/regress.cal index 8d08839..8f06200 100644 --- a/lib/regress.cal +++ b/lib/regress.cal @@ -3048,8 +3048,8 @@ define test_error() print '3712: e9999 = error(9999)'; vrfy(errno() == 9999, '3713: errno() == 9999'); vrfy(error() == e9999, '3714: error() == e9999'); - vrfy(strerror() == "Unknown error 9999", - '3715: strerror() == "Unknown error 9999"'); + vrfy(substr(strerror(), strlen(strerror())-3, 4) == "9999", + '3715: substr(strerror(), strlen(strerror())-3, 4) == "9999"'); x = newerror("Alpha"); print '3716: x = newerror("Alpha")'; n = iserror(x); @@ -3060,17 +3060,19 @@ define test_error() vrfy(errno(9999) == n, '3721: errno() == n'); vrfy(errno() == 9999, '3722: errno() == 9999'); vrfy(error() == e9999, '3723: error() == e9999'); - vrfy(strerror() == "Unknown error 9999", - '3724: strerror() == "Unknown error 9999"'); + vrfy(substr(strerror(), strlen(strerror())-3, 4) == "9999", + '3724: substr(strerror(), strlen(strerror())-3, 4) == "9999"'); a = 1/0; print '3725: a = 1/0'; vrfy(strerror() == "Division by zero", '3726: strerror() == "Division by zero"'); + vrfy(substr(strerror(9941), strlen(strerror(9941))-3, 4) == "9941", + '3728: substr(strerror(9941), strlen(strerror(9941))-3, 4) == "9941"'); /* errmax and errcount should be bumped up the 148 errors above */ - vrfy(errcount() == ecnt, '3727: errcount() == ecnt'); + vrfy(errcount() == ecnt, '3728: errcount() == ecnt'); - print '3728: Ending test_error'; + print '3729: Ending test_error'; } print '054: parsed test_error()'; diff --git a/version.c b/version.c index adef41f..048d756 100644 --- a/version.c +++ b/version.c @@ -18,7 +18,7 @@ static char *program; #define MAJOR_VER 2 /* major version */ #define MINOR_VER 11 /* minor version */ #define MAJOR_PATCH 0 /* patch level or 0 if no patch */ -#define MINOR_PATCH "10.1" /* test number or empty string if no patch */ +#define MINOR_PATCH "10.1.1" /* test number or empty string if no patch */ /* * calc version constants