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