haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix ambiguous defaultRequest in yesod-core tests

Browse Source
This commit is contained in:
Michael Snoyman 2011-08-28 02:40:40 +03:00
parent 97f78a1f5e
commit 4f3f2b7524
6 changed files with 0 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
yesod-core/Test/CleanPath.hs
View File

@ -70,13 +70,6 @@ cleanPathTest =
] ]
runner f = toWaiApp Y >>= runSession f runner f = toWaiApp Y >>= runSession f
defaultRequest = Request
{ pathInfo = []
, requestHeaders = []
, queryString = []
, rawQueryString = ""
, requestMethod = "GET"
}
removeTrailingSlash = runner $ do removeTrailingSlash = runner $ do
res <- request defaultRequest res <- request defaultRequest

6
yesod-core/Test/Exceptions.hs
View File

@ -34,12 +34,6 @@ exceptionsTest = describe "Test.Exceptions"
] ]
runner f = toWaiApp Y >>= runSession f runner f = toWaiApp Y >>= runSession f
defaultRequest = Request
{ pathInfo = []
, requestHeaders = []
, queryString = []
, requestMethod = "GET"
}
case500 = runner $ do case500 = runner $ do
res <- request defaultRequest res <- request defaultRequest

6
yesod-core/Test/Links.hs
View File

@ -30,12 +30,6 @@ linksTest = describe "Test.Links"
] ]
runner f = toWaiApp Y >>= runSession f runner f = toWaiApp Y >>= runSession f
defaultRequest = Request
{ pathInfo = []
, requestHeaders = []
, queryString = []
, requestMethod = "GET"
}
case_linkToHome = runner $ do case_linkToHome = runner $ do
res <- request defaultRequest res <- request defaultRequest

6
yesod-core/Test/Media.hs
View File

@ -41,12 +41,6 @@ getRootR = defaultLayout $ do
getStaticR = getRootR getStaticR = getRootR
runner f = toWaiApp Y >>= runSession f runner f = toWaiApp Y >>= runSession f
defaultRequest = Request
{ pathInfo = []
, requestHeaders = []
, queryString = []
, requestMethod = "GET"
}
caseMedia = runner $ do caseMedia = runner $ do
res <- request defaultRequest res <- request defaultRequest

6
yesod-core/Test/NoOverloadedStrings.hs
View File

@ -34,12 +34,6 @@ getRootR = return ()
getFooR = return () getFooR = return ()
runner f = toWaiApp Y >>= runSession f runner f = toWaiApp Y >>= runSession f
defaultRequest = Request
{ pathInfo = []
, requestHeaders = []
, queryString = []
, requestMethod = fromString "GET"
}
case_sanity = runner $ do case_sanity = runner $ do
res <- request defaultRequest res <- request defaultRequest

6
yesod-core/Test/Widget.hs
View File

@ -77,12 +77,6 @@ widgetTest = describe "Test.Widget"
] ]
runner f = toWaiApp Y >>= runSession f runner f = toWaiApp Y >>= runSession f
defaultRequest = Request
{ pathInfo = []
, requestHeaders = []
, queryString = []
, requestMethod = "GET"
}
case_addJuliusBody = runner $ do case_addJuliusBody = runner $ do
res <- request defaultRequest res <- request defaultRequest