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 | |
| parent | Up-prioritize api change for group-by. (diff) | |
| download | calp-c-parser.tar.gz calp-c-parser.tar.xz | |
Add uniq family of procedures.c-parser
Diffstat (limited to 'tests')
| -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))) |