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.
561
2002/11/
13
13
:
20
:
33
grubba Exp $"]]);
+
test_true([["$Id: testsuite.in,v 1.
562
2002/11/
14
18
:
09:
20 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:73:
if (N == 0) return( Ack(M - 1, 1) ); return( Ack(M - 1, Ack(M, (N - 1))) ); } }; return X()->Ack(3,5); ]],253) test_any([[ // Test that F_COND_RECUR works properly.
-
//
NB:
The
class
Y may in the future need to overload
-
// the function Ack() to ensure that the RECUR fail
-
// branch is taken in
F_COND_RECUR.
+
//
This
test
forces
F_COND_RECUR
to fail
.
class X { int Ack(int M, int N) { if (M == 0) return( N + 1 ); if (N == 0) return( Ack(M - 1, 1) ); return( Ack(M - 1, Ack(M, (N - 1))) ); } };
-
class Y { inherit X; };
+
class Y { inherit X;
+
int Ack(int M, int N) { return ::Ack(M, N);
}
+
}
;
return Y()->Ack(2,2); ]],7) test_eval_error([[mixed x; return mkmapping(x,x)]]); test_eval_error([[class Foo { void bar() {} void foo() {destruct(this_object());bar();} };