From a1cf4758c42b107e90fdfc30ccc4e54e90816aae Mon Sep 17 00:00:00 2001
From: Martin Stjernholm <mast@lysator.liu.se>
Date: Thu, 12 Jul 2001 17:07:35 +0200
Subject: [PATCH] Added some tests to ensure that simple types aren't removed
in weak references.
Rev: src/testsuite.in:1.443
---
src/testsuite.in | 17 ++++++++++++++++-
1 file changed, 16 insertions(+), 1 deletion(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index 98297afe39..f86fb7bd6a 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.442 2001/07/05 22:22:38 hubbe Exp $"]]);
+test_true([["$Id: testsuite.in,v 1.443 2001/07/12 15:07:35 mast Exp $"]]);
cond([[all_constants()->_verify_internals]],
[[
@@ -3134,6 +3134,21 @@ ifefun(gc,
return !sizeof (a);
}]], 1);
+ test_any_equal([[{
+ array a = set_weak_flag (({1, "foo", 3.14}), 1);
+ gc();
+ return a;
+ }]], ({1, "foo", 3.14}));
+ test_any_equal([[{
+ multiset a = set_weak_flag ((<1, "foo", 3.14>), 1);
+ gc();
+ return a;
+ }]], (<1, "foo", 3.14>));
+ test_any_equal([[{
+ mapping a = set_weak_flag (([1: 1, "foo": "foo", 3.14: 3.14]), 1);
+ gc();
+ return a;
+ }]], ([1: 1, "foo": "foo", 3.14: 3.14]));
]])
ifefun(gc,
--
GitLab