pike.git/
src/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
2001-01-18
2001-01-18 21:40:29 by Martin Stjernholm <mast@lysator.liu.se>
45b9cffceb0328a5db7b73e13406c20be13a1cf8 (
23
lines) (+
15
/-
8
)
[
Show
|
Annotate
]
Branch:
7.9
Modified the gc recursion test to require less objects.
Rev: src/testsuite.in:1.374
1:
-
test_true([["$Id: testsuite.in,v 1.
373
2001/01/18
17
:
38
:
37
mast Exp $"]]);
+
test_true([["$Id: testsuite.in,v 1.
374
2001/01/18
21
:
40
:
29
mast Exp $"]]);
cond([[all_constants()->_verify_internals]], [[
1992:
]]) test_do([[
+
mixed eat_stack()
+
{
+
mixed err;
+
if (!catch (err = eat_stack())) return err;
class Foo { object foo; static void create(object o) {foo = o;} }; Foo foo;
-
for(int i=0; i <
1000000
; i++)
+
for(int i=0; i <
10000
; i++)
foo = Foo(foo); gc();
-
+
};
+
if (mixed err = eat_stack()) throw (err);
]]) test_any([[