pike.git/
src/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
2000-06-12
2000-06-12 13:52:32 by Martin Stjernholm <mast@lysator.liu.se>
96dd6fc36fde7bb6a7805e793b8e47a52cc9d529 (
10
lines) (+
9
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
Another gc test.
Rev: src/testsuite.in:1.301
1:
-
test_true([["$Id: testsuite.in,v 1.
300
2000/06/12
03
:
21
:
34
mast Exp $"]]);
+
test_true([["$Id: testsuite.in,v 1.
301
2000/06/12
13
:
52
:
32
mast Exp $"]]);
cond([[all_constants()->_verify_internals]], [[
1846:
}]], 1) test_do([[{
+
object o = class {}();
+
array a = ({o});
+
destruct (o);
+
gc();
+
}]]);
+
+
test_do([[{
int got_error = 0; array(string) destruct_order; add_constant ("destructing", lambda (string id) {destruct_order += ({id});});