diff options
Diffstat (limited to 'tests/SlackBuilder')
| -rw-r--r-- | tests/SlackBuilder/PackageSpec.hs | 9 |
1 files changed, 2 insertions, 7 deletions
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 |