Branch: Tag:

2003-11-10

2003-11-10 01:24:33 by Martin Stjernholm <mast@lysator.liu.se>

| on arrays now behaves slightly differently. Some more tests for ^.

Rev: src/testsuite.in:1.690

1: - test_true([["$Id: testsuite.in,v 1.689 2003/11/08 16:09:32 mast Exp $"]]); + test_true([["$Id: testsuite.in,v 1.690 2003/11/10 01:24:33 mast Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])
6529:   test_eq(1 | 9,9)   test_eq([[ "\007" | "\023"]],"\027")   test_eq([[ "\177777x" | "ab" ]], "\177777z") - test_equal( ({1,2,3,4,4}) | ({3,5,6}), ({1,2,4,4,3,5,6})) + test_equal( ({1,2,3,4,4}) | ({3,5,6}), ({1,2,3,4,4,5,6}))   test_equal( (<4,5,6>) | (<5,5,5>), (<4,5,5,5,6>) )   test_equal( ([-4:8,8:7]) | ([3:3,8:3]), ([-4:8,8:3,3:3]) )   test_any([[
6555:   test_eq(1 ^ 9,8)   test_eq([[ "\007" ^ "\023"]],"\024")   test_eq([[ "\177777x" ^ "ab" ]], "\177636\32") - test_equal( Array.sort( ({1,2,3,4,4}) ^ ({3,5,6}) ) , ({1,2,4,4,5,6})) + test_equal( ({1,2,3,4,4}) ^ ({3,5,6}) , ({1,2,4,4,5,6}))   test_equal( (<4,5,6>) ^ (<5,5,5>), (<4,5,5,6>) )   test_equal( ([-4:8,8:7]) ^ ([3:3,8:3]), ([-4:8,3:3]) ) -  + test_equal(({1,3,3,3,4}) ^ ({2,3,3,5}), ({1,3,4,2,5})) + test_equal(({1,3,3,4}) ^ ({2,3,3,3,5}), ({1,4,2,3,5}))      // testing <<   test_eq(1<<0,1)