From 65760f759aa2ac31f237e67e15711bf19d50057f Mon Sep 17 00:00:00 2001 From: Christopher Brannon Date: Mon, 5 Apr 2021 05:58:30 -0700 Subject: Add error tests for a couple more things that can't be marshaled. Namely complex numbers and procedures. Assert that attempting to marshal them results in an error. --- tests/run.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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)))) -- cgit v1.2.3