summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tests/ccwl.scm13
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)))