assert() can handle non-string errors.

Author: siffiejoe

compat53/module.lua

@@ -147,6 +147,20 @@ if lua_version < "5.3" then
    end
 
 
+   -- assert should allow non-string error objects
+   do
+      function M.assert(cond, ...)
+         if cond then
+            return cond, ...
+         elseif select('#', ...) > 0 then
+            error((...), 0)
+         else
+            error("assertion failed!", 0)
+         end
+      end
+   end
+
+
    -- ipairs should respect __index metamethod
    do
       local function ipairs_iterator(st, var)

tests/test.lua

@@ -45,14 +45,25 @@ end
 package.path = "../?.lua;../?/init.lua;"..package.path
 package.cpath = "./?-"..V..".so;./?-"..V..".dll;./?.so;./?.dll"
 if mode == "module" then
-  print( "testing Lua API using `compat53.module` ..." )
+  print("testing Lua API using `compat53.module` ...")
   _ENV = require("compat53.module")
   if setfenv then setfenv(1, _ENV) end
 else
-  print( "testing Lua API using `compat53` ..." )
+  print("testing Lua API using `compat53` ...")
   require("compat53")
 end
 
+
+___''
+do
+  print("assert", F(pcall(assert, false)))
+  print("assert", F(pcall(assert, false, nil)))
+  print("assert", F(pcall(assert, false, "error msg")))
+  print("assert", F(pcall(assert, nil, {})))
+  print("assert", F(pcall(assert, 1, 2, 3)))
+end
+
+
 ___''
 do
   local t = setmetatable({}, { __index = { 1, false, "three" } })