Ensure that supple works during gitano-setup to early-warn if something's odd

1 files changed, 34 insertions, 0 deletions

diff --git a/bin/gitano-setup.in b/bin/gitano-setup.in
index 038276c..b39a6b5 100644
--- a/bin/gitano-setup.in
+++ b/bin/gitano-setup.in
@@ -62,6 +62,40 @@ end
 
 gitano.log.chat("Welcome to the Gitano setup process")
 
+gitano.log.chat("Performing system checks")
+
+-- Check that Supple functions properly
+local ok, msg = pcall(function()
+      gitano.log.chat("... Checking supple sandboxing")
+      local s = require 'supple'
+      local ok, a, b, c = s.host.run("return ...", "test", 12, 'hello', true)
+      if not ok then
+	 gitano.log.chat("... Supple unable to run trivial sandboxed code")
+	 os.exit(1)
+      end
+      if a ~= 12 or b ~= "hello" or c ~= true then
+	 gitano.log.chat("... Supple unable to pass trivial values in and out")
+	 os.exit(1)
+      end
+      local ok, v = s.host.run("local a = ...\nreturn a.banana", "test", {banana=14})
+      if not ok then
+	 gitano.log.chat("... Supple unable to run trivial sandboxed code")
+	 os.exit(1)
+      end
+      if v ~= 14 then
+	 gitano.log.chat("... Supple unable to communicate bidirectionally")
+	 os.exit(1)
+      end
+end)
+
+if not ok then
+   gitano.log.chat("... Unable to run supple test")
+   gitano.log.chat("... " .. tostring(msg))
+   os.exit(1)
+end
+
+gitano.log.chat("System checks out")
+
 function get(key)
    return conf.settings[key]
 end