bump hspec dependency

This commit is contained in:
Greg Weber 2011-09-15 09:37:55 -07:00
parent be372022ec
commit 4bcfe87582
10 changed files with 11 additions and 10 deletions

View File

@ -62,7 +62,7 @@ getBarR, getPlainR :: Handler RepPlain
getBarR = return $ RepPlain "bar"
getPlainR = return $ RepPlain "plain"
cleanPathTest :: IO [IO Spec]
cleanPathTest :: [Spec]
cleanPathTest =
describe "Test.CleanPath"
[ it "remove trailing slash" removeTrailingSlash

View File

@ -22,7 +22,7 @@ instance Yesod Y where
getRootR :: Handler ()
getRootR = error "FOOBAR" >> return ()
exceptionsTest :: IO [IO Spec]
exceptionsTest :: [Spec]
exceptionsTest = describe "Test.Exceptions"
[ it "500" case500
]

View File

@ -21,7 +21,7 @@ instance Yesod Y where
getRootR :: Handler RepHtml
getRootR = defaultLayout $ addHamlet [hamlet|<a href=@{RootR}>|]
linksTest :: IO [IO Spec]
linksTest :: [Spec]
linksTest = describe "Test.Links"
[ it "linkToHome" case_linkToHome
]

View File

@ -52,7 +52,7 @@ caseMediaLink = runner $ do
assertStatus 200 res
flip assertBody res "<!DOCTYPE html>\n<html><head><title></title><link rel=\"stylesheet\" href=\"all.css\"><link rel=\"stylesheet\" media=\"screen\" href=\"screen.css\"></head><body></body></html>"
mediaTest :: IO [IO Spec]
mediaTest :: [Spec]
mediaTest = describe "Test.Media"
[ it "media" caseMedia
, it "media link" caseMediaLink

View File

@ -46,7 +46,7 @@ case_sanity = runner $ do
res <- request defaultRequest
assertBody mempty res
noOverloadedTest :: IO [IO Spec]
noOverloadedTest :: [Spec]
noOverloadedTest = describe "Test.NoOverloadedStrings"
[ it "sanity" case_sanity
]

View File

@ -69,7 +69,7 @@ getWhamletR = defaultLayout [whamlet|
where
embed = [whamlet|<h4>Embed|]
widgetTest :: IO [IO Spec]
widgetTest :: [Spec]
widgetTest = describe "Test.Widget"
[ it "addJuliusBody" case_addJuliusBody
, it "whamlet" case_whamlet

View File

@ -91,7 +91,7 @@ test-suite runtests
build-depends: base >= 4 && < 4.3
main-is: main.hs
cpp-options: -DTEST
build-depends: hspec >= 0.6.1 && < 0.7
build-depends: hspec >= 0.8 && < 0.9
,wai-test
,wai
,yesod-core

View File

@ -6,7 +6,8 @@ import Test.Hspec.HUnit ()
-- import Test.Hspec.QuickCheck (prop)
main :: IO ()
main = hspecX $ return [] {- FIXME specs
main = return () -- hspecX $ return []
{- FIXME specs
specs :: IO [Spec]
specs = runSpecM $ do

View File

@ -48,7 +48,7 @@ test-suite runtests
type: exitcode-stdio-1.0
build-depends: base >= 4 && < 5
, hspec >= 0.6.1 && < 0.7
, hspec >= 0.8 && < 0.9
, HUnit
, unix-compat >= 0.2 && < 0.3
, time >= 1.1.4 && < 1.3

View File

@ -44,7 +44,7 @@ test-suite runtests
cpp-options: -DTEST
build-depends: yesod-static
, base >= 4 && < 5
, hspec >= 0.6.1 && < 0.7
, hspec >= 0.8 && < 0.9
, HUnit
ghc-options: -Wall
main-is: runtests.hs