yesod-test 1.4.0.3 → 1.4.1
raw patch · 2 files changed
+12/−14 lines, 2 filesdep ~hspec
Dependency ranges changed: hspec
Files
- Yesod/Test.hs +10/−12
- yesod-test.cabal +2/−2
Yesod/Test.hs view
@@ -96,7 +96,7 @@ ) where import qualified Test.Hspec as Hspec-import qualified Test.Hspec.Core as Core+import qualified Test.Hspec.Core as Hspec import qualified Data.List as DL import qualified Data.ByteString.Char8 as BS8 import Data.ByteString (ByteString)@@ -202,10 +202,10 @@ -> YesodSpec site -> Hspec.Spec yesodSpec site yspecs =- Core.fromSpecList $ map unYesod $ execWriter yspecs+ Hspec.fromSpecList $ map unYesod $ execWriter yspecs where- unYesod (YesodSpecGroup x y) = Core.SpecGroup x $ map unYesod y- unYesod (YesodSpecItem x y) = Core.it x $ do+ unYesod (YesodSpecGroup x y) = Hspec.specGroup x $ map unYesod y+ unYesod (YesodSpecItem x y) = Hspec.specItem x $ do app <- toWaiAppPlain site ST.evalStateT y YesodExampleData { yedApp = app@@ -221,12 +221,10 @@ -> YesodSpec site -> Hspec.Spec yesodSpecWithSiteGenerator getSiteAction yspecs =- Core.fromSpecList $ map (unYesod getSiteAction) $ execWriter yspecs+ Hspec.fromSpecList $ map (unYesod getSiteAction) $ execWriter yspecs where- unYesod :: YesodDispatch t- => IO t -> YesodSpecTree t -> Core.SpecTree- unYesod getSiteAction' (YesodSpecGroup x y) = Core.SpecGroup x $ map (unYesod getSiteAction') y- unYesod getSiteAction' (YesodSpecItem x y) = Core.it x $ do+ unYesod getSiteAction' (YesodSpecGroup x y) = Hspec.specGroup x $ map (unYesod getSiteAction') y+ unYesod getSiteAction' (YesodSpecItem x y) = Hspec.specItem x $ do site <- getSiteAction' app <- toWaiAppPlain site ST.evalStateT y YesodExampleData@@ -245,10 +243,10 @@ -> YesodSpec site -> Hspec.Spec yesodSpecApp site getApp yspecs =- Core.fromSpecList $ map unYesod $ execWriter yspecs+ Hspec.fromSpecList $ map unYesod $ execWriter yspecs where- unYesod (YesodSpecGroup x y) = Core.SpecGroup x $ map unYesod y- unYesod (YesodSpecItem x y) = Core.it x $ do+ unYesod (YesodSpecGroup x y) = Hspec.specGroup x $ map unYesod y+ unYesod (YesodSpecItem x y) = Hspec.specItem x $ do app <- getApp ST.evalStateT y YesodExampleData { yedApp = app
yesod-test.cabal view
@@ -1,5 +1,5 @@ name: yesod-test-version: 1.4.0.3+version: 1.4.1 license: MIT license-file: LICENSE author: Nubis <nubis@woobiz.com.ar>@@ -23,7 +23,7 @@ , network >= 2.2 , http-types >= 0.7 , HUnit >= 1.2- , hspec >= 1.4+ , hspec >= 1.12.4 , bytestring >= 0.9 , case-insensitive >= 0.2 , text