[s-xml-rpc-cvs] CVS update: s-xml-rpc/test/test-xml-rpc.lisp

[Sven Van Caekenberghe]

Update of /project/s-xml-rpc/cvsroot/s-xml-rpc/test
In directory common-lisp.net:/tmp/cvs-serv9056/test

Modified Files:
	test-xml-rpc.lisp 
Log Message:
ported to clisp 2.32 (sysdeps)
changed end-of-header test to accept empty lines as well
changed usage to princ to write-string where possible
fixed a test (added import, unintern code to/from s-xml-rpc-exports)


Date: Fri Feb 11 12:04:51 2005
Author: scaekenberghe

Index: s-xml-rpc/test/test-xml-rpc.lisp
diff -u s-xml-rpc/test/test-xml-rpc.lisp:1.1.1.1 s-xml-rpc/test/test-xml-rpc.lisp:1.2
--- s-xml-rpc/test/test-xml-rpc.lisp:1.1.1.1	Wed Jun  9 11:02:41 2004
+++ s-xml-rpc/test/test-xml-rpc.lisp	Fri Feb 11 12:04:45 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: test-xml-rpc.lisp,v 1.1.1.1 2004/06/09 09:02:41 scaekenberghe Exp $
+;;;; $Id: test-xml-rpc.lisp,v 1.2 2005/02/11 11:04:45 scaekenberghe Exp $
 ;;;;
 ;;;; Unit and functional tests for xml-rpc.lisp
 ;;;;
@@ -46,13 +46,16 @@
  (equal (call-xml-rpc-server '(:host "betty.userland.com") "examples.getStateName" 41)
 	"South Dakota"))
 
+#-clisp
 (assert
  (let ((server-process-name (start-xml-rpc-server :port 8080)))
+   (import 's-xml-rpc::xml-rpc-implementation-version :s-xml-rpc-exports)
    (sleep 1) ; give the server some time to come up ;-)
    (unwind-protect
        (equal (xml-rpc-call (encode-xml-rpc-call "XML-RPC-IMPLEMENTATION-VERSION") :port 8080)
 	      (xml-rpc-implementation-version))
-     (stop-server server-process-name))))
+     (stop-server server-process-name)
+     (unintern 's-xml-rpc::xml-rpc-implementation-version :s-xml-rpc-exports))))
 
 (assert
     (let* ((struct-in (xml-rpc-struct :foo 100 :bar ""))