diff options
| author | Leah Neukirchen <leah@vuxu.org> | 2023-01-08 16:13:38 +0100 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2023-01-08 16:13:38 +0100 |
| commit | 18bfa25b243653ae06956e2d029a3ccbd5d3f4e8 (patch) | |
| tree | 088484380fdf7a1bb074101d10c3a085ec996d76 /tests | |
| parent | 6577a1d3c3e250ea9cd204baac4633e5e68ceabb (diff) | |
| download | mew-18bfa25b243653ae06956e2d029a3ccbd5d3f4e8.tar.gz mew-18bfa25b243653ae06956e2d029a3ccbd5d3f4e8.tar.xz mew-18bfa25b243653ae06956e2d029a3ccbd5d3f4e8.zip | |
add cr
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 837edd8..633588a 100644 --- a/tests/test.mew +++ b/tests/test.mew @@ -285,6 +285,12 @@ (test 42 ((op* * 7) 2 3)) (test 42 ((op* * 2 ... 3) 7))) +(test-group "cr" + (test '(foo) (cr '(foo))) + (test 42 (cr 42)) + (test-error (cr)) + (test-error (cr 42 43))) + (test-group "rep" (test #t (void? (rep loop ()))) (test 42 (rep loop (x 27 y 5) |