From 87019d59af31f01b92a3937f9175a656752768c0 Mon Sep 17 00:00:00 2001
From: Fredrik Noring <noring@nocrew.org>
Date: Wed, 26 Jan 2000 14:45:55 +0100
Subject: [PATCH] Small fix for has_index and has_value.
Rev: src/testsuite.in:1.264
---
src/testsuite.in | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index 51ff435666..11fe2b2d19 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.263 2000/01/24 03:28:29 mast Exp $"]]);
+test_true([["$Id: testsuite.in,v 1.264 2000/01/26 13:45:55 noring Exp $"]]);
cond([[all_constants()->_verify_internals]],
[[
@@ -3738,7 +3738,7 @@ test_true([[ has_index([mixed] ([ "a":"A" ]), "a") ]])
test_false([[ has_index([mixed] ([ "a":"A" ]), "A") ]])
test_true([[ has_index([mixed] ([ "a":"A", "b":"B", "c":"C" ]), "b") ]])
test_false([[ has_index([mixed] ([ "a":"A", "b":"B", "c":"C" ]), "B") ]])
-test_eval_error([[ has_index((class {})(), "foo") ]])
+test_false([[ has_index((class {})(), "foo") ]])
test_true([[has_index((class{array _indices(){return({"a","b"});}})(),"b")]])
// - has_value
@@ -3753,7 +3753,7 @@ test_true([[ has_value([mixed] ([ "a":"A" ]), "A") ]])
test_false([[ has_value([mixed] ([ "a":"A" ]), "a") ]])
test_true([[ has_value([mixed] ([ "a":"A", "b":"B", "c":"C" ]), "B") ]])
test_false([[ has_value([mixed] ([ "a":"A", "b":"B", "c":"C" ]), "b") ]])
-test_eval_error([[ has_value((class {})(), "foo") ]])
+test_false([[ has_value((class {})(), "foo") ]])
test_true([[has_value((class{array _values(){return({"a","b"});}})(),"b")]])
// - search
--
GitLab