diff options
| -rw-r--r-- | tests/ccwl.scm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/tests/ccwl.scm b/tests/ccwl.scm index e7a0cb7..2f3f88d 100644 --- a/tests/ccwl.scm +++ b/tests/ccwl.scm @@ -163,10 +163,21 @@ #:message message))) #f))) -(test-assert "allow literals as arguments" +(test-assert "allow literal strings as arguments" (workflow () (print #:message "Hello"))) +;; TODO: Define this in the lexical scope of the test that requires +;; it. +(define print-int + (command #:inputs (number #:type int) + #:run "echo" number + #:outputs (printed-number #:type stdout))) + +(test-assert "allow literal ints as arguments" + (workflow () + (print-int #:number 42))) + (test-assert "step supplied with an unknown key must raise a &ccwl-violation condition" (guard (exception (else (ccwl-violation? exception))) |