pike.git/
src/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
2002-12-12
2002-12-12 17:14:54 by Martin Nilsson <mani@lysator.liu.se>
c27206f226fd3fe928ba43f9d16d77ac5dbc10ee (
8
lines) (+
7
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
Copy value test from Image test suite.
Rev: src/testsuite.in:1.578
1:
-
test_true([["$Id: testsuite.in,v 1.
577
2002/12/
11
21
:
54
:
40
mast
Exp $"]]);
+
test_true([["$Id: testsuite.in,v 1.
578
2002/12/
12
17
:
14:
54
nilsson
Exp $"]]);
// This triggered a bug only if run sufficiently early. test_compile_any([[#pike 7.2]])
7933:
x[x] = 1; return equal (copy_value (x), x); ]], 1)
+
test_any([[
+
array a=({0,0,0});
+
array b=copy_value(a); b[0]=17; b[1]=42; b[2]=128;
+
return equal( ({0,0,0}), a) && equal( ({17,42,128}), b);
+
]], 1)
// - crypt test_true(stringp(crypt("hej")))