diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-22 14:52:08 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-22 14:52:08 +0200 |
commit | 1e8171b95e146b18c2c173445bd34dc3cacee3af (patch) | |
tree | 2aae1a3faecbfd685ad1d7aea5f349a7c3dd0184 /tests/unit/util/hnh-util.scm | |
parent | Add tests for sxml namespaced + fix 'root-element'. (diff) | |
download | calp-1e8171b95e146b18c2c173445bd34dc3cacee3af.tar.gz calp-1e8171b95e146b18c2c173445bd34dc3cacee3af.tar.xz |
Test work.
Diffstat (limited to 'tests/unit/util/hnh-util.scm')
-rw-r--r-- | tests/unit/util/hnh-util.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/tests/unit/util/hnh-util.scm b/tests/unit/util/hnh-util.scm index 8586b6d9..79b86b54 100644 --- a/tests/unit/util/hnh-util.scm +++ b/tests/unit/util/hnh-util.scm @@ -202,7 +202,11 @@ (!= 1 2))) (test-group "init+last" - 'TODO) + (call-with-values + (lambda () (init+last (iota 5))) + (lambda (init last) + (test-equal '(0 1 2 3) init) + (test-equal 4 last)))) (test-group "take-to" (test-equal "Take to" @@ -336,6 +340,10 @@ (test-equal '(#\H #\1 #\2 #\3 #\4 #\5 #\6) tail))))) (test-group "cross-product" + + (test-equal "null case" + '() (cross-product)) + (test-equal "Basic case" '((1 4) (1 5) |