summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorArun Isaac2023-10-17 19:19:05 +0100
committerArun Isaac2023-10-17 19:20:19 +0100
commit270f7bab16308ec9a5c2e6ee4abbdb4639ef2d9f (patch)
treee0eb28820a8046e14a31108e1397b488bf1fde70 /tests
parent2853ef38886e3ffd7f12252ab17fb2d4e29614e2 (diff)
downloadccwl-270f7bab16308ec9a5c2e6ee4abbdb4639ef2d9f.tar.gz
ccwl-270f7bab16308ec9a5c2e6ee4abbdb4639ef2d9f.tar.lz
ccwl-270f7bab16308ec9a5c2e6ee4abbdb4639ef2d9f.zip
ccwl: Add "Invalid parameter" to #:stderr and #:stdout error messages.
* ccwl/ccwl.scm (command): Add "Invalid parameter" to #:stderr and #:stdout error messages. * tests/ccwl.scm ("commands with non-string #:stderr parameters must raise a &ccwl-violation condition", "commands with non-string #:stdout parameters must raise a &ccwl-violation condition"): Adjust tests.
Diffstat (limited to 'tests')
-rw-r--r--tests/ccwl.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/ccwl.scm b/tests/ccwl.scm
index e60a035..d8100c5 100644
--- a/tests/ccwl.scm
+++ b/tests/ccwl.scm
@@ -212,7 +212,7 @@
(guard (exception
(else (and (ccwl-violation? exception)
(string=? (formatted-message-format exception)
- "#:stderr parameter must be a string"))))
+ "Invalid #:stderr parameter ~a. #:stderr parameter must be a string"))))
(begin (macroexpand
'(command #:inputs (message #:type string)
#:run "echo" message
@@ -224,7 +224,7 @@
(guard (exception
(else (and (ccwl-violation? exception)
(string=? (formatted-message-format exception)
- "#:stdout parameter must be a string"))))
+ "Invalid #:stdout parameter ~a. #:stdout parameter must be a string"))))
(begin (macroexpand
'(command #:inputs (message #:type string)
#:run "echo" message