mirror of
https://code.sup39.dev/repos/Wqawg
synced 2024-12-27 15:04:50 +09:00
33 lines
1.1 KiB
Haskell
33 lines
1.1 KiB
Haskell
|
module Handler.HomeSpec (spec) where
|
||
|
|
|
||
|
|
import TestImport
|
||
|
|
|
||
|
|
spec :: Spec
|
||
|
|
spec = withApp $ do
|
||
|
|
it "loads the index and checks it looks right" $ do
|
||
|
|
get HomeR
|
||
|
|
statusIs 200
|
||
|
|
htmlAllContain "h1" "Welcome to Yesod"
|
||
|
|
|
||
|
|
request $ do
|
||
|
|
setMethod "POST"
|
||
|
|
setUrl HomeR
|
||
|
|
addToken
|
||
|
|
fileByLabel "Choose a file" "test/Spec.hs" "text/plain" -- talk about self-reference
|
||
|
|
byLabel "What's on the file?" "Some Content"
|
||
|
|
|
||
|
|
statusIs 200
|
||
|
|
-- more debugging printBody
|
||
|
|
htmlCount ".message" 1
|
||
|
|
htmlAllContain ".message" "Some Content"
|
||
|
|
htmlAllContain ".message" "text/plain"
|
||
|
|
|
||
|
|
-- This is a simple example of using a database access in a test. The
|
||
|
|
-- test will succeed for a fresh scaffolded site with an empty database,
|
||
|
|
-- but will fail on an existing database with a non-empty user table.
|
||
|
|
it "leaves the user table empty" $ do
|
||
|
|
get HomeR
|
||
|
|
statusIs 200
|
||
|
|
users <- runDB $ selectList ([] :: [Filter User]) []
|
||
|
|
assertEqual "user table empty" 0 $ length users
|