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.
601
2004
/
06
/
30
18
:
21
:
29
grubba Exp $"]]);
+
test_true([["$Id: testsuite.in,v 1.
602
2005
/
02
/
01
19
:
10
:
04
grubba 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:686:
if (count != c) error ("Destruct out of sequence, " "%d destructed when %d should be.\n", c, count); object x = foo && Foo(0); x = 0; // Cause call to destruct_objects_to_destruct. for (int j = 0; j < 10; j++) werror (""); } }
-
mixed eat_stack()
+
mixed eat_stack(
int|void probe
)
{
-
+
// Avoid eating as much C-stack by releasing the
+
// catch at every level.
+
if (probe) return 1;
+
if (catch(eat_stack(1))) return 1;
mixed err = 1;
-
if (
catch
(err = eat_stack())
|| err
!= 10)
-
return intp
(err) && err > 0 ? err + 1 : err;
+
if ((err = eat_stack()) != 10)
+
return intp(err) && err > 0 ? err + 1 : err;
if (err = catch { Foo foo; for(int i=0; i < 10000; i++) foo = Foo(foo); foo = 0; // Cause call to destruct_objects_to_destruct. for (int j = 0; j < 10; j++) werror (""); }) return err;
pike.git/src/testsuite.in:4376:
object o = class{}(); multiset m = (<o>); set_weak_flag (m, 1); m[class{}()] = 1; m[o] = 0; gc(); return !sizeof (m); ]]) test_do([[
-
mixed eat_stack()
+
mixed eat_stack(
int|void probe
)
{
-
+
// Avoid eating as much C-stack by releasing the
+
// catch at every level.
+
if (probe) return 1;
+
if (catch(eat_stack(1))) return 1;
mixed err = 1;
-
if (
catch
(err = eat_stack())
|| err
!= 10)
-
return intp
(err) && err ? err + 1 : err;
+
if ((err = eat_stack()) != 10)
+
return intp(err) && err
> 0
? err + 1 : err;
if (err = catch { class Foo { object foo; static void create(object o) {foo = o;} }; Foo foo; for(int i=0; i < 10000; i++) foo = Foo(foo); gc();