Fix renderDownloadWithVersion concatenation order

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