mirror of
https://github.com/lcn2/calc.git
synced 2025-08-16 01:03:29 +03:00
31 lines
759 B
Plaintext
31 lines
759 B
Plaintext
/*
|
|
* 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";
|
|
|
|
/*
|
|
* test8400 - dummy function to allow a check of quit-based memory leaks
|
|
*/
|
|
define test8400()
|
|
{
|
|
local x8401 = 19937; /* watch for lost memory */
|
|
static s8401 = 44497; /* watch for lost memory */
|
|
|
|
return x8401+s8401;
|
|
}
|
|
print "8402: parsed test8400()";
|
|
vrfy(test8400() == 64434, '8403: test8400() == 64434');
|
|
|
|
quit;
|
|
prob('quit did not end test8400.cal');
|