Add match function for simple tag globbing

1 files changed, 16 insertions, 0 deletions

diff --git a/tests/SlackBuilder/LatestVersionCheckSpec.hs b/tests/SlackBuilder/LatestVersionCheckSpec.hs
index fe92176..9abce99 100644
--- a/tests/SlackBuilder/LatestVersionCheckSpec.hs
+++ b/tests/SlackBuilder/LatestVersionCheckSpec.hs
@@ -22,3 +22,19 @@ spec = do
                 actual = stableTagTransform given
                 expected = Just "2.6.0"
              in actual `shouldBe` expected
+
+    describe "match" $ do
+        it "matches an exact tag prefixed with v" $ 
+            let expected = Just "2.6.0"
+                actual = match "(v)2.6.0" "v2.6.0"
+             in actual `shouldBe` expected
+
+        it "matches a glob pattern prefixed with v" $ 
+            let expected = Just "2.6.0"
+                actual = match "(v)*" "v2.6.0"
+             in actual `shouldBe` expected
+
+        it "ignores suffix after wildcard" $ 
+            let expected = Just "2.6.0"
+                actual = match "(v)*(-rc1)" "v2.6.0-rc1"
+             in actual `shouldBe` expected