Branch: Tag:

1998-05-16

1998-05-16 10:58:01 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

more tests

Rev: src/testsuite.in:1.110

1: - stest_true([["$Id: testsuite.in,v 1.109 1998/05/16 10:09:18 hubbe Exp $"]]) + stest_true([["$Id: testsuite.in,v 1.110 1998/05/16 10:58:01 hubbe Exp $"]])   cond([[all_constants()->_verify_internals]],   [[    test_do(_verify_internals())
1266:   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(array(array(int)))) ({ ({ ({"1","4711",2.0,4}) }) }) ]],[[ ({ ({ ({1,4711,2,4}) }) }) ]]) + test_equal([[ (array(array(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>) )]])