pike.git
/
src
/
testsuite.in
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/testsuite.in:1:
START_MARKER
-
test_true([["$Id: testsuite.in,v 1.
854
2008/09/
14
16
:
18
:
25
grubba Exp $"]]);
+
test_true([["$Id: testsuite.in,v 1.
855
2008/09/
15
14:
53
:
57
grubba Exp $"]]);
// This triggered a bug only if run sufficiently early. test_compile_any([[#pike 7.2]]) test_compile_any([[#pike 7.4]]) test_compile_any([[#pike 7.0]]) test_compile_any([[#pike 0.6]]) cond([[all_constants()->_verify_internals]], [[ test_do(_verify_internals())
pike.git/src/testsuite.in:799:
object(D) d = D(); return ({ "A", sort(indices(d->get_a())), "B", sort(indices(d->get_b())), "C", sort(indices(d->get_c())), "D", sort(indices(d->get_d())) }); ]], ({ "A", ({ "a", "b", "c", "d", "e", "f", "get_a" }), "B", ({ "get_a", "get_b" }), "C", ({ "get_a", "get_b", "get_c" }), "D", ({ "get_a", "get_b", "get_c", "get_d" }) }))
+
test_any_equal([[
+
// Test that extern works as intended.
+
class A { extern mixed foo; };
+
class B { inherit A; mixed foo; object get_a() { return A::this; } };
+
object(B) b = B();
+
b->foo = 17;
+
array res = ({ b->foo, b->get_a()->foo });
+
b->get_a()->foo = 10;
+
return res + ({ b->foo, b->get_a()->foo });
+
]], ({ 17, 17, 10, 10 }))
+
+
test_eval_error([[
+
// Test that extern works as intended.
+
class A { extern mixed foo; };
+
class B { inherit A; mixed bar; };
+
object(B) b = B();
+
b->bar = 17;
+
b->foo = 10;
+
return b->foo;
+
]])
+
test_compile_error([[ class A { constant q = "x"; } class B { inherit A; string z="z"; constant q="x"+z; } ]]) test_compile_any([[ class A { object x(int y) {