pike.git/ src/ testsuite.in

2004-05-19

2004-05-19 19:00:17 by Martin Stjernholm <mast@lysator.liu.se>

• fb025e772c3097599e95528caff935520fefe859 (9 lines) (+8/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

Test multiset order after copy_value.

Rev: src/testsuite.in:1.727

1:   START_MARKER - test_true([["$Id: testsuite.in,v 1.726 2004/05/13 23:33:15 nilsson Exp $"]]); + test_true([["$Id: testsuite.in,v 1.727 2004/05/19 19:00:17 mast Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])
4470:   test_equal([[lambda(multiset x){return ({x[17]++,x[17]++,x[17]++});}((<>))]],    [[({0,1,1})]])    + test_do([[ +  multiset a = copy_value ((<(<1,2,3>), ({5,4}), ([1:2]), 1, ({}), (<1,2>), "foo">)); +  foreach (a; mixed i;) +  if (!a[i]) error ("Can't find multiset member in itself: %O\n", i); + ]]) +    // mapping tests      test_any([[mapping m=([]);int e;