diff --git a/yesod-core/test/YesodCoreTest.hs b/yesod-core/test/YesodCoreTest.hs
index 591f86a7..8f2b96dc 100644
--- a/yesod-core/test/YesodCoreTest.hs
+++ b/yesod-core/test/YesodCoreTest.hs
@@ -5,6 +5,7 @@ import YesodCoreTest.CleanPath
import YesodCoreTest.Exceptions
import YesodCoreTest.Widget
import YesodCoreTest.Media
+import YesodCoreTest.Meta
import YesodCoreTest.Links
import YesodCoreTest.Header
import YesodCoreTest.NoOverloadedStrings
@@ -63,3 +64,4 @@ specs = do
Ssl.sameSiteSpec
Csrf.csrfSpec
breadcrumbTest
+ metaTest
diff --git a/yesod-core/test/YesodCoreTest/Meta.hs b/yesod-core/test/YesodCoreTest/Meta.hs
new file mode 100644
index 00000000..ed0a0849
--- /dev/null
+++ b/yesod-core/test/YesodCoreTest/Meta.hs
@@ -0,0 +1,54 @@
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE MultiParamTypeClasses #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE QuasiQuotes #-}
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE ViewPatterns #-}
+
+module YesodCoreTest.Meta
+ ( metaTest
+ ) where
+
+import Test.Hspec
+
+import Yesod.Core
+import Network.Wai
+import Network.Wai.Test
+
+data App = App
+
+mkYesod "App" [parseRoutes|
+/title TitleR GET
+/desc DescriptionR GET
+|]
+
+instance Yesod App where
+
+getTitleR :: Handler Html
+getTitleR = defaultLayout $ do
+ setTitle "First title"
+ setTitle "Second title"
+
+getDescriptionR :: Handler Html
+getDescriptionR = defaultLayout $ do
+ setDescription "First description"
+ setDescription "Second description"
+
+metaTest :: Spec
+metaTest = describe "Setting page metadata" $ do
+ describe "Yesod.Core.Widget.setTitle" $ do
+ it "is idempotent" $ runner $ do
+ res <- request defaultRequest
+ { pathInfo = ["title"]
+ }
+ assertBody "\nSecond title" res
+ describe "Yesod.Core.Widget.setDescription" $ do
+ it "is idempotent" $ runner $ do
+ res <- request defaultRequest
+ { pathInfo = ["desc"]
+ }
+ assertBody "\nSecond description" res
+
+runner :: Session () -> IO ()
+runner f = toWaiAppPlain App >>= runSession f
diff --git a/yesod-core/yesod-core.cabal b/yesod-core/yesod-core.cabal
index d900011c..876a1cdf 100644
--- a/yesod-core/yesod-core.cabal
+++ b/yesod-core/yesod-core.cabal
@@ -155,6 +155,7 @@ test-suite tests
YesodCoreTest.LiteApp
YesodCoreTest.Media
YesodCoreTest.MediaData
+ YesodCoreTest.Meta
YesodCoreTest.NoOverloadedStrings
YesodCoreTest.NoOverloadedStringsSub
YesodCoreTest.ParameterizedSite