xml-rpc: Check for test failure

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