Update of /project/cl-soap/cvsroot/cl-soap/test In directory common-lisp.net:/tmp/cvs-serv3830/test
Modified Files: test-basic.lisp Log Message: some bugfixes (thx to carlos.ungil@bluewin.ch)
Date: Thu Sep 8 17:40:05 2005 Author: scaekenberghe
Index: cl-soap/test/test-basic.lisp diff -u cl-soap/test/test-basic.lisp:1.1 cl-soap/test/test-basic.lisp:1.2 --- cl-soap/test/test-basic.lisp:1.1 Mon Sep 5 10:35:58 2005 +++ cl-soap/test/test-basic.lisp Thu Sep 8 17:39:46 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: test-basic.lisp,v 1.1 2005/09/05 08:35:58 scaekenberghe Exp $ +;;;; $Id: test-basic.lisp,v 1.2 2005/09/08 15:39:46 scaekenberghe Exp $ ;;;; ;;;; Some test for the basic SOAP protocol ;;;; @@ -91,7 +91,7 @@ :|xmlns:ns1| ,ns) ((:|arg2| xsi::|type| "xsd:string") ,string))))) - (if (eql (lxml-get-tag result) 'ns1:|serviceMethodResponse|) + (if (eql (lxml-get-tag result) 'ns1::|serviceMethodResponse|) (let ((contents (lxml-find-tag :|serviceMethodReturn| (rest result)))) (if contents (second contents)