pike.git/ src/ testsuite.in

2003-09-23

2003-09-23 23:06:25 by Martin Stjernholm <mast@lysator.liu.se>

• e19d32007e146672b545f8d67c737d9307001203 (18 lines) (+4/-14) ^{[ Show | Annotate ]}
  Branch: 7.9

Rewrote the last tests to be more robust wrt the modifications
test_pike.pike might do.

Rev: src/testsuite.in:1.680

1: - test_true([["$Id: testsuite.in,v 1.679 2003/09/23 16:23:37 mast Exp $"]]); + test_true([["$Id: testsuite.in,v 1.680 2003/09/23 23:06:25 mast Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])
7215:    "# 1 \"-\"\n\n\n \"foo\" ")   test_eq([[cpp("#define FOO(X) X\nFOO(\"\\\n\")\n")]], "# 1 \"-\"\n\n \"\" \n");   test_eq([[cpp("#define FOO(X) X\r\nFOO(\"\\\r\n\")\r\n")]], "# 1 \"-\"\n\n \"\" \n"); - test_do([[ - #define FOO(X) X - string s = FOO (#"a - b - c"); - ]]); - test_any([[ - #define FOO(X) X - FOO ("\ - \ - "); - return __LINE__; - ]], 6); + test_equal([[compile_string("#define FOO(X) X\nstring s=FOO(\"\\\n\\\n\");\nmixed f() {return ({__LINE__, backtrace()[-1][1]});}\n")()->f()]], ({5, 5})); + test_equal([[compile_string("#define FOO(X) X\nstring s=FOO(#\"\n\n\");\nmixed f() {return ({__LINE__, backtrace()[-1][1]});}\n")()->f()]], ({5, 5}));      test_eq([[compile_string(#"   #define Y(y) #y