pike.git / src / testsuite.in

version» Context lines:

pike.git/src/testsuite.in:1: - test_true([["$Id: testsuite.in,v 1.678 2003/09/18 16:01:03 grubba Exp $"]]); + test_true([["$Id: testsuite.in,v 1.679 2003/09/23 16:23:37 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:7206:      test_compile_any([[import Stdio.Readline; mapping x=([]);]]);      // testing preprocessor   test_eq([[cpp("#define FOO(X,Y) (X) (Y)\nFOO( (A),(B) )")]],"# 1 \"-\"\n\n( (A) ) ( (B) )")   test_eq([[cpp("#define F 'F'\nF")]],"# 1 \"-\"\n\n'F'")   test_eq([[cpp("#define MAX(X,Y) ((X)>(Y)?(X):(Y))\n#define MAX3(X,Y,Z) MAX(MAX(X,Y),Z)\nMAX3(1,2,3)")]],"# 1 \"-\"\n\n\n(( (( 1 )>( 2 )?( 1 ):( 2 )) )>( 3 )?( (( 1 )>( 2 )?( 1 ):( 2 )) ):( 3 ))")   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"); + 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   #define X(x) x(z)   string a() {return X(Y);}   ")()->a()]], "z")   test_eq([[compile_string(#"   #define Y() \"z\"   #define X(x) x()   string a() {return X(Y);}