Branch: Tag:

2003-06-02

2003-06-02 16:36:14 by Martin Stjernholm <mast@lysator.liu.se>

Test `- and `& between mappings and arrays or multisets.

Rev: src/testsuite.in:1.651

1: - test_true([["$Id: testsuite.in,v 1.650 2003/05/30 23:19:26 mast Exp $"]]); + test_true([["$Id: testsuite.in,v 1.651 2003/06/02 16:36:14 mast Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])
4458:   test_equal([[lambda(mapping x){return ({x[17]++,x[17]++,x[17]++});}(([]))]],    [[({0,1,2})]])    + test_equal([[([1:2, 3:4]) - (<0, 1, 2>)]], ([3:4])) + test_equal([[([1:2, 3:4]) - ({0, 1, 2})]], ([3:4])) + test_equal([[([1:2, 3:4]) & (<0, 1, 2>)]], ([1:2])) + test_equal([[([1:2, 3:4]) & ({0, 1, 2})]], ([1:2])) +    // destructed indices   test_any([[{    object o = class{}();