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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
|
# frozen_string_literal: false
require "test/unit"
require "rexml/document"
module REXMLTests
class TestParseDocumentTypeDeclaration < Test::Unit::TestCase
private
def parse(doctype)
REXML::Document.new(<<-XML).doctype
#{doctype}
<r/>
XML
end
class TestName < self
def test_valid
doctype = parse(<<-DOCTYPE)
<!DOCTYPE r>
DOCTYPE
assert_equal("r", doctype.name)
end
def test_garbage_plus_before_name_at_line_start
exception = assert_raise(REXML::ParseException) do
parse(<<-DOCTYPE)
<!DOCTYPE +
r SYSTEM "urn:x-rexml:test" [
]>
DOCTYPE
end
assert_equal(<<-DETAIL.chomp, exception.to_s)
Malformed DOCTYPE: invalid name
Line: 5
Position: 51
Last 80 unconsumed characters:
+ r SYSTEM "urn:x-rexml:test" [ ]> <r/>
DETAIL
end
end
class TestExternalID < self
class TestSystem < self
def test_left_bracket_in_system_literal
doctype = parse(<<-DOCTYPE)
<!DOCTYPE r SYSTEM "urn:x-rexml:[test" [
]>
DOCTYPE
assert_equal([
"r",
"SYSTEM",
nil,
"urn:x-rexml:[test",
],
[
doctype.name,
doctype.external_id,
doctype.public,
doctype.system,
])
end
def test_greater_than_in_system_literal
doctype = parse(<<-DOCTYPE)
<!DOCTYPE r SYSTEM "urn:x-rexml:>test" [
]>
DOCTYPE
assert_equal([
"r",
"SYSTEM",
nil,
"urn:x-rexml:>test",
],
[
doctype.name,
doctype.external_id,
doctype.public,
doctype.system,
])
end
def test_no_literal
exception = assert_raise(REXML::ParseException) do
parse(<<-DOCTYPE)
<!DOCTYPE r SYSTEM>
DOCTYPE
end
assert_equal(<<-DETAIL.chomp, exception.to_s)
Malformed DOCTYPE: system literal is missing
Line: 3
Position: 26
Last 80 unconsumed characters:
SYSTEM> <r/>
DETAIL
end
def test_garbage_after_literal
exception = assert_raise(REXML::ParseException) do
parse(<<-DOCTYPE)
<!DOCTYPE r SYSTEM 'r.dtd'x'>
DOCTYPE
end
assert_equal(<<-DETAIL.chomp, exception.to_s)
Malformed DOCTYPE: garbage after external ID
Line: 3
Position: 36
Last 80 unconsumed characters:
x'> <r/>
DETAIL
end
def test_single_quote
doctype = parse(<<-DOCTYPE)
<!DOCTYPE r SYSTEM 'r".dtd'>
DOCTYPE
assert_equal("r\".dtd", doctype.system)
end
def test_double_quote
doctype = parse(<<-DOCTYPE)
<!DOCTYPE r SYSTEM "r'.dtd">
DOCTYPE
assert_equal("r'.dtd", doctype.system)
end
end
class TestPublic < self
class TestPublicIDLiteral < self
def test_content_double_quote
exception = assert_raise(REXML::ParseException) do
parse(<<-DOCTYPE)
<!DOCTYPE r PUBLIC 'double quote " is invalid' "r.dtd">
DOCTYPE
end
assert_equal(<<-DETAIL.chomp, exception.to_s)
Malformed DOCTYPE: invalid public ID literal
Line: 3
Position: 62
Last 80 unconsumed characters:
PUBLIC 'double quote " is invalid' "r.dtd"> <r/>
DETAIL
end
def test_single_quote
doctype = parse(<<-DOCTYPE)
<!DOCTYPE r PUBLIC 'public-id-literal' "r.dtd">
DOCTYPE
assert_equal("public-id-literal", doctype.public)
end
def test_double_quote
doctype = parse(<<-DOCTYPE)
<!DOCTYPE r PUBLIC "public'-id-literal" "r.dtd">
DOCTYPE
assert_equal("public'-id-literal", doctype.public)
end
end
class TestSystemLiteral < self
def test_garbage_after_literal
exception = assert_raise(REXML::ParseException) do
parse(<<-DOCTYPE)
<!DOCTYPE r PUBLIC 'public-id-literal' 'system-literal'x'>
DOCTYPE
end
assert_equal(<<-DETAIL.chomp, exception.to_s)
Malformed DOCTYPE: garbage after external ID
Line: 3
Position: 65
Last 80 unconsumed characters:
x'> <r/>
DETAIL
end
def test_single_quote
doctype = parse(<<-DOCTYPE)
<!DOCTYPE r PUBLIC "public-id-literal" 'system"-literal'>
DOCTYPE
assert_equal("system\"-literal", doctype.system)
end
def test_double_quote
doctype = parse(<<-DOCTYPE)
<!DOCTYPE r PUBLIC "public-id-literal" "system'-literal">
DOCTYPE
assert_equal("system'-literal", doctype.system)
end
end
end
end
class TestMixed < self
def test_entity_element
doctype = parse(<<-INTERNAL_SUBSET)
<!ENTITY entity-name "entity content">
<!ELEMENT element-name EMPTY>
INTERNAL_SUBSET
assert_equal([REXML::Entity, REXML::ElementDecl],
doctype.children.collect(&:class))
end
def test_attlist_entity
doctype = parse(<<-INTERNAL_SUBSET)
<!ATTLIST attribute-list-name attribute-name CDATA #REQUIRED>
<!ENTITY entity-name "entity content">
INTERNAL_SUBSET
assert_equal([REXML::AttlistDecl, REXML::Entity],
doctype.children.collect(&:class))
end
def test_notation_attlist
doctype = parse(<<-INTERNAL_SUBSET)
<!NOTATION notation-name SYSTEM "system-literal">
<!ATTLIST attribute-list-name attribute-name CDATA #REQUIRED>
INTERNAL_SUBSET
assert_equal([REXML::NotationDecl, REXML::AttlistDecl],
doctype.children.collect(&:class))
end
private
def parse(internal_subset)
super(<<-DOCTYPE)
<!DOCTYPE r SYSTEM "urn:x-rexml:test" [
#{internal_subset}
]>
DOCTYPE
end
end
end
end
|