diff options
| author | Leah Neukirchen <leah@vuxu.org> | 2022-12-01 21:46:18 +0100 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2022-12-01 22:56:31 +0100 |
| commit | 9816d6cea8603026458251f22b147df73b106bd8 (patch) | |
| tree | 80d8ef1a7e8506db193728dcace00332f9b44746 /tests | |
| parent | f690959ef59004ba00d2d54073c9b8265e5b6d57 (diff) | |
| download | mew-9816d6cea8603026458251f22b147df73b106bd8.tar.gz mew-9816d6cea8603026458251f22b147df73b106bd8.tar.xz mew-9816d6cea8603026458251f22b147df73b106bd8.zip | |
add fun=>, op=>
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test.mew | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/test.mew b/tests/test.mew index 92eb35c..e674481 100644 --- a/tests/test.mew +++ b/tests/test.mew @@ -531,6 +531,18 @@ (test 42 (and=> 40 inc inc)) (test #f (and=> 40 odd? inc))) +(test-group "op=>" + (test 42 (op=> 40 (+ _ 1) inc)) + (test #f (op=> 40 inc even?)) + (test 43 (op=> '(6 7) (apply * _) inc)) + (test 42 (op=> 42))) + +(test-group "fun=>" + (test 42 ((fun=> (+ _ 1) inc) 40)) + (test #f ((fun=> inc even?) 40)) + (test 43 ((fun=> * inc) 6 7)) + (test 42 ((fun=>) 42))) + (test-group "void" (test #t (void? (void))) (test #t (void? (void 1 2 3)))) |