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