summaryrefslogtreecommitdiff
path: root/third-party/s-xml/test/test-xml-struct-dom.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'third-party/s-xml/test/test-xml-struct-dom.lisp')
-rw-r--r--third-party/s-xml/test/test-xml-struct-dom.lisp84
1 files changed, 84 insertions, 0 deletions
diff --git a/third-party/s-xml/test/test-xml-struct-dom.lisp b/third-party/s-xml/test/test-xml-struct-dom.lisp
new file mode 100644
index 0000000..607402b
--- /dev/null
+++ b/third-party/s-xml/test/test-xml-struct-dom.lisp
@@ -0,0 +1,84 @@
+;;;; -*- mode: lisp -*-
+;;;;
+;;;; $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
+;;;;
+;;;; Copyright (C) 2002, 2004 Sven Van Caekenberghe, Beta Nine BVBA.
+;;;;
+;;;; You are granted the rights to distribute and use this software
+;;;; as governed by the terms of the Lisp Lesser General Public License
+;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
+
+(in-package :s-xml)
+
+(assert
+ (xml-equal (with-input-from-string (stream " <foo/>")
+ (parse-xml stream :output-type :xml-struct))
+ (make-xml-element :name :|foo|)))
+
+(assert
+ (xml-equal (parse-xml-string "<tag1><tag2 att1='one'/>this is some text</tag1>"
+ :output-type :xml-struct)
+ (make-xml-element :name :|tag1|
+ :children (list (make-xml-element :name :|tag2|
+ :attributes '((:|att1| . "one")))
+ "this is some text"))))
+
+(assert
+ (xml-equal (parse-xml-string "<tag>&lt;foo&gt;</tag>"
+ :output-type :xml-struct)
+ (make-xml-element :name :|tag|
+ :children (list "<foo>"))))
+
+(assert
+ (xml-equal (parse-xml-string
+ "<P><INDEX ITEM='one'/> This is some <B>bold</B> text, with a leading &amp; trailing space </P>"
+ :output-type :xml-struct)
+ (make-xml-element :name :p
+ :children (list (make-xml-element :name :index
+ :attributes '((:item . "one")))
+ " This is some "
+ (make-xml-element :name :b
+ :children (list "bold"))
+ " text, with a leading & trailing space "))))
+
+(assert
+ (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 "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 "test/plist.xml"
+ (asdf:component-pathname
+ (asdf:find-system :s-xml.test)))
+ :output-type :xml-struct)))
+
+(assert
+ (string-equal (print-xml-string (make-xml-element :name "foo")
+ :input-type :xml-struct)
+ "<foo/>"))
+
+(assert
+ (string-equal (print-xml-string (make-xml-element :name "foo" :attributes '((:|bar| . "1")))
+ :input-type :xml-struct)
+ "<foo bar=\"1\"/>"))
+
+(assert
+ (string-equal (print-xml-string (make-xml-element :name "foo" :children (list "some text"))
+ :input-type :xml-struct)
+ "<foo>some text</foo>"))
+
+(assert
+ (string-equal (print-xml-string (make-xml-element :name "foo" :children (list (make-xml-element :name "bar")))
+ :input-type :xml-struct)
+ "<foo><bar/></foo>"))
+
+;;;; eof \ No newline at end of file