diff options
| author | Leah Neukirchen <leah@vuxu.org> | 2022-11-03 20:16:15 +0100 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2022-11-03 20:16:15 +0100 |
| commit | 86844e3db77c52cfff703c6e31ce7877e3fe0bba (patch) | |
| tree | 9cc2861314c4fe47478e7d1ac02e1a3b6e04fa56 /tests | |
| parent | 7a469b8d057464a1953f6b02b36ea3d5626c42fa (diff) | |
| download | mew-86844e3db77c52cfff703c6e31ce7877e3fe0bba.tar.gz mew-86844e3db77c52cfff703c6e31ce7877e3fe0bba.tar.xz mew-86844e3db77c52cfff703c6e31ce7877e3fe0bba.zip | |
add void, void?
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test.mew | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/tests/test.mew b/tests/test.mew index 7b6f463..4fa0351 100644 --- a/tests/test.mew +++ b/tests/test.mew @@ -285,7 +285,7 @@ ; final (test-group "final" (test 3 (final (generator 1 2 3))) - (test #t (eq? (void) (final (generator))))) + (test #t (void? (final (generator))))) ; -> @@ -378,4 +378,14 @@ (test 43 (act '(6 7) (op apply * _) inc)) (test 42 (act 42))) +(test-group "void" + (test #t (void? (void))) + (test #t (void? (void 1 2 3)))) + +(test-group "void?" + (test #f (void? 1)) + (test #f (void? #f)) + (test #t (void? (void))) + (test #t (void? (if #f #f)))) + (test-exit) |