From cc10c0732105ab7e34ef69eb9939895b43fb1ea1 Mon Sep 17 00:00:00 2001
From: Martin Stjernholm <mast@lysator.liu.se>
Date: Tue, 17 Aug 1999 05:17:57 +0200
Subject: [PATCH] Check that array["string"] fails.

Rev: src/testsuite.in:1.188
---
 src/testsuite.in | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/src/testsuite.in b/src/testsuite.in
index 57970fb630..4c0c4993c4 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-stest_true([["$Id: testsuite.in,v 1.187 1999/08/17 01:08:29 mast Exp $"]])
+stest_true([["$Id: testsuite.in,v 1.188 1999/08/17 03:17:57 mast Exp $"]])
 cond([[all_constants()->_verify_internals]],
 [[
   test_do(_verify_internals())
@@ -603,13 +603,8 @@ 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])}))
-test_eval_error([[
-  class A {int i = 10; int ii(){return i;}};
-  class B {inherit A;};
-  class C {inherit A; int i = 11;};
-  array a = ({A(1),B(2),C(3)});
-  a["i"] = 7;
-]])
+test_eval_error(array a = ({(["i":1]),([])}); a["i"];)
+test_eval_error(array a = ({(["i":1]),([])}); a["i"] = 7;)
 test_any([[
   class A {int i = 10; int ii(){return i;}};
   class B {inherit A;};
-- 
GitLab