From de51d15ebed80d865c1447e08ab40f08f22f0433 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Wed, 13 May 1998 00:45:31 -0700
Subject: [PATCH] more tests
Rev: src/testsuite.in:1.106
---
src/testsuite.in | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index d1813fda6d..30cbc74d8a 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-stest_true([["$Id: testsuite.in,v 1.105 1998/05/12 23:51:27 hubbe Exp $"]])
+stest_true([["$Id: testsuite.in,v 1.106 1998/05/13 07:45:31 hubbe Exp $"]])
cond([[all_constants()->_verify_internals]],
[[
test_do(_verify_internals())
@@ -1267,6 +1267,9 @@ test_equal([[(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))([1:2,3:4,5:6]) ]])
// testing @
test_equal(({1,2,3}),lambda(mixed ... x) { return x; }(@a()))
--
GitLab