diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test.mew | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/tests/test.mew b/tests/test.mew index 948837a..52de20a 100644 --- a/tests/test.mew +++ b/tests/test.mew @@ -370,7 +370,13 @@ (into '() (cross-product '(a b c)))) (test '() (into '() (cross-product)))) -; -> +(test-group "->" + (test 6 (-> 3 -> inc -> + 2)) + (test 9 (-> #f -> or 7 -> + 2)) + (test 9 (-> 6 ->> or 7 -> + 2)) + (test 7 (-> 5 ok-> inc ok-> + 1)) + (test (err 7) (-> (err 7) ok-> inc ok-> + 1)) + (test 7 (-> (err 6) err-> + 1))) ; fun-> |