diff options
| author | Leah Neukirchen <leah@vuxu.org> | 2022-11-22 18:36:58 +0100 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2022-11-22 18:36:58 +0100 |
| commit | 116e3cab66eb8d9d09aca20310a01f544848b7fa (patch) | |
| tree | 73607acdb6aeeb3ac712bbf8e391dc94e57dea32 /tests | |
| parent | aff9a08de8df4d050ff0bcb007c25dcb30997327 (diff) | |
| download | mew-116e3cab66eb8d9d09aca20310a01f544848b7fa.tar.gz mew-116e3cab66eb8d9d09aca20310a01f544848b7fa.tar.xz mew-116e3cab66eb8d9d09aca20310a01f544848b7fa.zip | |
add =>*
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test.mew | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/test.mew b/tests/test.mew index 9220312..904059d 100644 --- a/tests/test.mew +++ b/tests/test.mew @@ -478,6 +478,11 @@ (test 43 (=> '(6 7) (op apply * _) inc)) (test 42 (=> 42))) +(test-group "=>*" + (test 42 (=>* (values 6 7) * dec inc)) + (test '(6 7) (receive (=>* (values 6 7)))) + (test '(7 6) (receive (=>* (values 6 7) (proj 1 0))))) + (test-group "set=>" (test 42 (seq (def x 40) |