diff options
| -rw-r--r-- | tests/run.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/run.scm b/tests/run.scm index 439cecd..90109c3 100644 --- a/tests/run.scm +++ b/tests/run.scm @@ -164,7 +164,10 @@ (parameterize ((xml-rpc-unparsers `((,vector? . ,vector->xml-rpc-iso8601)))) (value->xml-rpc-fragment (vector 55 8 14 17 6 98 0 0 #f 0)))) - (define-record foo bar) + (test-error "complex number gives error" + (value->xml-rpc-fragment 2+3i)) + (test-error "procedure gives error" + (value->xml-rpc-fragment string?)) (test-error "unknown type gives error" (value->xml-rpc-fragment (make-foo 1)))) |