Add assert_match function

Author: khvzak

lua/assertions.lua

@@ -25,6 +25,18 @@ function assertions.assert_ne(left, right, message)
     end
 end
 
+function assertions.assert_match(obj, pattern, message)
+    if not tostring(obj):match(pattern) then
+        if message ~= nil then
+            message = string.format("assertion `obj:match(pattern)` failed: %s", tostring(message))
+        else
+            message = "assertion `obj:match(pattern)` failed!"
+        end
+        local frame_level = opts.level or 2
+        error(string.format("%s\n  pattern: %s\n  obj: %s", message, pattern, tostring(obj)), frame_level)
+    end
+end
+
 local function next_level(level, k)
     if type(k) == "string" then
         return level .. '["' .. k .. '"]'

lua/testing.lua

@@ -36,6 +36,14 @@ function TestContext.assert_eq(a, b, msg)
     assertions.assert_eq(a, b, msg)
 end
 
+function TestContext.assert_ne(a, b, msg)
+    assertions.assert_ne(a, b, msg)
+end
+
+function TestContext.assert_match(a, b, msg)
+    assertions.assert_match(a, b, msg)
+end
+
 function TestContext.assert_same(a, b, msg)
     assertions.assert_same(a, b, msg)
 end
@@ -100,7 +108,7 @@ function Testing:_run_single_test(test)
     -- Run the test
     local test_ok, test_err = pcall(test.func, ctx)
     if not test_ok then
-        if test_err and test_err:match("^__SKIP__:") then
+        if type(test_err) == "string" and test_err:match("^__SKIP__:") then
             success, err = "skip", test_err:match("^__SKIP__: (.*)")
         else
             success, err = false, test_err

tests/lua/assertions_tests.lua

@@ -2,6 +2,7 @@ local assertions = require("@assertions")
 
 local assert_eq = assertions.assert_eq
 local assert_ne = assertions.assert_ne
+local assert_match = assertions.assert_match
 local assert_same = assertions.assert_same
 
 testing:test("assert_eq", function()
@@ -52,6 +53,23 @@ testing:test("assert_ne", function()
     assert(err:match(" right: nil"))
 end)
 
+testing:test("assert_match", function()
+    assert_match("hello world", "hello")
+    assert_match("12345", "%d+")
+
+    local ok, err = pcall(assert_match, "hello world", "bye")
+    assert(not ok)
+    assert(err:match("assertion `obj:match%(pattern%)` failed!"))
+    assert(err:match("  pattern: bye"))
+    assert(err:match("  obj: hello world"))
+
+    ok, err = pcall(assert_match, "foo", "bar", "custom message")
+    assert(not ok)
+    assert(err:match("assertion `obj:match%(pattern%)` failed: custom message"))
+    assert(err:match("  pattern: bar"))
+    assert(err:match("  obj: foo"))
+end)
+
 testing:test("assert_same", function()
     assert_same(1, 1)
     assert_same(nil, nil)