From beb92ad9009f6b6a338430ba137e33201cca2230 Mon Sep 17 00:00:00 2001 From: Leah Neukirchen Date: Thu, 17 Nov 2022 23:37:25 +0100 Subject: add imp --- tests/test.mew | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'tests') 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) -- cgit 1.4.1