Branch: Tag:

2003-05-15

2003-05-15 15:31:35 by Martin Stjernholm <mast@lysator.liu.se>

Test throwing an error in string[]=.

Rev: src/testsuite.in:1.640

1: - 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:    }   ]])    + // 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]],   [[