Merge pull request #434 from sol/master

Update tests

yesod-core/test/YesodCoreTest/Cache.hs

@@ -4,7 +4,6 @@
 module YesodCoreTest.Cache (cacheTest, Widget) where
 
 import Test.Hspec
-import Test.Hspec.HUnit()
 
 import Network.Wai
 import Network.Wai.Test

yesod-core/test/YesodCoreTest/CleanPath.hs

@@ -4,7 +4,6 @@
 module YesodCoreTest.CleanPath (cleanPathTest, Widget) where
 
 import Test.Hspec
-import Test.Hspec.HUnit()
 
 import Yesod.Core hiding (Request)
 

yesod-core/test/YesodCoreTest/ErrorHandling.hs

@@ -6,7 +6,6 @@ module YesodCoreTest.ErrorHandling
     ) where
 import Yesod.Core
 import Test.Hspec
-import Test.Hspec.HUnit()
 import Network.Wai
 import Network.Wai.Test
 import Text.Hamlet (hamlet)

yesod-core/test/YesodCoreTest/Exceptions.hs

@@ -4,7 +4,6 @@
 module YesodCoreTest.Exceptions (exceptionsTest, Widget) where
 
 import Test.Hspec
-import Test.Hspec.HUnit ()
 
 import Yesod.Core hiding (Request)
 import Network.Wai

yesod-core/test/YesodCoreTest/JsLoader.hs

@@ -7,7 +7,6 @@ import YesodCoreTest.JsLoaderSites.HeadAsync (HA(..))
 import YesodCoreTest.JsLoaderSites.Bottom (B(..))
 
 import Test.Hspec
-import Test.Hspec.HUnit ()
 
 import Yesod.Core hiding (Request)
 import Network.Wai.Test

yesod-core/test/YesodCoreTest/Links.hs

@@ -4,7 +4,6 @@
 module YesodCoreTest.Links (linksTest, Widget) where
 
 import Test.Hspec
-import Test.Hspec.HUnit ()
 
 import Yesod.Core hiding (Request)
 import Text.Hamlet

yesod-core/test/YesodCoreTest/Media.hs

@@ -5,7 +5,6 @@
 module YesodCoreTest.Media (mediaTest, Widget) where
 
 import Test.Hspec
-import Test.Hspec.HUnit ()
 import Yesod.Core hiding (Request)
 import Network.Wai
 import Network.Wai.Test

yesod-core/test/YesodCoreTest/NoOverloadedStrings.hs

@@ -3,7 +3,6 @@
 module YesodCoreTest.NoOverloadedStrings (noOverloadedTest, Widget) where
 
 import Test.Hspec
-import Test.Hspec.HUnit ()
 
 import Yesod.Core hiding (Request)
 import Network.Wai.Test

yesod-core/test/YesodCoreTest/Widget.hs

@@ -4,7 +4,6 @@
 module YesodCoreTest.Widget (widgetTest) where
 
 import Test.Hspec
-import Test.Hspec.HUnit ()
 
 import Yesod.Core hiding (Request)
 import Text.Julius

yesod-core/test/YesodCoreTest/YesodTest.hs

@@ -13,7 +13,6 @@ import Yesod.Core hiding (Request)
 import Network.Wai.Test
 import Network.Wai
 import Test.Hspec
-import Test.Hspec.HUnit()
 
 yesod :: (YesodDispatch y y, Yesod y) => y -> Session a -> IO a
 yesod app f = toWaiApp app >>= runSession f

yesod-form/test/main.hs

