Set up a "build system"

1 files changed, 41 insertions, 0 deletions

diff --git a/test/testc.lua b/test/testc.lua
new file mode 100644
index 0000000..72ed393
--- /dev/null
+++ b/test/testc.lua
@@ -0,0 +1,41 @@
+
+local function printr(...)
+    print(...)
+    return ...
+end
+
+local collect = {}
+local function printr_collect(...)
+    table.insert(collect, (...))
+    return printr(...)
+end
+
+-- used to print what the lua parser (load) is seeing, after cratera has done its thing
+loadstring = nil
+local realload = load
+load = function(target, ...)
+    if type(target) == "function" then
+        return realload(function() return printr_collect(target()) end, ...)
+    else
+        return realload(printr_collect(target), ...)
+    end
+end
+
+local cratera = require "cratera"
+
+-- first test: does it handle empty files properly?
+assert(printr(cratera.load("")))()
+
+-- second test: does it handle lua code properly?
+assert(printr(cratera.load(io.open("src/cratera/compiler.lua"):read("*a"))))()
+
+print("-----------------------------------------------------------------------------------------------------------------------")
+print(table.concat(collect))
+
+collect = {}
+
+-- third test: does it handle cratera tests properly?
+assert(printr(cratera.load(io.open("test/tests.cratera"):read("*a"))))()
+
+print("-----------------------------------------------------------------------------------------------------------------------")
+print(table.concat(collect))