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\"/>"))