Extern tag matcher with digit and dot patterns

1 files changed, 19 insertions, 16 deletions

diff --git a/tests/SlackBuilder/LatestVersionCheckSpec.hs b/tests/SlackBuilder/LatestVersionCheckSpec.hs
index 9abce99..bc4a0f2 100644
--- a/tests/SlackBuilder/LatestVersionCheckSpec.hs
+++ b/tests/SlackBuilder/LatestVersionCheckSpec.hs
@@ -11,30 +11,33 @@ import Test.Hspec (Spec, describe, it, shouldBe)
 
 spec :: Spec
 spec = do
-    describe "stableTagTransform" $ do
-        it "excludes tags with +" $
-            let given = "v2.6.0+unreleased"
-                actual = stableTagTransform given
-             in actual `shouldBe` Nothing
-
-        it "recognizes a stable version" $
-            let given = "v2.6.0"
-                actual = stableTagTransform given
-                expected = Just "2.6.0"
-             in actual `shouldBe` expected
-
     describe "match" $ do
-        it "matches an exact tag prefixed with v" $ 
+        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" $ 
+        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" $ 
+        it "matches digits" $
+            let expected = Just "2.6.0"
+                actual = match "(v)2.6.\\d" "v2.6.0"
+             in actual `shouldBe` expected
+
+        it "matches digits and dot" $
             let expected = Just "2.6.0"
-                actual = match "(v)*(-rc1)" "v2.6.0-rc1"
+                actual = match "(v)\\." "v2.6.0"
+             in actual `shouldBe` expected
+
+        it "rejects unexpected suffix" $
+            let expected = Nothing
+                actual = match "(v)\\." "v2.6.0-rc1"
+             in actual `shouldBe` expected
+
+        it "rejects remaining umatched characters" $
+            let expected = Nothing
+                actual = match "2.6.0-rc1" "2.6.0"
              in actual `shouldBe` expected