pike.git/
src/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
1999-12-10
1999-12-10 19:19:32 by Henrik Grubbström (Grubba) <grubba@grubba.org>
1954be5eb5a14ad37acb6c61cbad449f53556689 (
8
lines) (+
5
/-
3
)
[
Show
|
Annotate
]
Branch:
7.9
Some fixes of existing tests.
Rev: src/testsuite.in:1.252
1:
-
test_true([["$Id: testsuite.in,v 1.
251
1999/12/
09
17
:
23
:
45
grubba Exp $"]]);
+
test_true([["$Id: testsuite.in,v 1.
252
1999/12/
10
19
:
19
:
32
grubba Exp $"]]);
cond([[all_constants()->_verify_internals]], [[
55:
string s = typeof(aggregate(a)); return (< "array(string | int)", "array(int | string)" >)[s];]], 1); test_any([[return typeof(aggregate());]], "array(zero)");
-
test_any([[int i; return typeof(max(i,0));]],
"int"
)
+
test_any([[int i; return
(< "int", "int | zero", "zero | int" >)
+
[
typeof(max(i,0))
]
;]],
1
)
test_any([[array(string) a; return typeof(a[0]); ]], "string")
3675:
test_eq(search("fo-obar|gazonk"/"|","fo-obar"),0) test_eq(search("fo-obar|gazonk"/"|","gazonk"),1) test_eq(search(([1:2,3:4,5:6,7:8]),4),3)
-
test_true(zero_type(search(([1:2,3:4,5:6,7:8]),
1
)))
+
test_true(zero_type(search(([1:2,3:4,5:6,7:8]),
3
)))
test_eq(search(([1:2,3:4,5:6,7:8]),8),7) // test large searches (find string, size, pattern)