From 862bd0f99c4367222710809f7a2ea84b982f13c7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Tue, 26 Aug 2003 19:34:32 +0200
Subject: [PATCH] Added test for bug in recursive casting of multisets.
Rev: src/testsuite.in:1.671
---
src/testsuite.in | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index e6a479f101..36df64b42d 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.670 2003/08/20 19:41:07 mast Exp $"]]);
+test_true([["$Id: testsuite.in,v 1.671 2003/08/26 17:34:32 grubba Exp $"]]);
// This triggered a bug only if run sufficiently early.
test_compile_any([[#pike 7.2]])
@@ -6645,6 +6645,7 @@ test_true([[(array(array))([1:2]) ]])
test_true([[(array(array))([1:2,3:4]) ]])
test_true([[(array(array))([1:2,3:4,5:6]) ]])
test_equal( [[ (multiset) ({1})]], [[ (< 1 >) ]] )
+test_equal( [[ (multiset(string)) ({1})]], [[ (< "1" >) ]] )
test_eval_error([[return (mapping)""]])
test_equal([[ (mapping)({({1,2}),({3,4})})]], [[([1:2,3:4]) ]])
test_equal([[ ({({1,2})})]], [[(array)([1:2]) ]])
--
GitLab