diff options
| -rw-r--r-- | tests/ccwl.scm | 49 |
1 files changed, 29 insertions, 20 deletions
diff --git a/tests/ccwl.scm b/tests/ccwl.scm index 4f10450..219e3f7 100644 --- a/tests/ccwl.scm +++ b/tests/ccwl.scm @@ -58,58 +58,67 @@ (test-assert "input, when passed more than one positional argument, must raise a &ccwl-violation condition" (guard (exception (else (ccwl-violation? exception))) - (input #'(message string)))) + (begin (input #'(message string)) + #f))) (test-assert "input, when passed an unrecognized keyword, must raise a &ccwl-violation condition" (guard (exception (else (ccwl-violation? exception))) - (input #'(message #:foo string)))) + (begin (input #'(message #:foo string)) + #f))) (test-assert "input, when passed multiple arguments to a unary keyword, must raise a &ccwl-violation condition" (guard (exception (else (ccwl-violation? exception))) - (input #'(message #:type int string)))) + (begin (input #'(message #:type int string)) + #f))) (test-assert "output, when passed more than one positional argument, must raise a &ccwl-violation condition" (guard (exception (else (ccwl-violation? exception))) - (output #'(message string)))) + (begin (output #'(message string)) + #f))) (test-assert "output, when passed an unrecognized keyword, must raise a &ccwl-violation condition" (guard (exception (else (ccwl-violation? exception))) - (output #'(message #:foo string)))) + (begin (output #'(message #:foo string)) + #f))) (test-assert "output, when passed multiple arguments to a unary keyword, must raise a &ccwl-violation condition" (guard (exception (else (ccwl-violation? exception))) - (output #'(message #:type int string)))) + (begin (output #'(message #:type int string)) + #f))) (test-assert "command, when passed positional arguments, must raise a &ccwl-violation condition" (guard (exception (else (ccwl-violation? exception))) - (macroexpand - '(command foo - #:inputs (message #:type string) - #:run "echo" message - #:outputs (stdout #:type stdout))))) + (begin (macroexpand + '(command foo + #:inputs (message #:type string) + #:run "echo" message + #:outputs (stdout #:type stdout))) + #f))) (test-assert "command, when passed an unrecognized keyword, must raise a &ccwl-violation condition" (guard (exception (else (ccwl-violation? exception))) - (macroexpand - '(command #:foo (message #:type string) - #:run "echo" message - #:outputs (stdout #:type stdout))))) + (begin (macroexpand + '(command #:foo (message #:type string) + #:run "echo" message + #:outputs (stdout #:type stdout))) + #f))) (test-assert "command, when passed multiple arguments to a unary keyword, must raise a &ccwl-violation condition" (guard (exception (else (ccwl-violation? exception))) - (macroexpand - '(command #:inputs (message #:type string) - #:run "echo" message - #:outputs (stdout #:type stdout) - #:stdin "foo" "bar")))) + (begin (macroexpand + '(command #:inputs (message #:type string) + #:run "echo" message + #:outputs (stdout #:type stdout) + #:stdin "foo" "bar")) + #f))) ;; TODO: Define this in the lexical scope of the test that requires ;; it. |