Pledge and unveil redbean's unit tests

test/tool/net/argon2_test.lua

@@ -13,6 +13,8 @@
 -- TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
 -- PERFORMANCE OF THIS SOFTWARE.
 
+unix.pledge("stdio")
+
 assert(assert(argon2.hash_encoded("password", "somesalt", {
                variant = argon2.variants.argon2_i,
                m_cost = 65536,

test/tool/net/encodejson_test.lua

@@ -13,6 +13,8 @@
 -- TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
 -- PERFORMANCE OF THIS SOFTWARE.
 
+unix.pledge("stdio")
+
 assert(EncodeJson(nil) == "null")
 assert(EncodeJson(true) == "true")
 assert(EncodeJson(false) == "false")

test/tool/net/encodelua_test.lua

@@ -13,6 +13,8 @@
 -- TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
 -- PERFORMANCE OF THIS SOFTWARE.
 
+unix.pledge("stdio")
+
 assert(EncodeLua(nil) == "nil")
 assert(EncodeLua(true) == "true")
 assert(EncodeLua(false) == "false")

test/tool/net/jsonorg_fail_test.lua

@@ -1,3 +1,5 @@
+unix.pledge("stdio")
+
 -- https://www.json.org/JSON_checker/test.zip
 -- JSON parsing sample test case: fail11.json
 assert(not DecodeJson([[

test/tool/net/jsonorg_pass_test.lua

@@ -1,3 +1,5 @@
+unix.pledge("stdio")
+
 -- https://www.json.org/JSON_checker/test.zip
 -- JSON parsing sample test case: pass1.json
 assert(DecodeJson([[

test/tool/net/jsontestsuite_fail1_test.lua

@@ -26,6 +26,8 @@
 -- SOFTWARE.
 --
 
+unix.pledge("stdio")
+
 -- these test cases are prefixed with n_
 -- ljson should reject all of them as invalid
 

test/tool/net/jsontestsuite_fail2_test.lua

@@ -26,6 +26,8 @@
 -- SOFTWARE.
 --
 
+unix.pledge("stdio")
+
 -- these test cases are prefixed with n_
 -- ljson should reject all of them as invalid
 

test/tool/net/jsontestsuite_fail3_test.lua

@@ -26,6 +26,8 @@
 -- SOFTWARE.
 --
 
+unix.pledge("stdio")
+
 -- these test cases are prefixed with n_
 -- ljson should reject all of them as invalid
 

test/tool/net/jsontestsuite_fail4_test.lua

@@ -26,6 +26,8 @@
 -- SOFTWARE.
 --
 
+unix.pledge("stdio")
+
 -- these test cases are prefixed with n_
 -- ljson should reject all of them as invalid
 

test/tool/net/jsontestsuite_okay_test.lua

@@ -26,6 +26,8 @@
 -- SOFTWARE.
 --
 
+unix.pledge("stdio")
+
 -- these test cases are prefixed with i_
 -- ljson is free to accept or reject,
 -- but we run them anyway to check for segfaults

test/tool/net/jsontestsuite_pass_test.lua

@@ -26,6 +26,8 @@
 -- SOFTWARE.
 --
 
+unix.pledge("stdio")
+
 -- these test cases are prefixed with y_
 -- ljson should accept all of them as valid
 

test/tool/net/lfuncs_test.lua

@@ -13,6 +13,8 @@
 -- TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
 -- PERFORMANCE OF THIS SOFTWARE.
 
+unix.pledge("stdio")
+
 x = Rdtsc()
 y = Rdtsc()
 assert(y > x)

test/tool/net/ljson_test.lua

@@ -13,6 +13,8 @@
 -- TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
 -- PERFORMANCE OF THIS SOFTWARE.
 
+unix.pledge("stdio")
+
 assert(EncodeLua(assert(DecodeJson[[  0  ]])) ==  '0' )
 assert(EncodeLua(assert(DecodeJson[[ [1] ]])) == '{1}')
 assert(EncodeLua(assert(DecodeJson[[ 2.3 ]])) == '2.3')

test/tool/net/lre_test.lua

@@ -13,6 +13,8 @@
 -- TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
 -- PERFORMANCE OF THIS SOFTWARE.
 
+unix.pledge("stdio")
+
 assert(string.match("127.123.231.1", "%d+.%d+.%d+.%d+"))
 assert(re.search([[^\d{1,3}(\.\d{1,3}){3}$]], "127.123.231.1"))
 

test/tool/net/lua_test.lua

@@ -13,6 +13,8 @@
 -- TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
 -- PERFORMANCE OF THIS SOFTWARE.
 
+unix.pledge("stdio")
+
 -- test redbean lua language extensions
 assert(0b100 == 4)
 assert(0200 == 128)

test/tool/net/lunix_test.lua

@@ -151,6 +151,9 @@ end
 
 function main()
    assert(unix.makedirs(tmpdir))
+   unix.unveil(tmpdir, "rwc")
+   unix.unveil(nil, nil)
+   unix.pledge("stdio rpath wpath cpath proc")
    ok, err = pcall(UnixTest)
    if ok then
       assert(unix.rmrf(tmpdir))

test/tool/net/path_test.lua

@@ -13,6 +13,8 @@
 -- TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
 -- PERFORMANCE OF THIS SOFTWARE.
 
+unix.pledge("stdio")
+
 assert("/usr/lib" == path.dirname("/usr/lib/foo.bar"))
 assert("/usr" == path.dirname("/usr/lib"))
 assert("usr" == path.dirname("usr/lib"))

test/tool/net/slurp_test.lua

@@ -38,6 +38,9 @@ end
 
 local function main()
    assert(unix.makedirs(tmpdir))
+   unix.unveil(tmpdir, "rwc")
+   unix.unveil(nil, nil)
+   unix.pledge("stdio rpath wpath cpath")
    ok, err = pcall(SlurpTest)
    if ok then
       assert(unix.rmrf(tmpdir))