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

[Sven Van Caekenberghe]

Update of /project/cl-soap/cvsroot/cl-soap/test
In directory common-lisp.net:/tmp/cvs-serv23840/test

Modified Files:
	test-wsdl.lisp 
Log Message:
marked which function don't work and why

Date: Thu Sep 15 15:31:54 2005
Author: scaekenberghe

Index: cl-soap/test/test-wsdl.lisp
diff -u cl-soap/test/test-wsdl.lisp:1.1 cl-soap/test/test-wsdl.lisp:1.2
--- cl-soap/test/test-wsdl.lisp:1.1	Mon Sep 12 16:28:41 2005
+++ cl-soap/test/test-wsdl.lisp	Thu Sep 15 15:31:54 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: test-wsdl.lisp,v 1.1 2005/09/12 14:28:41 scaekenberghe Exp $
+;;;; $Id: test-wsdl.lisp,v 1.2 2005/09/15 13:31:54 scaekenberghe Exp $
 ;;;;
 ;;;; Some test for the WSDL structured SOAP protocol
 ;;;;
@@ -17,6 +17,7 @@
 ;; http://xmethods.net
 
 (defun xmethods-get-quote (symbol)
+  ;; doesn't work: response element incorrectly described in wsdl wrt wire usage ??
   (wsdl-soap-call "http://services.xmethods.net/soap/urn:xmethods-delayed-quotes.wsdl"
                   "getQuote"
                   :input `("symbol" ,symbol)))
@@ -37,6 +38,7 @@
 ;; http://www.random.org/clients/soap/
 
 (defun get-random-number (&key unsigned)
+  ;; doesn't work: response element incorrectly described in wsdl wrt wire usage ??
   "Returns a true random  number in the interval [2^31, 2^31) or [0, 2^31)"
   (wsdl-soap-call "http://www.random.org/RandomDotOrg.wsdl"
                   (if unsigned "lrand48" "mrand48")))
@@ -44,6 +46,8 @@
 ;; accessing local AXIS services
       
 (defun axis-example3-echo (string)
+  ;; doesn't work: different input/output namespaces currently not supported
+  ;; furthermore namespaces seem to be described inconsistently in wsdl wrt wire usage ??
   (wsdl-soap-call "http://localhost:8080/axis/services/MyService?wsdl"
                   "serviceMethod"
                   :input `("arg" ,string)))