From 6668b8ac2cabe5b4651ce52cf3e2ade98cd2fe8e Mon Sep 17 00:00:00 2001
From: Martin Stjernholm <mast@lysator.liu.se>
Date: Thu, 15 May 2003 17:31:35 +0200
Subject: [PATCH] Test throwing an error in string[]=.

Rev: src/testsuite.in:1.640
---
 src/testsuite.in | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/testsuite.in b/src/testsuite.in
index 8bf88d5a7f..f75a9e607e 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.639 2003/04/28 22:04:10 nilsson Exp $"]]);
+test_true([["$Id: testsuite.in,v 1.640 2003/05/15 15:31:35 mast Exp $"]]);
 
 // This triggered a bug only if run sufficiently early.
 test_compile_any([[#pike 7.2]])
@@ -9683,9 +9683,11 @@ test_do([[
   }
 ]])
 
+// string[]=
 test_any([[string s="foo"; s[2]='t'; s[0]--; return s;]],"eot")
 test_any([[string s="foo"; s[2]=0777; s[1]--; return s;]],"fn\777")
 test_any([[string s="foo"; s[2]=07777777; s[1]--; return s;]],"fn\7777777")
+test_any([[string s="foo"; s[2]='t'; catch (s[10]='x'); return s;]], "fot")
 
 cond([[all_constants()->_verify_internals]],
 [[
-- 
GitLab