From 4f74c2ec10682b4725a413894c67063817810582 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Sun, 1 Sep 2024 17:34:24 +0200 Subject: Support text based placeholders --- tests/SlackBuilder/PackageSpec.hs | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) (limited to 'tests/SlackBuilder') diff --git a/tests/SlackBuilder/PackageSpec.hs b/tests/SlackBuilder/PackageSpec.hs index 2a34c89..79fce72 100644 --- a/tests/SlackBuilder/PackageSpec.hs +++ b/tests/SlackBuilder/PackageSpec.hs @@ -6,7 +6,6 @@ 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) @@ -15,17 +14,13 @@ spec :: Spec spec = do describe "renderDownloadWithVersion" $ do it "renders text as URL" $ - let given = DownloadTemplate - $ pure - $ StaticPlaceholder "https://example.com" + 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 - $ StaticPlaceholder "https://example.com/" - :| [VersionPlaceholder, StaticPlaceholder "/segment"] + 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