pike.git/
src/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
2000-10-13
2000-10-13 23:24:06 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
5bf37dc4d5cc62551c7ca956219271d1d854ee79 (
48
lines) (+
47
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
fixed the 4k limit
Rev: src/testsuite.in:1.341
1:
-
test_true([["$Id: testsuite.in,v 1.
340
2000/10/13
17
:
20
:
46
nilsson
Exp $"]]);
+
test_true([["$Id: testsuite.in,v 1.
341
2000/10/13
23
:
24
:
06
hubbe
Exp $"]]);
cond([[all_constants()->_verify_internals]], [[
1952:
gc(); return sizeof(q); ]],2)
+
]])
-
+
ifefun(gc,
+
[[
test_eq([[ int dummy; gc();
2015:
gc(); o = 0; return gc() > 0; }]], 1)
+
+
]])
+
+
ifefun(gc,
+
[[
+
test_any_equal([[{ class Live {object o; void destroy() {}}; array a = set_weak_flag(({Live()}), 1);
2080:
return all_constants()->blatinka; }]], ({0}));
+
]])
+
+
ifefun(gc,
+
[[
+
test_any([[{ class Dead {object o;}; object o = Dead(); o->o = Dead();
2132:
gc(); return !sizeof (x); }]], 1);
+
+
]])
+
+
ifefun(gc,
+
[[
+
test_any([[{ class Foo { Foo f = this_object();
2199:
return gc() + gc() >= 3; }]], 1);
+
]])
+
+
ifefun(gc,
+
[[
+
test_do([[{ mapping a = ([1:({17}),2:3,4:5,6:7,8:9]), b = a + ([]); set_weak_flag (b, 1);
2251:
return gc() >= 2 && !sizeof (a); }]], 1);
+
]])
+
+
ifefun(gc,
+
[[
+
test_any([[{ object o = class{}(); mapping a = set_weak_flag ((["foo": o]), 1);
2290:
return gc() >= 2 && !sizeof (a); }]], 1);
+
]])
+
+
ifefun(gc,
+
[[
+
test_any([[{ object o = class{}(); mapping a = set_weak_flag ((["foo": o]), 1);
2338:
return !sizeof (a); }]], 1);
+
]])
+
+
ifefun(gc,
+
[[
+
test_do([[{ int got_error = 0; array(string) destruct_order;
2989:
werror ("%60s\r", ""); }]])
+
]])
+
+
ifefun(gc,
+
[[
+
test_any([[mapping q=([ "t":class {} ()]); gc(); if(!objectp(q->t)) return -1; set_weak_flag(q,1); gc(); if(objectp(q->t)) return -2; return 0;]],0); test_do([[class bar { object foo; void create(void|object tmp) { foo=tmp; } };