diff --git a/yesod-test/ChangeLog.md b/yesod-test/ChangeLog.md index d3469da8..032be807 100644 --- a/yesod-test/ChangeLog.md +++ b/yesod-test/ChangeLog.md @@ -1,6 +1,6 @@ # ChangeLog for yesod-test -## 1.6.9.2 +## 1.6.10 * `statusIs` assertion failures now print a preview of the response body, if the response body is UTF-8 or ASCII. [#1680](https://github.com/yesodweb/yesod/pull/1680/files) * Adds an `Yesod.Test.Internal`, which exposes functions that yesod-test uses. These functions do _not_ constitute a stable API. diff --git a/yesod-test/Yesod/Test/Internal.hs b/yesod-test/Yesod/Test/Internal.hs index c4057f52..366f9cb1 100644 --- a/yesod-test/Yesod/Test/Internal.hs +++ b/yesod-test/Yesod/Test/Internal.hs @@ -23,7 +23,7 @@ import Data.Semigroup (Semigroup(..)) -- | Helper function to get the first 1024 characters of the body, assuming it is UTF-8. -- This function is used to preview the body in case of an assertion failure. -- --- @since 1.6.9.2 +-- @since 1.6.10 getBodyTextPreview :: LBS.ByteString -> T.Text getBodyTextPreview body = let characterLimit = 1024 @@ -34,7 +34,7 @@ getBodyTextPreview body = -- | Helper function to determine if we can print a body as plain text, for debugging purposes. -- --- @since 1.6.9.2 +-- @since 1.6.10 contentTypeHeaderIsUtf8 :: BS8.ByteString -> Bool contentTypeHeaderIsUtf8 contentTypeBS = -- Convert to Text, so we can use T.splitOn @@ -50,7 +50,7 @@ contentTypeHeaderIsUtf8 contentTypeBS = -- | List of Content-Types that are assumed to be UTF-8 (e.g. JSON). -- --- @since 1.6.9.2 +-- @since 1.6.10 assumedUTF8ContentTypes :: Set.Set BS8.ByteString assumedUTF8ContentTypes = Set.fromList $ map Content.simpleContentType [ Content.typeHtml diff --git a/yesod-test/yesod-test.cabal b/yesod-test/yesod-test.cabal index 8e32a269..5427594a 100644 --- a/yesod-test/yesod-test.cabal +++ b/yesod-test/yesod-test.cabal @@ -1,5 +1,5 @@ name: yesod-test -version: 1.6.9.2 +version: 1.6.10 license: MIT license-file: LICENSE author: Nubis