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
|
;;;; -*- mode: lisp -*-
;;;;
;;;; $Id: test-sxml-dom.lisp,v 1.2 2008/02/15 13:54:57 scaekenberghe Exp $
;;;;
;;;; Unit and functional tests for sxml-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 :sxml))
'(:|foo|)))
(assert
(equal (parse-xml-string "<tag1><tag2 att1='one'/>this is some text</tag1>"
:output-type :sxml)
'(:|tag1|
(:|tag2| (:@ (:|att1| "one")))
"this is some text")))
(assert
(equal (parse-xml-string "<TAG><foo></TAG>"
:output-type :sxml)
'(:TAG "<foo>")))
(assert
(equal (parse-xml-string
"<P><INDEX ITEM='one'/> This is some <B>bold</B> text, with a leading & trailing space </P>"
:output-type :sxml)
'(: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 :sxml)))
(assert
(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 "test/plist.xml"
(asdf:component-pathname
(asdf:find-system :s-xml.test)))
:output-type :sxml)))
(assert
(string-equal (print-xml-string '(:|foo|) :input-type :sxml)
"<foo/>"))
(assert
(string-equal (print-xml-string '(:|foo| (:@ (:|bar| "1"))) :input-type :sxml)
"<foo bar=\"1\"/>"))
(assert
(string-equal (print-xml-string '(:foo "some text") :input-type :sxml)
"<FOO>some text</FOO>"))
(assert
(string-equal (print-xml-string '(:|foo| (:|bar|)) :input-type :sxml)
"<foo><bar/></foo>"))
;;;; eof
|
