Test compiling a simple deny-all rule

2 files changed, 14 insertions, 0 deletions

diff --git a/test/test-lace.compile-denyall.rules b/test/test-lace.compile-denyall.rules
new file mode 100644
index 0000000..60cf998
--- /dev/null
+++ b/test/test-lace.compile-denyall.rules
@@ -0,0 +1,4 @@
+-- This ruleset consists of a single statement to deny
+-- everything.
+
+deny "Sorry"
diff --git a/test/test-lace.compiler.lua b/test/test-lace.compiler.lua
index 4b4cfda..7b1c641 100644
--- a/test/test-lace.compiler.lua
+++ b/test/test-lace.compiler.lua
@@ -116,6 +116,16 @@ function suite.load_file_with_disabled_command()
    assert(msg:match("is disabled by"), "Error returned did not match the bad command")
 end
 
+function suite.load_file_with_one_command()
+   local result, msg = compiler.compile(comp_context, "denyall")
+   assert(type(result) == "table", "Loading a ruleset should result in a table")
+   assert(#result.rules == 1, "There should be one rule present")
+   local rule = result.rules[1]
+   assert(type(rule) == "table", "Rules should be tables")
+   assert(type(rule.fn) == "function", "Rules should have functions")
+   assert(type(rule.args) == "table", "Rules should have arguments")
+end
+
 local count_ok = 0
 for _, testname in ipairs(testnames) do
    print("Run: " .. testname)