From a2e8e1bcf2fbfcc8cc1b980cca2b93df86e1a7fe Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Mon, 11 Aug 2025 13:53:48 +0300 Subject: Rename tests directory into test --- test/SlackBuilder/PackageSpec.hs | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 test/SlackBuilder/PackageSpec.hs (limited to 'test/SlackBuilder/PackageSpec.hs') diff --git a/test/SlackBuilder/PackageSpec.hs b/test/SlackBuilder/PackageSpec.hs new file mode 100644 index 0000000..79fce72 --- /dev/null +++ b/test/SlackBuilder/PackageSpec.hs @@ -0,0 +1,26 @@ +{- This Source Code Form is subject to the terms of the Mozilla Public License, + v. 2.0. If a copy of the MPL was not distributed with this file, You can + obtain one at https://mozilla.org/MPL/2.0/. -} + +module SlackBuilder.PackageSpec + ( spec + ) where + +import SlackBuilder.Package +import Test.Hspec (Spec, describe, it, shouldBe) +import Text.URI.QQ (uri) + +spec :: Spec +spec = do + describe "renderDownloadWithVersion" $ do + it "renders text as URL" $ + let given = DownloadTemplate "https://example.com" + actual = renderDownloadWithVersion given "1.2" + expected = Just [uri|https://example.com|] + in actual `shouldBe` expected + + it "renders the components in order" $ + let given = DownloadTemplate "https://example.com/{version}/segment" + actual = renderDownloadWithVersion given "1.2" + expected = Just [uri|https://example.com/1.2/segment|] + in actual `shouldBe` expected -- cgit v1.2.3