pike.git
/
src
/
testsuite.in
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/testsuite.in:1215:
protected void destroy() {} } ]]) test_compile_any([[ class A { protected void destroy() {} protected void _destruct() {} } ]])
+
test_eval_error([[
+
// Test Pike.DestructImmediate.
+
class Foo {
+
inherit Pike.DestructImmediate;
+
void _destruct() {}
+
}
+
object foo = Foo();
+
error("Foo!\n");
+
]])
+
+
test_eval_error([[
+
// Test Pike.DestructImmediate.
+
class Foo {
+
inherit Pike.DestructImmediate;
+
void _destruct() {
+
catch {
+
error("Bar!\n");
+
};
+
}
+
}
+
object foo = Foo();
+
error("Foo!\n");
+
]])
+
test_any([[ // Test Pike.InhibitDestruct. class Foo { inherit Pike.InhibitDestruct; /* Make the symbols visible outside. */ void inhibit_destruct() { ::inhibit_destruct(); } void permit_destruct() { ::permit_destruct(); } } object o = Foo(); destruct(o);
pike.git/src/testsuite.in:14535:
}; ]]) test_compile_warning( class A { __deprecated__ mapping m; void foo() { m["foo"] = "bar"; } }; )
+
test_compile_any(
+
class Foo {
+
function(int:int) foo;
+
}
+
class Bar {
+
function(int:int)|__deprecated__(function(int, int, int|void:int)) foo;
+
}
-
+
object(Foo) f = Bar();
+
object(Bar) b = Foo();
+
)
+
// - modifiers, compile time access properties test_compile_error_any(class A {} class B {inherit A; int q; void g(){q=v;}}) test_compile_any(class A {int v;} class B {inherit A; int q; void g(){q=v;}}) test_compile_any(class A {public int v;} class B {inherit A; int q; void g(){q=v;}}) test_compile_any(class A {protected int v;} class B {inherit A; int q; void g(){q=v;}}) test_compile_error_any(class A {private int v; int q=v;} class B {inherit A; int q; void g(){q=v;}}) test_compile_any(class A {final int v;} class B {inherit A; int q; void g(){q=v;}}) test_compile_any(class A {local int v;} class B {inherit A; int q; void g(){q=v;}}) test_compile_any(class A {inline int v;} class B {inherit A; int q; void g(){q=v;}})
pike.git/src/testsuite.in:15500:
test_do([[Stdio.write_file("recursive_module_dump_test/Quux.pmod", #" inherit Xyzzy; void bar() { Quux.foo(); } ")]]) define(dump_test_module, [[test_tests([[ array a() { Tools.Testsuite.log_status("Dumping ]]$1[[, case=$2");
-
return Tools.Testsuite.run_script(({"-M", "recursive_module_dump_test", "-x", "dump", "recursive_module_dump_test/]]$1[["}));
+
return Tools.Testsuite.run_script(({"-M", "recursive_module_dump_test", "-x", "dump", "
--debug=2", "
recursive_module_dump_test/]]$1[["}));
}]])]]) define(try_load_test_module, [[test_tests([[ array a() { Tools.Testsuite.log_status("Instantiating TestModule.A, case=$1"); return Tools.Testsuite.run_script(({"-M", "recursive_module_dump_test", "-e", "TestModule.A"})); }]]) test_tests([[ array a() { Tools.Testsuite.log_status("Calling Quux.bar(), case=$1"); return Tools.Testsuite.run_script(({"-M", "recursive_module_dump_test", "-e", "Quux.bar()"})); }]])]])