diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-17 20:28:48 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-08-18 16:38:37 +0200 |
commit | 907931e62d154564089a2e88145d56afa68231fa (patch) | |
tree | 67a27bdc54b34a815eee12b76ceedf71c3c61e06 /tests/test/util.scm | |
parent | Up-prioritize api change for group-by. (diff) | |
download | calp-907931e62d154564089a2e88145d56afa68231fa.tar.gz calp-907931e62d154564089a2e88145d56afa68231fa.tar.xz |
Add uniq family of procedures.c-parser
Diffstat (limited to '')
-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))) |