Branch: Tag:

2003-11-12

2003-11-12 16:22:18 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Added a few more mapping tests.

Rev: src/testsuite.in:1.692

1: - test_true([["$Id: testsuite.in,v 1.691 2003/11/11 19:30:25 mast Exp $"]]); + test_true([["$Id: testsuite.in,v 1.692 2003/11/12 16:22:18 grubba Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])
4490:    {    m[reverse(e-50)]=e-50;    a[e]=reverse(e-50); -  b[e]=reverse(e-50); +  b[e]=e-50;    }    add_constant("mtest_m2",m);    add_constant("mtest_i2",a);
4510:   test_equal(sort(indices(mtest_m2-mtest_m)),sort(mtest_i2-mtest_i))   test_equal(sort(indices(mtest_m2^mtest_m)),sort(mtest_i2^mtest_i))    + test_equal(sort(values(mtest_m|mtest_m2)),sort(map(mtest_i|mtest_i2,mtest_m|mtest_m2))) + test_equal(sort(values(mtest_m&mtest_m2)),sort(map(mtest_i&mtest_i2,mtest_m|mtest_m2))) + test_equal(sort(values(mtest_m-mtest_m2)),sort(map(mtest_i-mtest_i2,mtest_m|mtest_m2))) + test_equal(sort(values(mtest_m^mtest_m2)),sort(map(mtest_i^mtest_i2,mtest_m|mtest_m2))) + test_equal(sort(values(mtest_m2|mtest_m)),sort(map(mtest_i2|mtest_i,mtest_m|mtest_m2))) + test_equal(sort(values(mtest_m2&mtest_m)),sort(map(mtest_i2&mtest_i,mtest_m|mtest_m2))) + test_equal(sort(values(mtest_m2-mtest_m)),sort(map(mtest_i2-mtest_i,mtest_m|mtest_m2))) + test_equal(sort(values(mtest_m2^mtest_m)),sort(map(mtest_i2^mtest_i,mtest_m|mtest_m2))) +    test_do(add_constant("mtest_m"); add_constant("mtest_i"); add_constant("mtest_v");)   test_do(add_constant("mtest_m2"); add_constant("mtest_i2"); add_constant("mtest_v2");)