pike.git/
src/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
2000-07-11
2000-07-11 20:42:58 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
8d1c57d2854b06378fc9a489f33bbb2ac8050197 (
9
lines) (+
5
/-
4
)
[
Show
|
Annotate
]
Branch:
7.9
fixed some m_delete tests
Rev: src/testsuite.in:1.313
1:
-
test_true([["$Id: testsuite.in,v 1.
312
2000/07/11
03
:
45
:
10
mast
Exp $"]]);
+
test_true([["$Id: testsuite.in,v 1.
313
2000/07/11
20
:
42
:
58
hubbe
Exp $"]]);
cond([[all_constants()->_verify_internals]], [[
1421:
test_eq(String.strmult("foo",4),"foofoofoofoo") // m_delete
-
test_equal(([1:1])
,
m_delete(
a()
,0))
-
test_equal(([1:1])
,
m_delete(([1:1
,0:3
])
,0
)
)
-
test_any(mapping a=([1:1]); return
a==
m_delete(a,1),1)
+
test_
any_
equal(
[[ mapping m=
([1:1])
;
m_delete(
m
,0)
; return m; ]],[[ ([1:1]
)
]])
+
test_
any_
equal(
[[ mapping m=
([1:1
,0:3
])
;
m_delete(
m,0); return m; ]],[[
([1:1])
]]
)
+
test_any(
[[
mapping a=([1:1]); return m_delete(a,1)
]]
,1)
test_any([[mapping m=([]); m[1]++; return m[1];]],1) test_any([[mapping m=([1:1]); m[1]++; return m[1];]],2) test_any([[mapping m=([]); m[1]++; m[1]++; return m[1];]],2)