diff options
Diffstat (limited to 'tests/test/util.scm')
| -rw-r--r-- | tests/test/util.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/test/util.scm b/tests/test/util.scm index 5e2aab4e..f87ed3c4 100644 --- a/tests/test/util.scm +++ b/tests/test/util.scm @@ -139,6 +139,13 @@ (test-equal "assq-ref-all" '(1 3) (assq-ref-all '((a . 1) (b . 2) (a . 3)) 'a)) (test-equal "assv-ref-all "'(1 3) (assv-ref-all '((a . 1) (b . 2) (a . 3)) 'a)) + +(test-group "Unique family" + (test-equal + '(a b c b) + (uniq '(a b b c b b)))) + + (test-equal "vector-last" 1 (vector-last #(0 2 3 1))) |