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

[Sven Van Caekenberghe]

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

Modified Files:
	test-xml.lisp 
Log Message:
added a set of patches contributed by David Tolpin dvd at davidashen.net : we're now using char of type Character and #\Null instead of null, read/unread instead of peek/read and some more declarations for more efficiency - added hooks for customizing parsing attribute names and values

Date: Thu Jan 19 14:00:06 2006
Author: scaekenberghe

Index: s-xml/test/test-xml.lisp
diff -u s-xml/test/test-xml.lisp:1.3 s-xml/test/test-xml.lisp:1.4
--- s-xml/test/test-xml.lisp:1.3	Sun Nov  6 06:44:48 2005
+++ s-xml/test/test-xml.lisp	Thu Jan 19 14:00:06 2006
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: test-xml.lisp,v 1.3 2005/11/06 12:44:48 scaekenberghe Exp $
+;;;; $Id: test-xml.lisp,v 1.4 2006/01/19 20:00:06 scaekenberghe Exp $
 ;;;;
 ;;;; Unit and functional tests for xml.lisp
 ;;;;
@@ -72,10 +72,11 @@
       (with-output-to-string (out)
 	(simple-echo-xml in out))))
 
-(assert
+(dolist (*ignore-namespaces* '(nil t)) 
+  (assert
  (let ((xml "<FOO ATT1='1' ATT2='2'><B>Text</B><EMPTY></EMPTY>More text!<SUB><SUB></SUB></SUB></FOO>"))
    (equal (simple-echo-xml-string xml)
-          xml)))
+            xml))))
 
 (assert 
   (let ((xml "<p> </p>"))