Branch: Tag:

1998-10-12

1998-10-12 22:57:13 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

better string-index-assignment test

Rev: src/testsuite.in:1.125

1: - stest_true([["$Id: testsuite.in,v 1.124 1998/10/11 11:18:53 hubbe Exp $"]]) + stest_true([["$Id: testsuite.in,v 1.125 1998/10/12 22:57:13 hubbe Exp $"]])   cond([[all_constants()->_verify_internals]],   [[    test_do(_verify_internals())
2513:   ]])      test_any([[string s="foo"; s[2]='t'; s[0]--; return s;]],"eot") - test_any([[string s="foo"; s[2]=0777; s[0]--; return s;]],"eo\777") - test_any([[string s="foo"; s[2]=07777777; s[0]--; return s;]],"eo\7777777") + 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")      cond([[all_constants()->_verify_internals]],   [[    test_do(_verify_internals())   ]])