summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorsjamaan <>2010-10-24 17:21:29 +0000
committersjamaan <>2010-10-24 17:21:29 +0000
commit7a125453a26707143624bee6415db2a54e5d890f (patch)
tree841d5b1812e27a9da38666df64f0a448c4928df4
parenta8d413026635bdffe473879808f6cab2eb954fb9 (diff)
downloadchicken-xml-rpc-7a125453a26707143624bee6415db2a54e5d890f.tar
chicken-xml-rpc-7a125453a26707143624bee6415db2a54e5d890f.tar.gz
chicken-xml-rpc-7a125453a26707143624bee6415db2a54e5d890f.tar.bz2
chicken-xml-rpc-7a125453a26707143624bee6415db2a54e5d890f.tar.lz
chicken-xml-rpc-7a125453a26707143624bee6415db2a54e5d890f.tar.xz
chicken-xml-rpc-7a125453a26707143624bee6415db2a54e5d890f.tar.zst
chicken-xml-rpc-7a125453a26707143624bee6415db2a54e5d890f.zip
xml-rpc: Check for test failure
-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