pike.git/
src/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
2015-03-16
2015-03-16 15:49:12 by Martin Nilsson <nilsson@opera.com>
beedd70a0f5adc90a2eb62a0b2548e21a83be575 (
25
lines) (+
3
/-
22
)
[
Show
|
Annotate
]
Branch:
8.1
Fix Debug tests.
4353:
// it, so we have to do it the hard way.. object obj; find_trampoline_object: {
-
for (obj = next_object();
+
for (obj =
Debug.
next_object();
objectp (obj) || // It's a normal object. (intp (obj) && obj); // It's a bignum object.
-
obj = next_object (obj))
+
obj =
Debug.
next_object (obj))
if (obj->`() == trampoline) break find_trampoline_object; error ("Trampoline object not found.\n"); }
4954:
} return ret; ]],1)
-
test_true(_refs(""));
-
test_true(_refs(({})));
-
test_true(_refs(([])));
-
test_true(_refs(this_object()))
-
test_true(arrayp( _next(({})) || _prev(({}))))
-
test_do(object o=this_object(); while(o=_next(o)))
-
test_do(object o=this_object(); while(o=_prev(o)))
+
test_any([[ object q=class {}();
10341:
// - _disable_threads // - _do_call_outs // - _exit
-
// - _leak
+
// - _memory_usage
-
// - _next
-
// - _prev
-
// - _refs
+
// - _static_modules // - _typeof
11367:
// - mv
-
// - next_object
-
test_true(objectp(next_object()) || intp(next_object()) && next_object())
-
test_any([[
-
object o=next_object();
-
for(int e=0; e<10000 && (objectp(o) || intp(o) && o); e++)
-
o=next_object(o);
-
return o;
-
]], 0)
-
+
// - normalize_path // Tested in lib