pike.git/ src/ testsuite.in

2003-09-30

2003-09-30 18:03:10 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• a191cb22f78464fb48dcba6f3182b01a6f032d58 (7 lines) (+4/-3) ^{[ Show | Annotate ]}
  Branch: 7.9

Bugfix.

Rev: src/testsuite.in:1.682

1: - test_true([["$Id: testsuite.in,v 1.681 2003/09/30 15:57:10 grubba Exp $"]]); + test_true([["$Id: testsuite.in,v 1.682 2003/09/30 18:03:10 grubba Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])
7213:   test_eq([[cpp("foo\xfeff""bar \xfeff gazonk")]],[[cpp("foobar gazonk")]])   test_eq([[cpp("#define A(X) #X\n#define B(Y) A(Y)\nB(foo)")]],    "# 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" /* Note: Added extra space for \r. */); + test_eq([[cpp("#define FOO(X) X\nFOO(\"\\\n\")\n")]], "# 1 \"-\"\n\n\n \"\" \n"); + test_eq([[cpp("#define FOO(X) X\r\nFOO(\"\\\r\n\")\r\n")]], "# 1 \"-\"\n\n\n \"\" \n" /* Note: Added extra space for \r. */);   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}));