Branch: Tag:

1998-05-16

1998-05-16 08:22:37 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

more tests added

Rev: src/testsuite.in:1.107

1: - stest_true([["$Id: testsuite.in,v 1.106 1998/05/13 07:45:31 hubbe Exp $"]]) + stest_true([["$Id: testsuite.in,v 1.107 1998/05/16 08:22:37 hubbe Exp $"]])   cond([[all_constants()->_verify_internals]],   [[    test_do(_verify_internals())
1264:   test_eq([[(string)1]],[["1"]])   test_equal([[(array)(["1":1])]],[[ ({ ({"1", 1}) }) ]])   test_equal([[(array(int)) ({"1","4711",2.0,4})]],[[({1,4711,2,4})]]) + test_equal([[(array(array))({({})})]],[[({({})})]]) + test_equal([[(array(array(int))) ({({"1","4711",2.0,4})})]],[[({({1,4711,2,4})]})])      test_equal([[(array)"foo"]],[[ values("foo") ]])   test_equal([[(array)(<1,2,3>)]],[[ indices( (<1,2,3>) )]])   test_equal([[sort(column((array)([1:2,3:4]),0))]],[[ sort(indices(([1:2,3:4])) )]])   test_equal([[sort(column((array)([1:2,3:4]),1))]],[[ sort(values(([1:2,3:4])))]]) -  + test_true([[(array(array))([]) ]]) + test_true([[(array(array))([1:2]) ]]) + test_true([[(array(array))([1:2,3:4]) ]])   test_true([[(array(array))([1:2,3:4,5:6]) ]])      // testing @