pike.git/
src/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
1998-02-27
1998-02-27 19:18:08 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
097e3dc9bbb7bb1b19561f5cc0725bfa641c6c35 (
7
lines) (+
6
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
more tests
Rev: src/testsuite.in:1.75
1:
-
test_true([["$Id: testsuite.in,v 1.
74
1998/02/
24
23
:
01
:
35
hubbe Exp $"]])
+
test_true([["$Id: testsuite.in,v 1.
75
1998/02/
27
19
:
18
:
08
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([[compile_string("#define A(X) (X)\nint x() { return A \n\t(1); }")()->x()]],1)
test_any([[class G { mapping t=([]); class tO { void init(string name) { t[name]=this_object(); }} class W { inherit tO; void create() { init("foo"); }}
67:
return c1()->foo();]],2); test_any([[class foo { int x=random(100); int `<(object o) { return x < o->x; } }; object *o=Array.map(allocate(100),foo); sort(o); for(int e=1;e<100;e++) if(o[e-1]->x > o[e]->x) return e; return -1;]],-1)
+
test_compile_error([[void foo() { 1++; }]])
test_compile_error([[void foo() { return destruct(this_object()); }]]) test_any([[class foo { constant x=17; }; class bar { inherit foo; constant x=18; }; return bar()->x;]],18) test_program([[inline string foo(string s){ while(s[0] == ' ' || s[0] == '\t') s = s[1..]; return(s); } string a() { return foo(" bar"); }]])
1757:
test_true(sizeof(rusage())>0) // - search
+
test_eval_error(search("foolbar","o",-10))
+
test_eval_error(search("foolbar","o",2983742))
test_eq(search("foolbar","gazonk"),-1) test_eq(search("qowiueproqiuweproiwqueoplkjljlklksjjriwueproiuwerowieu","lkjljlklksjj"),24) test_eq(search("lkjljlklksjjriwueproiuwerlskjdvlaskjfowieu","lkjljlklksjj"),0)