From c27206f226fd3fe928ba43f9d16d77ac5dbc10ee Mon Sep 17 00:00:00 2001
From: Martin Nilsson <mani@lysator.liu.se>
Date: Thu, 12 Dec 2002 18:14:54 +0100
Subject: [PATCH] Copy value test from Image test suite.
Rev: src/testsuite.in:1.578
---
src/testsuite.in | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index df60ee111b..bb646b30a0 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-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,6 +7933,11 @@ test_any([[
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")))
--
GitLab