pike.git/ src/ testsuite.in

2004-04-21

2004-04-21 18:55:25 by Martin Stjernholm <mast@lysator.liu.se>

• b4fed8e4708d589e1e37305d569dd55f09539195 (18 lines) (+16/-2) ^{[ Show | Annotate ]}
  Branch: 7.9

Added some line number tests that works in 7.4.

Rev: src/testsuite.in:1.716

1: - test_true([["$Id: testsuite.in,v 1.715 2004/04/16 17:03:47 grubba Exp $"]]); + test_true([["$Id: testsuite.in,v 1.716 2004/04/21 18:55:25 mast Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])
7495:   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})); + test_do([[ + #define FOO(X) X + string s = FOO (#"a + b + c"); + ]]); + test_any([[ + #define FOO(X) X + FOO ("\ + \ + "); + return __LINE__; + ]], 6);      test_eq([[compile_string(#"   #define Y(y) #y
8478:    test_any([[    string file = #"   /* -  * Attempt to trigg the lex.current_file == NULL bug. +  * Attempt to trig the lex.current_file == NULL bug.    *    * Henrik Grubbström 1999-07-01    */