SANDBOX: Enough sandboxing to get us further. Testing the wrapper is hard

1 files changed, 6 insertions, 0 deletions

diff --git a/test/test-supple.lua b/test/test-supple.lua
index fdd08e4..fe7bb9b 100644
--- a/test/test-supple.lua
+++ b/test/test-supple.lua
@@ -14,6 +14,7 @@ local luacov = require 'luacov'
 local capi = require 'supple.capi'
 local request = require 'supple.request'
 local objects = require 'supple.objects'
+local sandbox = require 'supple.sandbox'
 local supple = require 'supple'
 
 local testnames = {}
@@ -47,6 +48,11 @@ function suite.objects_passed()
 	  "Supple's objects entry is not supple.objects")
 end
 
+function suite.sandbox_passed()
+   assert(supple.sandbox == sandbox,
+	  "Supple's sandbox entry is not supple.sandbox")
+end
+
 local count_ok = 0
 for _, testname in ipairs(testnames) do
 --   print("Run: " .. testname)