lua-expat: tests/test-lom.lua

#!/usr/local/bin/lua
 
local lom = require "lxp.lom"
 
local u_acute_utf8 = string.char(195)..string.char(186) -- C3 BA
local u_acute_latin1 = string.char(250) -- FA
 
local tests = {
	{
		[[<abc a1="A1" a2="A2">inside tag `abc'</abc>]],
		{
			tag="abc",
			attr = { "a1", "a2", a1 = "A1", a2 = "A2", },
			"inside tag `abc'",
		},
	},
	{
		[[<qwerty q1="q1" q2="q2">
	<asdf>some text</asdf>
</qwerty>]],
		{
			tag = "qwerty",
			attr = { "q1", "q2", q1 = "q1", q2 = "q2", },
			"\n\t",
			{
				tag = "asdf",
				attr = {},
				"some text",
			},
			"\n",
		},
	},
	{
		[[<ul><li>conteudo 1</li><li>conte]]..u_acute_utf8..[[do 2</li></ul>]],
		encoding = "UTF-8",
		{
			tag = "ul",
			attr = {},
			{
				tag = "li",
				attr = {},
				"conteudo 1",
			},
			{
				tag = "li",
				attr = {},
				"conteúdo 2",
			},
		},
	},
	{
		[[<ul><li>Conteudo 1</li><li>Conte]]..u_acute_latin1..[[do 2</li><li>Conte&uacute;do 3</li></ul>]],
		encoding = "ISO-8859-1",
		doctype = [[<!DOCTYPE test [<!ENTITY uacute "&#250;">]>]], -- Ok!
		{
			tag = "ul",
			attr = {},
			{
				tag = "li",
				attr = {},
				"Conteudo 1",
			},
			{
				tag = "li",
				attr = {},
				"Conteúdo 2", -- Latin-1 becomes UTF-8
			},
			{
				tag = "li",
				attr = {},
				"Conteúdo 3", -- entity becomes a UTF-8 character
			},
		},
	},
	{
		[[<ul><li>Conte&uacute;do</li></ul>]],
		--doctype = [[<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">]], --> ignora as entidades
		--doctype = [[<!DOCTYPE html SYSTEM "about:legacy-compat">]], --> ignora as entidades
		--doctype = [[<!DOCTYPE html>]], --> undefined entity
		--doctype = [[<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">]], --> sintax error
		--doctype = [[<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" SYSTEM "http://www.w3.org/TR/html4/strict.dtd">]], --> syntax error
		--doctype = [[<!DOCTYPE HTMLlat1 PUBLIC "-//W3C//ENTITIES Latin 1//EN//HTML">]], --> syntax error
		--doctype = [[<!DOCTYPE HTMLlat1 PUBLIC "-//W3C//ENTITIES Latin 1 for XHTML//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml-lat1.ent">]], --> ignora entidades
		--doctype = [[<!DOCTYPE isolat1 PUBLIC "//W3C//ENTITIES Added Latin 1//EN//XML" "http://www.w3.org/2003/entities/2007/isolat1.ent">]], --> ignora entidades
		doctype = [[<!DOCTYPE test [<!ENTITY uacute "&#250;">]>]], -- Ok!
		encoding = "UTF-8",
		{
			tag = "ul",
			attr = {},
			{
				tag = "li",
				attr = {},
				"Conteúdo", -- entity becomes a UTF-8 character
			},
		},
	},
}
 
function table.equal (t1, t2)
	for nome, val in pairs (t1) do
		local tv = type(val)
		if tv == "table" then
			if type(t2[nome]) ~= "table" then
				return false, "Different types at entry `"..nome.."': t1."..nome.." is "..tv.." while t2."..nome.." is "..type(t2[nome]).." ["..tostring(t2[nome]).."]"
			else
				local ok, msg = table.equal (val, t2[nome])
				if not ok then
					return false, "["..nome.."]\t"..tostring(val).." ~= "..tostring(t2[nome]).."; "..msg
				end
			end
		else
			if val ~= t2[nome] then
				return false, "["..nome.."]\t["..tostring(val).."] ~= ["..tostring(t2[nome])..']'
			end
		end
	end
	return true
end
 
 
for i, s in ipairs(tests) do
	io.write'.'
	local encoding = s.encoding or "ISO-8859-1"
	local header = [[<?xml version="1.0" encoding="]]..encoding..[["?>]]..(s.doctype or '')
	local doc = header..s[1]
 
	local o1 = assert (lom.parse (doc))
	assert(table.equal (o1, s[2]))
 
	local o2 = assert (lom.parse (string.gmatch(doc, ".-%>")))
	assert(table.equal (o2, s[2]))
end
 
local o = assert (lom.parse ([[
<?xml version="1.0"?>
<a1>
	<b1>
		<c1>t111</c1>
		<c2>t112</c2>
	</b1>
	<b2>
		<c1>t121</c1>
		<c2>t122</c2>
	</b2>
</a1>]]))
assert (o.tag == "a1")
assert (o[1] == "\n\t")
assert (o[2].tag == "b1")
assert (o[2][2].tag == "c1")
local c1 = lom.find_elem (o, "c1")
assert (type(c1) == "table")
assert (c1.tag == "c1")
assert (c1[1] == "t111")
local next_child = lom.list_children (o)
assert (next_child().tag == "b1")
assert (next_child().tag == "b2")
assert (next_child() == nil)
 
print"OK"

1	#!/usr/local/bin/lua
2
3	local lom = require "lxp.lom"
4
5	local u_acute_utf8 = string.char(195)..string.char(186) -- C3 BA
6	local u_acute_latin1 = string.char(250) -- FA
7
8	local tests = {
9	{
10	[[<abc a1="A1" a2="A2">inside tag `abc'</abc>]],
11	{
12	tag="abc",
13	attr = { "a1", "a2", a1 = "A1", a2 = "A2", },
14	"inside tag `abc'",
15	},
16	},
17	{
18	[[<qwerty q1="q1" q2="q2">
19	<asdf>some text</asdf>
20	</qwerty>]],
21	{
22	tag = "qwerty",
23	attr = { "q1", "q2", q1 = "q1", q2 = "q2", },
24	"\n\t",
25	{
26	tag = "asdf",
27	attr = {},
28	"some text",
29	},
30	"\n",
31	},
32	},
33	{
34	[[<ul><li>conteudo 1</li><li>conte]]..u_acute_utf8..[[do 2</li></ul>]],
35	encoding = "UTF-8",
36	{
37	tag = "ul",
38	attr = {},
39	{
40	tag = "li",
41	attr = {},
42	"conteudo 1",
43	},
44	{
45	tag = "li",
46	attr = {},
47	"conteúdo 2",
48	},
49	},
50	},
51	{
52	[[<ul><li>Conteudo 1</li><li>Conte]]..u_acute_latin1..[[do 2</li><li>Conteúdo 3</li></ul>]],
53	encoding = "ISO-8859-1",
54	doctype = [[<!DOCTYPE test [<!ENTITY uacute "ú">]>]], -- Ok!
55	{
56	tag = "ul",
57	attr = {},
58	{
59	tag = "li",
60	attr = {},
61	"Conteudo 1",
62	},
63	{
64	tag = "li",
65	attr = {},
66	"Conteúdo 2", -- Latin-1 becomes UTF-8
67	},
68	{
69	tag = "li",
70	attr = {},
71	"Conteúdo 3", -- entity becomes a UTF-8 character
72	},
73	},
74	},
75	{
76	[[<ul><li>Conteúdo</li></ul>]],
77	--doctype = [[<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">]], --> ignora as entidades
78	--doctype = [[<!DOCTYPE html SYSTEM "about:legacy-compat">]], --> ignora as entidades
79	--doctype = [[<!DOCTYPE html>]], --> undefined entity
80	--doctype = [[<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">]], --> sintax error
81	--doctype = [[<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" SYSTEM "http://www.w3.org/TR/html4/strict.dtd">]], --> syntax error
82	--doctype = [[<!DOCTYPE HTMLlat1 PUBLIC "-//W3C//ENTITIES Latin 1//EN//HTML">]], --> syntax error
83	--doctype = [[<!DOCTYPE HTMLlat1 PUBLIC "-//W3C//ENTITIES Latin 1 for XHTML//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml-lat1.ent">]], --> ignora entidades
84	--doctype = [[<!DOCTYPE isolat1 PUBLIC "//W3C//ENTITIES Added Latin 1//EN//XML" "http://www.w3.org/2003/entities/2007/isolat1.ent">]], --> ignora entidades
85	doctype = [[<!DOCTYPE test [<!ENTITY uacute "ú">]>]], -- Ok!
86	encoding = "UTF-8",
87	{
88	tag = "ul",
89	attr = {},
90	{
91	tag = "li",
92	attr = {},
93	"Conteúdo", -- entity becomes a UTF-8 character
94	},
95	},
96	},
97	}
98
99	function table.equal (t1, t2)
100	for nome, val in pairs (t1) do
101	local tv = type(val)
102	if tv == "table" then
103	if type(t2[nome]) ~= "table" then
104	return false, "Different types at entry `"..nome.."': t1."..nome.." is "..tv.." while t2."..nome.." is "..type(t2[nome]).." ["..tostring(t2[nome]).."]"
105	else
106	local ok, msg = table.equal (val, t2[nome])
107	if not ok then
108	return false, "["..nome.."]\t"..tostring(val).." ~= "..tostring(t2[nome]).."; "..msg
109	end
110	end
111	else
112	if val ~= t2[nome] then
113	return false, "["..nome.."]\t["..tostring(val).."] ~= ["..tostring(t2[nome])..']'
114	end
115	end
116	end
117	return true
118	end
119
120
121	for i, s in ipairs(tests) do
122	io.write'.'
123	local encoding = s.encoding or "ISO-8859-1"
124	local header = [[<?xml version="1.0" encoding="]]..encoding..[["?>]]..(s.doctype or '')
125	local doc = header..s[1]
126
127	local o1 = assert (lom.parse (doc))
128	assert(table.equal (o1, s[2]))
129
130	local o2 = assert (lom.parse (string.gmatch(doc, ".-%>")))
131	assert(table.equal (o2, s[2]))
132	end
133
134	local o = assert (lom.parse ([[
135	<?xml version="1.0"?>
136	<a1>
137	<b1>
138	<c1>t111</c1>
139	<c2>t112</c2>
140	</b1>
141	<b2>
142	<c1>t121</c1>
143	<c2>t122</c2>
144	</b2>
145	</a1>]]))
146	assert (o.tag == "a1")
147	assert (o[1] == "\n\t")
148	assert (o[2].tag == "b1")
149	assert (o[2][2].tag == "c1")
150	local c1 = lom.find_elem (o, "c1")
151	assert (type(c1) == "table")
152	assert (c1.tag == "c1")
153	assert (c1[1] == "t111")
154	local next_child = lom.list_children (o)
155	assert (next_child().tag == "b1")
156	assert (next_child().tag == "b2")
157	assert (next_child() == nil)
158
159	print"OK"