21 lines
595 B
C
21 lines
595 B
C
void do_tests() {
|
|
mixed stack, entry;
|
|
int n = sizeof(call_stack(0));
|
|
|
|
stack = call_stack(0);
|
|
ASSERT(stack[0] == __FILE__);
|
|
ASSERT(sizeof(filter(stack, (: stringp :))) == n);
|
|
stack = call_stack(1);
|
|
ASSERT(stack[0] == this_object());
|
|
ASSERT(sizeof(filter(stack, (: objectp :))) == n);
|
|
stack = call_stack(2);
|
|
ASSERT(stack[0] == "do_tests");
|
|
ASSERT(sizeof(filter(stack, (: stringp :))) == n);
|
|
stack = call_stack(3);
|
|
ASSERT(sizeof(filter(stack, (: stringp :))) == n);
|
|
ASSERT(catch(call_stack(-100)));
|
|
ASSERT(catch(call_stack(4)));
|
|
}
|
|
|
|
|