Branch: Tag:

2008-06-27

2008-06-27 23:14:38 by Martin Nilsson <mani@lysator.liu.se>

Fixed tests that broke due to better type checking.

Rev: src/testsuite.in:1.830

1:   START_MARKER - test_true([["$Id: testsuite.in,v 1.829 2008/06/27 12:53:27 grubba Exp $"]]); + test_true([["$Id: testsuite.in,v 1.830 2008/06/27 23:14:38 nilsson Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])
7462:   test_eq(([0:'f',1:'o',2:'o'])[0],'f')   test_eq(([0:'f',1:'o',2:'o'])[1],'o')   test_eq(([0:'f',1:'o',2:'o'])[2],'o') - test_eq(([0:'f',1:'o',2:'o'])[3],0) - test_eq(([0:'f',1:'o',2:'o'])[-1],0) + test_eq(([0:'f',1:'o',2:'o'])[random(0)+3],0) + test_eq(([0:'f',1:'o',2:'o'])[random(0)-1],0)   test_eq((<'f','o','o'>)['o'],1)   test_eq((<'f','o','o'>)['f'],1) - test_eq((<'f','o','o'>)['b'],0) + test_eq((<'f','o','o'>)[random(0)+'b'],0)   test_eq((<'f','o','o'>)[-1],0)      test_eq([[class Z { mixed `->(mixed x) { return this_object()[x]; } int foo() { return 1; }}()->foo()]],1)