14 lines
293 B
Haskell
14 lines
293 B
Haskell
|
{-# LANGUAGE NoImplicitPrelude #-}
|
||
|
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
|
module Handler.HomeSpec (spec) where
|
||
|
|
|
||
|
|
import TestImport
|
||
|
|
|
||
|
|
spec :: Spec
|
||
|
|
spec = withApp $ do
|
||
|
|
|
||
|
|
describe "Homepage" $ do
|
||
|
|
it "loads the index and checks it looks right" $ do
|
||
|
|
get HomeR
|
||
|
|
statusIs 303
|