diff options
| author | Leah Neukirchen <leah@vuxu.org> | 2022-12-16 00:21:29 +0100 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2022-12-16 00:22:47 +0100 |
| commit | 8580001ef44f7a8da3b97c439473cb204a0e34f5 (patch) | |
| tree | 0322f785becd4137f8e2c0b9dca34694a3140e8f /tests | |
| parent | 28ad4b62515325463656627fa3d80a984f8c0fdb (diff) | |
| download | mew-8580001ef44f7a8da3b97c439473cb204a0e34f5.tar.gz mew-8580001ef44f7a8da3b97c439473cb204a0e34f5.tar.xz mew-8580001ef44f7a8da3b97c439473cb204a0e34f5.zip | |
add for/into
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test.mew | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/test.mew b/tests/test.mew index 3aa70bb..b7e5da7 100644 --- a/tests/test.mew +++ b/tests/test.mew @@ -395,6 +395,12 @@ y (vector 6 7)) (c x))))) +(test-group "for/into" + (test '(4 5 6) (for/into '() (x (vector 3 4 5)) + (inc x))) + (test '#(#(3 6) #(4 7)) (for/into #() (x (vector 3 4 5) + y (vector 6 7)) + (vector x y)))) (test-group "eof" (test-assert (eof-object? (eof)))) |