Update of /project/cl-soap/cvsroot/cl-soap/test In directory common-lisp.net:/tmp/cvs-serv11181/test
Modified Files: test-basic.lisp Added Files: test-wsdl.lisp Log Message: unimplemented API for making SOAP calls supported by WSDL
Date: Mon Sep 12 16:28:41 2005 Author: scaekenberghe
Index: cl-soap/test/test-basic.lisp diff -u cl-soap/test/test-basic.lisp:1.3 cl-soap/test/test-basic.lisp:1.4 --- cl-soap/test/test-basic.lisp:1.3 Sat Sep 10 21:56:28 2005 +++ cl-soap/test/test-basic.lisp Mon Sep 12 16:28:41 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: test-basic.lisp,v 1.3 2005/09/10 19:56:28 scaekenberghe Exp $ +;;;; $Id: test-basic.lisp,v 1.4 2005/09/12 14:28:41 scaekenberghe Exp $ ;;;; ;;;; Some test for the basic SOAP protocol ;;;; @@ -103,13 +103,13 @@ "Calling Axis's User Guide Example 3 'echo'" (let ((ns "http://example3.userguide.samples")) (s-xml:register-namespace ns "ns1" :ns1) - (let* ((local (make-soap-end-point "http://localhost:9090/axis/services/MyService")) + (let* ((local (make-soap-end-point "http://localhost:8080/axis/services/MyService")) (result (soap-call local '() `((ns1::|serviceMethod| soapenv:|encodingStyle| ,+soap-enc-ns-uri+ :|xmlns:ns1| ,ns) - ((:|arg2| xsi::|type| "xsd:string") + ((:|arg| xsi::|type| "xsd:string") ,string))))) (if (eql (lxml-get-tag result) 'ns1::|serviceMethodResponse|) (let ((contents (lxml-find-tag :|serviceMethodReturn| (rest result))))