diff options
Diffstat (limited to 'tests/test.mew')
| -rw-r--r-- | tests/test.mew | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/test.mew b/tests/test.mew index daeffc1..295d293 100644 --- a/tests/test.mew +++ b/tests/test.mew @@ -517,4 +517,12 @@ (test 1 (search #(1 2 3) #(0 1 2 3 4))) (test 1 (search '(1 2 3) '(0 1 2 3 4)))) +(test-group "scan" + (test '(0 -4 -9 -15) (scan (flip -) 0 '(4 5 6))) + (test '(42) (scan * 42 '()))) + +(test-group "scan-right" + (test '(5 -1 6 0) (scan-right - 0 '(4 5 6))) + (test '(42) (scan-right * 42 '()))) + (test-exit) |