pike.git
/
src
/
testsuite.in
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/testsuite.in:1:
-
test_true([["$Id: testsuite.in,v 1.
627
2003/03/
29
18
:
38
:
28
grubba
Exp $"]]);
+
test_true([["$Id: testsuite.in,v 1.
628
2003/03/
30
01
:
34
:
53
mast
Exp $"]]);
// This triggered a bug only if run sufficiently early. test_compile_any([[#pike 7.2]]) cond([[all_constants()->_verify_internals]], [[ test_do(_verify_internals()) ]]); test_eq(1e1,10.0); test_eq(1E1,10.0);
pike.git/src/testsuite.in:4326:
error ("Contents in saved weak array zapped: %O.\n", all_constants()->blatinka); gc(); return all_constants()->blatinka; }]], ({0})); test_do(add_constant("kablutt");) test_do(add_constant("blatinka");) test_any([[{
+
#if constant (_debug)
+
// Temporarily disable debug so we don't get references to p in
+
// the intepreter backlog.
+
int old_debug = _debug (0);
+
#endif
+
object o = class {program p; object o;}();
+
class Resolver (mixed x) {mixed resolv (string id) {return x;}};
+
program p = compile ("constant o = foo;", Resolver (o));
+
o->p = p;
+
o->o = p();
+
gc();
+
o = p = 0;
+
#if constant (_debug)
+
_debug (old_debug);
+
#endif
+
return gc() > 0;
+
}]], 1)
+
+
test_any([[{
class Dead {object o;}; object o = Dead(); o->o = Dead(); array a = set_weak_flag(({o}), 1); gc(); o = 0; return gc() > 0; }]], 1) test_any([[{ class Dead {object o;}; class Live {object o; void destroy() {}}; object o = Live(); o->o = Dead(); array a = set_weak_flag(({o}), 1);