[s-xml-cvs] CVS update: s-xml/test/test-xml-struct-dom.lisp

[Sven Van Caekenberghe]

Update of /project/s-xml/cvsroot/s-xml/test
In directory common-lisp.net:/tmp/cvs-serv14302/test

Modified Files:
	test-xml-struct-dom.lisp 
Log Message:
redesigned the namespaces implementation
separated namespace definition (incl package mapping, default prefix) from namespace binding (using xmlns attributes)
cleanup of printing code (added ns-awareness)
added *ignore-namespaces* switch to disable ns-awareness (backward compatibility)

Date: Mon Aug 29 17:01:50 2005
Author: scaekenberghe

Index: s-xml/test/test-xml-struct-dom.lisp
diff -u s-xml/test/test-xml-struct-dom.lisp:1.1.1.1 s-xml/test/test-xml-struct-dom.lisp:1.2
--- s-xml/test/test-xml-struct-dom.lisp:1.1.1.1	Mon Jun  7 20:49:59 2004
+++ s-xml/test/test-xml-struct-dom.lisp	Mon Aug 29 17:01:49 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: test-xml-struct-dom.lisp,v 1.1.1.1 2004/06/07 18:49:59 scaekenberghe Exp $
+;;;; $Id: test-xml-struct-dom.lisp,v 1.2 2005/08/29 15:01:49 scaekenberghe Exp $
 ;;;;
 ;;;; Unit and functional tests for xml-struct-dom.lisp
 ;;;;
@@ -61,7 +61,7 @@
 	       "<foo/>"))
 
 (assert
- (string-equal (print-xml-string (make-xml-element :name "foo" :attributes '((bar . "1")))
+ (string-equal (print-xml-string (make-xml-element :name "foo" :attributes '((:|bar| . "1")))
 				 :input-type :xml-struct)
 	       "<foo bar=\"1\"/>"))