From 7a125453a26707143624bee6415db2a54e5d890f Mon Sep 17 00:00:00 2001
From: sjamaan <>
Date: Sun, 24 Oct 2010 17:21:29 +0000
Subject: xml-rpc: Check for test failure

---
 tests/run.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3