Update of /project/s-xml/cvsroot/s-xml/test In directory clnet:/tmp/cvs-serv15874/test
Modified Files: test-lxml-dom.lisp test-sxml-dom.lisp test-xml-struct-dom.lisp Removed Files: all-tests.lisp counter.lisp echo.lisp remove-markup.lisp tracer.lisp Log Message: patch contributed by Gismo / Luca Capello: - splitted source code files from test in test and examples directory - added s-xml.test asdf to compile/load the tests - added s-xml.examples to compile/load the examples - modified path references in the test code to use the asdf location
--- /project/s-xml/cvsroot/s-xml/test/test-lxml-dom.lisp 2005/11/06 12:44:48 1.2 +++ /project/s-xml/cvsroot/s-xml/test/test-lxml-dom.lisp 2008/02/15 13:54:57 1.3 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: test-lxml-dom.lisp,v 1.2 2005/11/06 12:44:48 scaekenberghe Exp $ +;;;; $Id: test-lxml-dom.lisp,v 1.3 2008/02/15 13:54:57 scaekenberghe Exp $ ;;;; ;;;; Unit and functional tests for lxml-dom.lisp ;;;; @@ -40,15 +40,21 @@ " text, with a leading & trailing space ")))
(assert - (consp (parse-xml-file (merge-pathnames "xhtml-page.xml" *load-pathname*) + (consp (parse-xml-file (merge-pathnames "test/xhtml-page.xml" + (asdf:component-pathname + (asdf:find-system :s-xml.test))) :output-type :lxml)))
(assert - (consp (parse-xml-file (merge-pathnames "ant-build-file.xml" *load-pathname*) + (consp (parse-xml-file (merge-pathnames "test/ant-build-file.xml" + (asdf:component-pathname + (asdf:find-system :s-xml.test))) :output-type :lxml)))
(assert - (consp (parse-xml-file (merge-pathnames "plist.xml" *load-pathname*) + (consp (parse-xml-file (merge-pathnames "test/plist.xml" + (asdf:component-pathname + (asdf:find-system :s-xml.test))) :output-type :lxml)))
(assert @@ -77,4 +83,4 @@ (parse-xml stream :output-type :lxml))) "<greeting>Hello, < world!</greeting>"))
-;;;; eof \ No newline at end of file +;;;; eof --- /project/s-xml/cvsroot/s-xml/test/test-sxml-dom.lisp 2004/06/07 18:49:59 1.1.1.1 +++ /project/s-xml/cvsroot/s-xml/test/test-sxml-dom.lisp 2008/02/15 13:54:57 1.2 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: test-sxml-dom.lisp,v 1.1.1.1 2004/06/07 18:49:59 scaekenberghe Exp $ +;;;; $Id: test-sxml-dom.lisp,v 1.2 2008/02/15 13:54:57 scaekenberghe Exp $ ;;;; ;;;; Unit and functional tests for sxml-dom.lisp ;;;; @@ -40,15 +40,21 @@ " text, with a leading & trailing space ")))
(assert - (consp (parse-xml-file (merge-pathnames "xhtml-page.xml" *load-pathname*) + (consp (parse-xml-file (merge-pathnames "test/xhtml-page.xml" + (asdf:component-pathname + (asdf:find-system :s-xml.test))) :output-type :sxml)))
(assert - (consp (parse-xml-file (merge-pathnames "ant-build-file.xml" *load-pathname*) + (consp (parse-xml-file (merge-pathnames "test/ant-build-file.xml" + (asdf:component-pathname + (asdf:find-system :s-xml.test))) :output-type :sxml)))
(assert - (consp (parse-xml-file (merge-pathnames "plist.xml" *load-pathname*) + (consp (parse-xml-file (merge-pathnames "test/plist.xml" + (asdf:component-pathname + (asdf:find-system :s-xml.test))) :output-type :sxml)))
(assert --- /project/s-xml/cvsroot/s-xml/test/test-xml-struct-dom.lisp 2005/08/29 15:01:49 1.2 +++ /project/s-xml/cvsroot/s-xml/test/test-xml-struct-dom.lisp 2008/02/15 13:54:57 1.3 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: test-xml-struct-dom.lisp,v 1.2 2005/08/29 15:01:49 scaekenberghe Exp $ +;;;; $Id: test-xml-struct-dom.lisp,v 1.3 2008/02/15 13:54:57 scaekenberghe Exp $ ;;;; ;;;; Unit and functional tests for xml-struct-dom.lisp ;;;; @@ -44,15 +44,21 @@ " text, with a leading & trailing space "))))
(assert - (xml-element-p (parse-xml-file (merge-pathnames "xhtml-page.xml" *load-pathname*) + (xml-element-p (parse-xml-file (merge-pathnames "test/xhtml-page.xml" + (asdf:component-pathname + (asdf:find-system :s-xml.test))) :output-type :xml-struct)))
(assert - (xml-element-p (parse-xml-file (merge-pathnames "ant-build-file.xml" *load-pathname*) + (xml-element-p (parse-xml-file (merge-pathnames "test/ant-build-file.xml" + (asdf:component-pathname + (asdf:find-system :s-xml.test))) :output-type :xml-struct)))
(assert - (xml-element-p (parse-xml-file (merge-pathnames "plist.xml" *load-pathname*) + (xml-element-p (parse-xml-file (merge-pathnames "test/plist.xml" + (asdf:component-pathname + (asdf:find-system :s-xml.test))) :output-type :xml-struct)))
(assert