@@ -1,7 +1,5 @@
 {-# LANGUAGE OverloadedStrings #-}
-import Test.HUnit
+import Test.Hspec
-import Test.Hspec.Monadic
-import Test.Hspec.HUnit ()
 import Data.Time (TimeOfDay (TimeOfDay))
 import Data.Text (pack)
 
@@ -10,7 +8,7 @@ import Yesod.Form.Types
 
 main :: IO ()
 main = hspec $
-    describe "parseTime" $ mapM_ (\(s, e) -> it s $ parseTime (pack s) @?= e)
+    describe "parseTime" $ mapM_ (\(s, e) -> it s $ parseTime (pack s) `shouldBe` e)
         [ ("01:00:00", Right $ TimeOfDay 1 0 0)
         , ("1:00", Right $ TimeOfDay 1 0 0)
         , ("1:00 AM", Right $ TimeOfDay 1 0 0)

yesod-form/yesod-form.cabal

@@ -64,7 +64,6 @@ test-suite test
                           , yesod-form
                           , time
                           , hspec
-                          , HUnit
                           , text
 
 source-repository head

yesod-routes/test/Hierarchy.hs

@@ -14,8 +14,7 @@ module Hierarchy
     , toText
     ) where
 
-import Test.Hspec.Monadic
+import Test.Hspec
-import Test.Hspec.HUnit ()
 import Test.HUnit
 import Yesod.Routes.Parse
 import Yesod.Routes.TH
@@ -92,7 +91,7 @@ getTableR _ t = append "TableR " t
 instance RunHandler Hierarchy master where
     runHandler h _ _ subRoute toMaster = (h, fmap toMaster subRoute)
 
-hierarchy :: Specs
+hierarchy :: Spec
 hierarchy = describe "hierarchy" $ do
     it "renders root correctly" $
         renderRoute (AdminR 5 AdminRootR) @?= (["admin", "5"], [])

yesod-routes/test/main.hs

@@ -8,8 +8,7 @@
 {-# LANGUAGE TypeSynonymInstances #-}
 {-# LANGUAGE QuasiQuotes #-}
 {-# LANGUAGE CPP #-}
-import Test.Hspec.Monadic
+import Test.Hspec
-import Test.Hspec.HUnit ()
 import Test.HUnit ((@?=))
 import Data.Text (Text, pack, unpack, singleton)
 import Yesod.Routes.Dispatch hiding (Static, Dynamic)
@@ -195,7 +194,7 @@ thDispatchAlias master sub toMaster app404 handler405 method0 pieces0 =
 -}
 
 main :: IO ()
-main = hspecX $ do
+main = hspec $ do
     describe "justRoot" $ do
         it "dispatches correctly" $ test justRoot [] @?= Just 1
         it "fails correctly" $ test justRoot ["foo"] @?= Nothing

yesod-static/test/YesodStaticTest.hs

@@ -1,8 +1,6 @@
 module YesodStaticTest (specs) where
 
 import Test.Hspec
-import Test.HUnit ( (@?=) )
-import Test.Hspec.HUnit ( )
 
 import Yesod.Static (getFileListPieces)
 
@@ -10,5 +8,4 @@ specs :: Spec
 specs = do
     describe "get file list" $ do
       it "pieces" $ do
-        x <- getFileListPieces "test/fs"
+        getFileListPieces "test/fs" `shouldReturn` [["foo"], ["bar", "baz"]]
-        x @?= [["foo"], ["bar", "baz"]]

yesod-static/yesod-static.cabal

@@ -46,7 +46,6 @@ test-suite tests
     cpp-options:   -DTEST_EXPORT
     build-depends:   base
                    , hspec >= 1.3   && < 1.4
-                   , HUnit
                    -- copy from above
                    , containers
                    , old-time

yesod-test/Yesod/Test.hs

@@ -65,8 +65,22 @@ module Yesod.Test (
 
 where
 
+-- In in Hspec < 1.3 the Example instance for IO () (== Assertion/Expectation)
+-- is orphan and only export from Test.Hspec.HUnit.
+--
+-- In Hspec 1.3.* it is still orphan, but re-exported from Test.Hspec.
+--
+-- Starting with Hspec 1.4.0 it is not orphan anymore.
+--
+-- As we only support Hspec >= 1.3, we import Test.Hspec to bring the orphan
+-- instance into scope.  This is better than importing Test.Hspec.HUnit, as
+-- Test.Hspec.HUnit may be removed in the future.
+--
+-- As soon as we decide to drop support for Hspec 1.3.*, we can remove this
+-- comment and the following import.
+import qualified Test.Hspec ()
+
 import qualified Test.Hspec.Core as Core
-import qualified Test.Hspec.Runner as Runner
 import qualified Data.List as DL
 import qualified Data.Maybe as DY
 import qualified Data.ByteString.Char8 as BS8
@@ -75,7 +89,6 @@ import qualified Data.Text as T
 import qualified Data.Text.Encoding as TE
 import qualified Data.ByteString.Lazy.Char8 as BSL8
 import qualified Test.HUnit as HUnit
-import qualified Test.Hspec.HUnit ()
 import qualified Network.HTTP.Types as H
 import qualified Network.Socket.Internal as Sock
 import Data.CaseInsensitive (CI)
@@ -143,7 +156,7 @@ type CookieValue = ByteString
 runTests :: Application -> Pool conn -> SpecsConn conn -> IO ()
 runTests app connection specsDef = do
   (SpecsData _ _ specs) <- ST.execStateT specsDef (SpecsData app connection [])
-  Runner.hspec specs
+  Core.hspec specs
 
 -- | Start describing a Tests suite keeping cookies and a reference to the tested 'Application'
 -- and 'ConnectionPool'

yesod-test/test/main.hs

@@ -1,8 +1,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE CPP #-}
 import Test.HUnit hiding (Test)
-import Test.Hspec.Monadic
+import Test.Hspec
-import Test.Hspec.HUnit ()
 
 import Yesod.Test.CssQuery
 import Yesod.Test.TransversingCSS