diff options
| author | Leah Neukirchen <leah@vuxu.org> | 2022-12-07 00:33:16 +0100 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2022-12-07 00:33:44 +0100 |
| commit | 3119e2a2b550919326f7850242a6083c81a9b1fa (patch) | |
| tree | f51aab3495b5b70b1f8f61af616afe3fcff088ed /tests | |
| parent | cb824d94d9d5a81acb498b6b9462a318ac4d23aa (diff) | |
| download | mew-3119e2a2b550919326f7850242a6083c81a9b1fa.tar.gz mew-3119e2a2b550919326f7850242a6083c81a9b1fa.tar.xz mew-3119e2a2b550919326f7850242a6083c81a9b1fa.zip | |
app: allow empty arguments
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 5587d90..32d9df1 100644 --- a/tests/test.mew +++ b/tests/test.mew @@ -141,6 +141,12 @@ (test "\n" (with-output-to-string (fun () (prn)))) (test 3 (esc ret (with-output-to-string (fun () (ret (prn 1 2 3))))))) +(test-group "app" + (test 15 (app + '(4 5 6))) + (test 15 (app + 4 5 '(6))) + (test 15 (app + 4 5 6 '())) + (test 0 (app +))) + (test-group "seq" (test #t (void? (seq))) (test 1 (seq 1)) |