[cl-soap-cvs] CVS update: cl-soap/test/test-wsdl.lisp cl-soap/test/test-basic.lisp

[Sven Van Caekenberghe]

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))))