pike.git/ src/ testsuite.in

1999-03-01

1999-03-01 05:32:44 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• f3ece85092f08d347ff72157b8067330b85c441c (15 lines) (+8/-7) ^{[ Show | Annotate ]}
  Branch: 7.9

bugfixes for wide-char compiler/cpp

Rev: src/lexer.h:1.4
Rev: src/modules/Makefile.in:1.25
Rev: src/preprocessor.h:1.4
Rev: src/stralloc.c:1.55
Rev: src/stralloc.h:1.32
Rev: src/stuff.c:1.9
Rev: src/stuff.h:1.7
Rev: src/testsuite.in:1.149

1: - stest_true([["$Id: testsuite.in,v 1.148 1999/02/24 01:52:55 grubba Exp $"]]) + stest_true([["$Id: testsuite.in,v 1.149 1999/03/01 05:32:41 hubbe Exp $"]])   cond([[all_constants()->_verify_internals]],   [[    test_do(_verify_internals())
139:   test_eval_error([[ return 0[0]; ]])   test_compile_error([[constant x=class {}(); ]])    - test_compile([[int x=gauge { return; },1;]]) + test_compile([[int x=(gauge { return; },1);]])   cond( [[ master()->resolv("Gmp")->mpz ]],   [[    test_compile_error([[object x = Gmp.mpz(17); constant y = x;]])
153:    class tO { void init(string name) { t[name]=this_object(); }}    class W { inherit tO; void create() { init("foo"); }}   }; object x=G(); x->W(); return objectp(x->t->foo)]],1) - 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_program([[class foo { program x() { return class {}; }}; class bar { inherit foo; program x() { return class {}; }} int a() { return foo()->x != bar()->x(); }]])   
1663:   ]])      // 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_any(int e; object o=clone(Stdio.File); if(!o->open("conftest.h","wct")) return -1; e=o->write("return 17;\n"); if(!o->close()) return -1; return e,11)   test_any([[   #include "conftest.h"
2115:   #error Gurgel   ]])    -  +    // foop   define(do_test_foop,[[   test_eq($1 (17), !($2))