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@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>"))