[s-xml-cvs] CVS s-xml/test

[scaekenberghe]

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