From 72a90c5f9d04026b966887756e48c7973344ce99 Mon Sep 17 00:00:00 2001
From: Martin Stjernholm <mast@lysator.liu.se>
Date: Sat, 23 Sep 2000 23:11:47 +0200
Subject: [PATCH] Checks for indices and values on mappings with destructed
indices.
Rev: src/testsuite.in:1.332
---
src/testsuite.in | 14 +++++++++++++-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index 9b0a4da4e4..4e151e5343 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.331 2000/09/20 13:19:52 noring Exp $"]]);
+test_true([["$Id: testsuite.in,v 1.332 2000/09/23 21:11:47 mast Exp $"]]);
cond([[all_constants()->_verify_internals]],
[[
@@ -1856,6 +1856,18 @@ test_any([[{
destruct (o);
return !equal (m, n) && !equal (m, n);
}]], 1)
+test_any([[{
+ object o = class{}();
+ mapping m = ([o: 1]);
+ destruct (o);
+ return sizeof (indices (m)) || sizeof (m);
+}]], 0)
+test_any([[{
+ object o = class{}();
+ mapping m = ([o: 1]);
+ destruct (o);
+ return sizeof (values (m)) || sizeof (m);
+}]], 0)
// rows
test_equal([[rows(({1,2,3,4,5,6,7,8,9}),({6,7,2}))]],[[({7,8,3})]])
--
GitLab