yesod-test 1.2.1.3 → 1.2.1.4

raw patch · 3 files changed

+7/−2 lines, 3 files

Files

Yesod/Test.hs +1/−1
test/main.hs +5/−0
yesod-test.cabal +1/−1

Yesod/Test.hs view

@@ -504,7 +504,7 @@     let (urlPath, urlQuery) = T.break (== '?') url     ST.modify $ \rbd -> rbd         { rbdPath =-            case DL.filter (/="") $ T.split (== '/') urlPath of+            case DL.filter (/="") $ H.decodePathSegments $ TE.encodeUtf8 urlPath of                 ("http:":_:rest) -> rest                 ("https:":_:rest) -> rest                 x -> x

test/main.hs view

@@ -113,6 +113,11 @@                 get ("/dynamic1/שלום" :: Text)                 statusIs 200                 bodyEquals "שלום"+            yit "from path, type-safe URL" $ do+                get $ LiteAppRoute ["dynamic1", "שלום"]+                statusIs 200+                printBody+                bodyEquals "שלום"             yit "from WAI" $ do                 get ("/dynamic2/שלום" :: Text)                 statusIs 200

yesod-test.cabal view

@@ -1,5 +1,5 @@ name:               yesod-test-version:            1.2.1.3+version:            1.2.1.4 license:            MIT license-file:       LICENSE author:             Nubis <nubis@woobiz.com.ar>