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.
727
2004/05/
19
19:
00
:
17
mast Exp $"]]);
+
test_true([["$Id: testsuite.in,v 1.
728
2004/05/
27
19:
01
:
20
mast 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:7575:
int z() {return 0;} mixed a() {return functionp(X(Y));} ")()->a()]]) test_false([[compile_string(#" #define Y z #define X(x) x() int z() {return 0;} mixed a() {return functionp(X(Y));} ")()->a()]])
+
test_do([[
+
Stdio.write_file("testsuite_test.pmod", "#error foo");
+
object orig_master = master();
+
replace_master(object_program(orig_master)());
+
mixed err = catch {
+
compile_string(#"
+
#ifdef NONEXISTING_DEFINE
+
#error Not expected
+
#if constant (.testsuite_test)
+
#error Not expected either
+
#endif
+
#endif", "testsuite_test");
+
};
+
replace_master(orig_master);
+
if (err) throw (err);
+
]]);
+
+
test_do([[
+
Stdio.write_file("testsuite_test.pmod", "#error foo");
+
object orig_master = master();
+
replace_master(object_program(orig_master)());
+
mixed err = catch {
+
compile_string(#"
+
#if defined (NONEXISTING_DEFINE) && constant (.testsuite_test)
+
#error Not expected
+
#endif", "testsuite_test");
+
};
+
replace_master(orig_master);
+
if (err) throw (err);
+
]]);
+
test_any([[ class handler {mapping get_predefines() {return (["x": "1", "y": "", "z": 0]);}}; return cpp ("x y z p", "-", 0, handler()); ]], "# 1 \"-\"\n1 p"); test_eval_error([[ class handler {mixed get_predefines() {return (<"x">);}}; cpp ("x y z", "-", 0, handler()); ]]); test_eval_error([[ class handler {mapping get_predefines() {return ([0: 0]);}};