diff options
| author | Leah Neukirchen <leah@vuxu.org> | 2022-11-17 23:37:25 +0100 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2022-11-17 23:37:25 +0100 |
| commit | beb92ad9009f6b6a338430ba137e33201cca2230 (patch) | |
| tree | f1ec893dff80a389cb6594f0cec2b35d8930a41b /tests | |
| parent | 78ebb6e306d843bb45c0baad563be37828d32fae (diff) | |
| download | mew-beb92ad9009f6b6a338430ba137e33201cca2230.tar.gz mew-beb92ad9009f6b6a338430ba137e33201cca2230.tar.xz mew-beb92ad9009f6b6a338430ba137e33201cca2230.zip | |
add imp
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test.mew | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/test.mew b/tests/test.mew index 295d293..b08bfd6 100644 --- a/tests/test.mew +++ b/tests/test.mew @@ -525,4 +525,17 @@ (test '(5 -1 6 0) (scan-right - 0 '(4 5 6))) (test '(42) (scan-right * 42 '()))) +(test-group "imp" + (test #t (imp #t #t)) + (test #f (imp #t #f)) + (test #t (imp #f #t)) + (test #t (imp #f #f)) + + (test #t (imp #f (error "not reached"))) + (test #t (imp #t #t #f (error "not reached"))) + (test 42 (imp #t #t #t 42)) + (test 42 (imp 39 40 41 42)) + (test #t (imp 39 #f 41 42))) + + (test-exit) |