From 7e59a8460ddd465ee529b00b7ecb98d4b299abce Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Thu, 21 Mar 2024 17:52:37 +0100 Subject: Add match function for simple tag globbing --- tests/SlackBuilder/LatestVersionCheckSpec.hs | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'tests') 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 -- cgit v1.2.3