From b3fedbdd47686cb8b3ecb74c5211483c3c3873f6 Mon Sep 17 00:00:00 2001
From: Martin Stjernholm <mast@lysator.liu.se>
Date: Fri, 15 Sep 2000 03:07:38 +0200
Subject: [PATCH] Another test for copy_value and weak flags. I don't really
know what the best way is to deal with them, but I think at least it should
be consequent.
Rev: src/testsuite.in:1.330
---
src/testsuite.in | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index 227b89e8b1..35602da19b 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.329 2000/09/15 00:31:43 mast Exp $"]]);
+test_true([["$Id: testsuite.in,v 1.330 2000/09/15 01:07:38 mast Exp $"]]);
cond([[all_constants()->_verify_internals]],
[[
@@ -4717,8 +4717,9 @@ do_test_copy_value( ([]) )
do_test_copy_value( (<>) )
do_test_copy_value( (< ([]), ({1}) ,"" , 1.0 >) )
test_true(get_weak_flag(copy_value(set_weak_flag(({17}), 1))))
-test_true(get_weak_flag(copy_value(set_weak_flag(([17:17]), 1))))
test_true(get_weak_flag(copy_value(set_weak_flag((<17>), 1))))
+test_true(get_weak_flag(copy_value(set_weak_flag(([17:17]), 1))))
+test_true(get_weak_flag(copy_value(set_weak_flag(([17:({17})]), 1))))
// - crypt
test_true(stringp(crypt("hej")))
--
GitLab