19 lines
472 B
Haskell
19 lines
472 B
Haskell
-- this is being re-worked into a general-purpose testing module for Yesod apps
|
|
module YesodCoreTest.YesodTest
|
|
( yesod
|
|
, parseRoutes, mkYesod, yesodDispatch, renderRoute, Yesod(..)
|
|
, redirect
|
|
, Approot (..)
|
|
, module Network.Wai
|
|
, module Network.Wai.Test
|
|
, module Test.Hspec
|
|
) where
|
|
|
|
import Yesod.Core
|
|
import Network.Wai.Test
|
|
import Network.Wai
|
|
import Test.Hspec
|
|
|
|
yesod :: YesodDispatch y => y -> Session a -> IO a
|
|
yesod app f = toWaiApp app >>= runSession f
|