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