--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/test-table.lua Fri Apr 23 21:18:24 2021 +0100
@@ -0,0 +1,278 @@
+#!/usr/local/bin/lua
+
+local totable = require "lxp.totable"
+
+local tests = {
+ {
+ [[<abc a1="A1" a2="A2">inside tag `abc'</abc>]],
+ {
+ [0] = "abc",
+ a1 = "A1",
+ a2 = "A2",
+ "inside tag `abc'",
+ },
+ },
+ {
+ [[<qwerty q1="q1" q2="q2">
+ <asdf>some text</asdf>
+</qwerty>]],
+ {
+ [0] = "qwerty",
+ q1 = "q1",
+ q2 = "q2",
+ "\n\t",
+ {
+ [0] = "asdf",
+ "some text",
+ },
+ "\n",
+ },
+ },
+ {
+ [[
+<!-- http://www.w3schools.com/xml/simple.xml -->
+<breakfast_menu>
+ <food>
+ <name>Belgian Waffles</name>
+ <price>$5.95</price>
+ <description>Two of our famous Belgian Waffles with plenty of real maple syrup</description>
+ <calories>650</calories>
+ </food>
+ <food>
+ <name>Strawberry Belgian Waffles</name>
+ <price>$7.95</price>
+ <description>Light Belgian waffles covered with strawberries and whipped cream</description>
+ <calories>900</calories>
+ </food>
+ <food>
+ <name>Berry-Berry Belgian Waffles</name>
+ <price>$8.95</price>
+ <description>Light Belgian waffles covered with an assortment of fresh berries and whipped cream</description>
+ <calories>900</calories>
+ </food>
+ <food>
+ <name>French Toast</name>
+ <price>$4.50</price>
+ <description>Thick slices made from our homemade sourdough bread</description>
+ <calories>600</calories>
+ </food>
+ <food>
+ <name>Homestyle Breakfast</name>
+ <price>$6.95</price>
+ <description>Two eggs, bacon or sausage, toast, and our ever-popular hash browns</description>
+ <calories>950</calories>
+ </food>
+</breakfast_menu>]],
+ {
+ [0] = "breakfast_menu",
+ [1] = "\n\t",
+ [2] = {
+ [0] = "food",
+ [1] = "\n\t\t",
+ [2] = { [0] = "name", [1] = "Belgian Waffles", },
+ [3] = "\n\t\t",
+ [4] = { [0] = "price", [1] = "$5.95", },
+ [5] = "\n\t\t",
+ [6] = {
+ [0] = "description",
+ [1] = "Two of our famous Belgian Waffles with plenty of real maple syrup",
+ },
+ [7] = "\n\t\t",
+ [8] = { [0] = "calories", [1] = "650", },
+ [9] = "\n\t",
+ },
+ [3] = "\n\t",
+ [4] = {
+ [0] = "food",
+ [1] = "\n\t\t",
+ [2] = { [0] = "name", [1] = "Strawberry Belgian Waffles", },
+ [3] = "\n\t\t",
+ [4] = { [0] = "price", [1] = "$7.95", },
+ [5] = "\n\t\t",
+ [6] = {
+ [0] = "description",
+ [1] = "Light Belgian waffles covered with strawberries and whipped cream",
+ },
+ [7] = "\n\t\t",
+ [8] = { [0] = "calories", [1] = "900", },
+ [9] = "\n\t",
+ },
+ [5] = "\n\t",
+ [6] = {
+ [0] = "food",
+ [1] = "\n\t\t",
+ [2] = { [0] = "name", [1] = "Berry-Berry Belgian Waffles", },
+ [3] = "\n\t\t",
+ [4] = { [0] = "price", [1] = "$8.95", },
+ [5] = "\n\t\t",
+ [6] = {
+ [0] = "description",
+ [1] = "Light Belgian waffles covered with an assortment of fresh berries and whipped cream",
+ },
+ [7] = "\n\t\t",
+ [8] = { [0] = "calories", [1] = "900", },
+ [9] = "\n\t",
+ },
+ [7] = "\n\t",
+ [8] = {
+ [0] = "food",
+ [1] = "\n\t\t",
+ [2] = { [0] = "name", [1] = "French Toast", },
+ [3] = "\n\t\t",
+ [4] = { [0] = "price", [1] = "$4.50", },
+ [5] = "\n\t\t",
+ [6] = {
+ [0] = "description",
+ [1] = "Thick slices made from our homemade sourdough bread",
+ },
+ [7] = "\n\t\t",
+ [8] = { [0] = "calories", [1] = "600", },
+ [9] = "\n\t",
+ },
+ [9] = "\n\t",
+ [10] = {
+ [0] = "food",
+ [1] = "\n\t\t",
+ [2] = { [0] = "name", [1] = "Homestyle Breakfast", },
+ [3] = "\n\t\t",
+ [4] = { [0] = "price", [1] = "$6.95", },
+ [5] = "\n\t\t",
+ [6] = {
+ [0] = "description",
+ [1] = "Two eggs, bacon or sausage, toast, and our ever-popular hash browns",
+ },
+ [7] = "\n\t\t",
+ [8] = { [0] = "calories", [1] = "950", },
+ [9] = "\n\t",
+ },
+ [11] = "\n",
+ },
+ clean = {
+ [0] = "breakfast_menu",
+ [1] = {
+ [0] = "food",
+ [1] = { [0] = "name", [1] = "Belgian Waffles", },
+ [2] = { [0] = "price", [1] = "$5.95", },
+ [3] = {
+ [0] = "description",
+ [1] = "Two of our famous Belgian Waffles with plenty of real maple syrup",
+ },
+ [4] = { [0] = "calories", [1] = "650", },
+ },
+ [2] = {
+ [0] = "food",
+ [1] = { [0] = "name", [1] = "Strawberry Belgian Waffles", },
+ [2] = { [0] = "price", [1] = "$7.95", },
+ [3] = {
+ [0] = "description",
+ [1] = "Light Belgian waffles covered with strawberries and whipped cream",
+ },
+ [4] = { [0] = "calories", [1] = "900", },
+ },
+ [3] = {
+ [0] = "food",
+ [1] = { [0] = "name", [1] = "Berry-Berry Belgian Waffles", },
+ [2] = { [0] = "price", [1] = "$8.95", },
+ [3] = {
+ [0] = "description",
+ [1] = "Light Belgian waffles covered with an assortment of fresh berries and whipped cream",
+ },
+ [4] = { [0] = "calories", [1] = "900", },
+ },
+ [4] = {
+ [0] = "food",
+ [1] = { [0] = "name", [1] = "French Toast", },
+ [2] = { [0] = "price", [1] = "$4.50", },
+ [3] = {
+ [0] = "description",
+ [1] = "Thick slices made from our homemade sourdough bread",
+ },
+ [4] = { [0] = "calories", [1] = "600", },
+ },
+ [5] = {
+ [0] = "food",
+ [1] = { [0] = "name", [1] = "Homestyle Breakfast", },
+ [2] = { [0] = "price", [1] = "$6.95", },
+ [3] = {
+ [0] = "description",
+ [1] = "Two eggs, bacon or sausage, toast, and our ever-popular hash browns",
+ },
+ [4] = { [0] = "calories", [1] = "950", },
+ },
+ },
+ torecord = {
+ [0] = "breakfast_menu",
+ [1] = {
+ [0] = "food",
+ name = "Belgian Waffles",
+ price = "$5.95",
+ description = "Two of our famous Belgian Waffles with plenty of real maple syrup",
+ calories = "650",
+ },
+ [2] = {
+ [0] = "food",
+ name = "Strawberry Belgian Waffles",
+ price = "$7.95",
+ description = "Light Belgian waffles covered with strawberries and whipped cream",
+ calories = "900",
+ },
+ [3] = {
+ [0] = "food",
+ name = "Berry-Berry Belgian Waffles",
+ price = "$8.95",
+ description = "Light Belgian waffles covered with an assortment of fresh berries and whipped cream",
+ calories = "900",
+ },
+ [4] = {
+ [0] = "food",
+ name = "French Toast",
+ price = "$4.50",
+ description = "Thick slices made from our homemade sourdough bread",
+ calories = "600",
+ },
+ [5] = {
+ [0] = "food",
+ name = "Homestyle Breakfast",
+ price = "$6.95",
+ description = "Two eggs, bacon or sausage, toast, and our ever-popular hash browns",
+ calories = "950",
+ },
+ },
+ },
+}
+
+
+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
+ local ds = assert (totable.parse ([[<?xml version="1.0" encoding="ISO-8859-1"?>]]..s[1]))
+ assert(table.equal (ds, s[2]))
+end
+
+local t = totable.parse ([[<?xml version="1.0" encoding="ISO-8859-1"?>]]..tests[3][1])
+totable.clean (t)
+assert (table.equal (t, tests[3].clean))
+totable.torecord (t)
+assert (table.equal (t, tests[3].torecord))
+
+print"OK"