Mercurial > lua-expat / file diff

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/test-lom.lua	Wed Jun 01 22:14:25 2011 +0100
@@ -0,0 +1,50 @@
+#!/usr/local/bin/lua
+
+local lom = require "lxp.lom"
+
+local tests = {
+	[[<abc a1="A1" a2="A2">inside tag `abc'</abc>]],
+	[[<qwerty q1="q1" q2="q2">
+	<asdf>some text</asdf>
+</qwerty>]],
+}
+
+function table._tostring (tab, indent, spacing)
+	local s = {}
+	spacing = spacing or ""
+	indent = indent or "\t"
+    table.insert (s, "{\n")
+    for nome, val in pairs (tab) do
+        table.insert (s, spacing..indent)
+        local t = type(nome)
+		if t == "string" then
+            table.insert (s, string.format ("[%q] = ", tostring (nome)))
+		elseif t == "number" or t == "boolean" then
+            table.insert (s, string.format ("[%s] = ", tostring (nome)))
+        else
+            table.insert (s, t)
+        end
+        t = type(val)
+        if t == "string" or t == "number" then
+            table.insert (s, string.format ("%q", val))
+        elseif t == "table" then
+            table.insert (s, table._tostring (val, indent, spacing..indent))
+        else
+            table.insert (s, t)
+        end
+        table.insert (s, ",\n")
+    end
+    table.insert (s, spacing.."}")
+	return table.concat (s)
+end
+
+function table.print (tab, indent, spacing)
+	io.write (table._tostring (tab, indent, spacing))
+end
+
+
+for i, s in ipairs(tests) do
+	--s = string.gsub (s, "[\n\r\t]", "")
+	local ds = assert (lom.parse ([[<?xml version="1.0" encoding="ISO-8859-1"?>]]..s))
+	print(table._tostring(ds))
+end