tests: Allow literal ints as arguments.

* tests/ccwl.scm ("allow literal as arguments"): Rename to "allow
literal strings as arguments".
(print-int): New variable.
("allow literal ints as arguments"): New test.

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)))