From 7f202ac64ddc1c28a87e3ccd1c4ade919b32e01c Mon Sep 17 00:00:00 2001
From: Martin Stjernholm <mast@lysator.liu.se>
Date: Sun, 13 Jun 2004 16:24:48 +0200
Subject: [PATCH] Added some tests for destructed multiset indices.
Rev: src/testsuite.in:1.731
---
src/testsuite.in | 16 +++++++++++++++-
1 file changed, 15 insertions(+), 1 deletion(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index 8573c7582c..47ce65f088 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,5 +1,5 @@
START_MARKER
-test_true([["$Id: testsuite.in,v 1.730 2004/05/28 17:28:09 grubba Exp $"]]);
+test_true([["$Id: testsuite.in,v 1.731 2004/06/13 14:24:48 mast Exp $"]]);
// This triggered a bug only if run sufficiently early.
test_compile_any([[#pike 7.2]])
@@ -4481,6 +4481,20 @@ define([[MTEST]])
test_equal([[lambda(multiset x){return ({x[17]++,x[17]++,x[17]++});}((<>))]],
[[({0,1,1})]])
+test_any([[
+ object o1 = class{}(), o2 = class{}(), o3 = class{}();
+ multiset m = (<o1, o2, o3, 17>);
+ destruct (o1), destruct (o2), destruct (o3);
+ return m[17];
+]], 1);
+
+test_any_equal([[
+ object o1 = class{}(), o2 = class{}(), o3 = class{}();
+ multiset m = (<o1, o2, o3, 17>);
+ destruct (o1), destruct (o2), destruct (o3);
+ return copy_value (m);
+]], (<17>));
+
test_do([[
multiset a = copy_value ((<(<1,2,3>), ({5,4}), ([1:2]), 1, ({}), (<1,2>), "foo">));
foreach (a; mixed i;)
--
GitLab