aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/ccwl.scm18
1 files changed, 18 insertions, 0 deletions
diff --git a/tests/ccwl.scm b/tests/ccwl.scm
index bc9fb01..d667b32 100644
--- a/tests/ccwl.scm
+++ b/tests/ccwl.scm
@@ -24,6 +24,9 @@
(define input
(@@ (ccwl ccwl) input))
+(define output
+ (@@ (ccwl ccwl) output))
+
(test-begin "ccwl")
(test-assert "stdin input should not have inputBinding"
@@ -67,4 +70,19 @@
(else (ccwl-violation? exception)))
(input #'(message #:type int string))))
+(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))))
+
+(test-assert "output, when passed an unrecognized keyword, must raise a &ccwl-violation condition"
+ (guard (exception
+ (else (ccwl-violation? exception)))
+ (output #'(message #:foo string))))
+
+(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))))
+
(test-end "ccwl")