Branch: Tag:

2001-01-03

2001-01-03 21:14:36 by Martin Stjernholm <mast@lysator.liu.se>

Added a test for `| on arrays with objects that define strange `<.

Rev: src/testsuite.in:1.361

1: - test_true([["$Id: testsuite.in,v 1.360 2001/01/03 19:47:09 nilsson Exp $"]]); + test_true([["$Id: testsuite.in,v 1.361 2001/01/03 21:14:36 mast Exp $"]]);      cond([[all_constants()->_verify_internals]],   [[
3922:   test_equal( ({1,2,3,4,4}) | ({3,5,6}), ({1,2,4,4,3,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([[ +  class Foo {int `< (object o) {return 0;}}; +  return sizeof (({Foo()}) | ({Foo()})); + ]], 2)      // testing &   test_eq(0 & 0,0)