pike.git/
src/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
1998-01-17
1998-01-17 01:06:48 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
8ea241a5a377aeac3b49381b69566f19403c051e (
8
lines) (+
5
/-
3
)
[
Show
|
Annotate
]
Branch:
7.9
more tests for cpp() added
Rev: src/testsuite.in:1.66
1:
-
test_true([["$Id: testsuite.in,v 1.
65
1998/01/
16
21
:
40
:
17
hubbe Exp $"]])
+
test_true([["$Id: testsuite.in,v 1.
66
1998/01/
17
01
:
06
:
48
hubbe Exp $"]])
test_eq(1e1,10.0) test_eq(1E1,10.0) test_eq(1e+1,10.0)
6:
test_eq(1e-1,0.1) test_eq('\x20',32) test_eq("\x20","\040")
-
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 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_any([[object o=class foo{int c;class bar{void create(){c++;};}}(); o->bar(); return o->c;]],1) test_do([[add_constant("GURKA2",class foo { int c; class bar{void create() {c+=17;}}}()); ]])