From 2228d5c3db24cf7aded005037f706b09ea4ebe2e Mon Sep 17 00:00:00 2001
From: Martin Stjernholm <mast@lysator.liu.se>
Date: Fri, 20 Aug 1999 08:04:01 +0200
Subject: [PATCH] Check that array["string"] works now instead..
Rev: src/testsuite.in:1.191
---
src/testsuite.in | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index fe5efc4664..bf3385d7a5 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-stest_true([["$Id: testsuite.in,v 1.190 1999/08/20 05:44:20 mast Exp $"]])
+stest_true([["$Id: testsuite.in,v 1.191 1999/08/20 06:04:01 mast Exp $"]])
cond([[all_constants()->_verify_internals]],
[[
test_do(_verify_internals())
@@ -603,8 +603,10 @@ test_any_equal(array a = ({([1:10]),([1:11,2:12]),([2:13])}); map(a,`[]=,1,1); r
({([1:1]),([1:1,2:12]),([1:1,2:13])}))
test_any_equal(array a = ({(["a":10]),(["b":11]),([])}); map(a,`->=,"a",1); return a;,
({(["a":1]),(["a":1,"b":11]),(["a":1])}))
-dnl test_eval_error(array a = ({(["i":1]),([])}); a["i"];)
-test_eval_error(array a = ({(["i":1]),([])}); a["i"] = 7;)
+test_any_equal(array a = ({(["i":1]),([])}); return a["i"];,
+ ({1,0}))
+test_any_equal(array a = ({(["i":1]),([])}); a["i"] = 7; return a;,
+ ({(["i":7]),(["i":7])}))
test_any([[
class A {int i = 10; int ii(){return i;}};
class B {inherit A;};
--
GitLab