[cl-soap-cvs] CVS update: 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-serv3830/test

Modified Files:
	test-basic.lisp 
Log Message:
some bugfixes (thx to carlos.ungil at 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)