1 files changed, 39 insertions, 0 deletions
diff --git a/test.lua b/test.lua
new file mode 100644
index 0000000..3493de4
--- /dev/null
+++ b/test.lua
@@ -0,0 +1,39 @@
+-- Some primitives for tests.
+--
+-- Success indicators go to the terminal; failures go to the window.
+-- I don't know what I am doing.
+
+function check(x, msg)
+  if x then
+    io.write('.')
+  else
+    error(msg)
+  end
+end
+
+function check_eq(x, expected, msg)
+  if eq(x, expected) then
+    io.write('.')
+  else
+    error(msg..'; got "'..x..'"')
+  end
+end
+
+function eq(a, b)
+  if type(a) ~= type(b) then return false end
+  if type(a) == 'table' then
+    if #a ~= #b then return false end
+    for k, v in pairs(a) do
+      if b[k] ~= v then
+        return false
+      end
+    end
+    for k, v in pairs(b) do
+      if a[k] ~= v then
+        return false
+      end
+    end
+    return true
+  end
+  return a == b
+end