summaryrefslogtreecommitdiff
path: root/tests/run.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/run.scm')
-rw-r--r--tests/run.scm8
1 files changed, 7 insertions, 1 deletions
diff --git a/tests/run.scm b/tests/run.scm
index b50a385..5ca0b00 100644
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -8,6 +8,8 @@
(import xml-rpc-client)
(import xml-rpc-server)
+(test-begin "xml-rpc")
+
(test-group "Marshaling"
(test "integer"
`(i4 "1")
@@ -492,4 +494,8 @@
(call-with-input-string out
(lambda (in)
(let ((resp (read-response in)))
- (ssax:xml->sxml (response-port resp) '()))))))))) \ No newline at end of file
+ (ssax:xml->sxml (response-port resp) '())))))))))
+
+(test-end)
+
+(unless (zero? (test-failure-count)) (exit 1)) \ No newline at end of file