summaryrefslogtreecommitdiff
path: root/third-party/s-xml/test/test-lxml-dom.lisp
blob: f7aadbe2f8b6cd6212e73c249ffb01c53a37ebd5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
;;;; -*- mode: lisp -*-
;;;;
;;;; $Id: test-lxml-dom.lisp,v 1.3 2008-02-15 13:54:57 scaekenberghe Exp $
;;;;
;;;; Unit and functional tests for lxml-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
 (equal (with-input-from-string (stream " <foo/>")
	  (parse-xml stream :output-type :lxml))
	:|foo|))

(assert
 (equal (parse-xml-string "<tag1><tag2 att1='one'/>this is some text</tag1>"
			  :output-type :lxml)
	'(:|tag1|
	   ((:|tag2| :|att1| "one"))
	   "this is some text")))

(assert
 (equal (parse-xml-string "<TAG>&lt;foo&gt;</TAG>"
			  :output-type :lxml)
	'(:TAG "<foo>")))

(assert
 (equal (parse-xml-string
	 "<P><INDEX ITEM='one'/> This is some <B>bold</B> text, with a leading &amp; trailing space </P>"
	 :output-type :lxml)
	'(:p
	  ((:index :item "one"))
	  " This is some "
	  (:b "bold")
	  " text, with a leading & trailing space ")))

(assert
 (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 "test/ant-build-file.xml"
					 (asdf:component-pathname
					  (asdf:find-system :s-xml.test)))
			:output-type :lxml)))

(assert
 (consp (parse-xml-file (merge-pathnames "test/plist.xml"
					 (asdf:component-pathname
					  (asdf:find-system :s-xml.test)))
			:output-type :lxml)))

(assert
 (string-equal (print-xml-string :|foo| :input-type :lxml)
	       "<foo/>"))

(assert
 (string-equal (print-xml-string '((:|foo| :|bar| "1")) :input-type :lxml)
	       "<foo bar=\"1\"/>"))

(assert
 (string-equal (print-xml-string '(:foo "some text") :input-type :lxml)
	       "<FOO>some text</FOO>"))

(assert
 (string-equal (print-xml-string '(:|foo| :|bar|) :input-type :lxml)
	       "<foo><bar/></foo>"))

(assert (string-equal (second
                       (with-input-from-string (stream "<foo><![CDATA[<greeting>Hello, world!</greeting>]]></foo>")
                         (parse-xml stream :output-type :lxml)))
                      "<greeting>Hello, world!</greeting>"))
	   
(assert (string-equal (second
                       (with-input-from-string (stream "<foo><![CDATA[<greeting>Hello, < world!</greeting>]]></foo>")
                         (parse-xml stream :output-type :lxml)))
                      "<greeting>Hello, < world!</greeting>"))

;;;; eof