diff options
| author | Leah Neukirchen <leah@vuxu.org> | 2022-12-12 23:02:11 +0100 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2022-12-16 00:12:57 +0100 |
| commit | 8be1e42cfbf9e3bc9d64dc839969d4b4293afb53 (patch) | |
| tree | 9c4d49279f83565999a712582514a9d3489932e7 /tests | |
| parent | 0c5dec75a7c68ca69384bbc27f8a273976de92d1 (diff) | |
| download | mew-8be1e42cfbf9e3bc9d64dc839969d4b4293afb53.tar.gz mew-8be1e42cfbf9e3bc9d64dc839969d4b4293afb53.tar.xz mew-8be1e42cfbf9e3bc9d64dc839969d4b4293afb53.zip | |
add nth-accumulator
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test.mew | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/test.mew b/tests/test.mew index 72d1e27..a775928 100644 --- a/tests/test.mew +++ b/tests/test.mew @@ -486,6 +486,11 @@ ; uniq-accumulator +(test-group "nth-accumulator" + (test 6 (into (nth-accumulator 2) '(4 5 6 7))) + (test #t (void? (into (nth-accumulator 8) '(4 5 6 7)))) + (test #t (void? (into (nth-accumulator 8) '())))) + (test-group "one-of" (test #t ((one-of 1 2 3) 1)) (test #f ((one-of 1 2 3) 4)) |