From ec704e267b1344ca30654850b7d127198846d081 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Fri, 22 Sep 2023 07:47:46 +0200 Subject: Fix renderDownloadWithVersion concatenation order --- tests/SlackBuilder/PackageSpec.hs | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'tests') diff --git a/tests/SlackBuilder/PackageSpec.hs b/tests/SlackBuilder/PackageSpec.hs index 82d9a87..ffe6737 100644 --- a/tests/SlackBuilder/PackageSpec.hs +++ b/tests/SlackBuilder/PackageSpec.hs @@ -2,13 +2,14 @@ module SlackBuilder.PackageSpec ( spec ) where +import Data.List.NonEmpty (NonEmpty(..)) import SlackBuilder.Package import Test.Hspec (Spec, describe, it, shouldBe) import Text.URI.QQ (uri) spec :: Spec spec = do - describe "renderDownloadWithVersion" $ + describe "renderDownloadWithVersion" $ do it "renders text as URL" $ let given = DownloadTemplate $ pure @@ -16,3 +17,11 @@ spec = do actual = renderDownloadWithVersion given "1.2" expected = Just [uri|https://example.com|] in actual `shouldBe` expected + + it "renders the components in order" $ + let given = DownloadTemplate + $ StaticPlaceholder "https://example.com/" + :| [VersionPlaceholder, StaticPlaceholder "/segment"] + actual = renderDownloadWithVersion given "1.2" + expected = Just [uri|https://example.com/1.2/segment|] + in actual `shouldBe` expected -- cgit v1.2.3