diff options
| author | Arun Isaac | 2026-06-24 22:31:25 +0100 |
|---|---|---|
| committer | Arun Isaac | 2026-06-24 22:31:25 +0100 |
| commit | c49dbef130f09667c619d1b7b77380aa53bae7e8 (patch) | |
| tree | 89178c79d562ee93d9419b8c7965fba6a4d9805d /tests/ccwl.scm | |
| parent | 4fd05cb575292ef82cdc463b9f7aa5842e2b023e (diff) | |
| download | ccwl-c49dbef130f09667c619d1b7b77380aa53bae7e8.tar.gz ccwl-c49dbef130f09667c619d1b7b77380aa53bae7e8.tar.lz ccwl-c49dbef130f09667c619d1b7b77380aa53bae7e8.zip | |
ccwl: Error out if #:binding is specified on stdout type output.
Diffstat (limited to 'tests/ccwl.scm')
| -rw-r--r-- | tests/ccwl.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/ccwl.scm b/tests/ccwl.scm index ea14f86..bd852e9 100644 --- a/tests/ccwl.scm +++ b/tests/ccwl.scm @@ -108,6 +108,11 @@ ccwl-violation? (output #'(message #:type int string))) +(test-condition "output, when passed a #:binding to an stdout type, must raise a &ccwl-violation condition" + ccwl-violation? + (output #'(message #:type stdout + #:binding ((glob . "output.txt"))))) + (test-condition "command, when passed positional arguments, must raise a &ccwl-violation condition" ccwl-violation? (macroexpand |