mirror of
https://github.com/simonmichael/hledger.git
synced 2024-09-20 02:37:12 +03:00
25 lines
624 B
Haskell
25 lines
624 B
Haskell
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
|
module HomeTest
|
||
|
|
( homeSpecs
|
||
|
|
) where
|
||
|
|
|
||
|
|
import TestImport
|
||
|
|
|
||
|
|
homeSpecs :: Specs
|
||
|
|
homeSpecs =
|
||
|
|
describe "These are some example tests" $
|
||
|
|
it "loads the index and checks it looks right" $ do
|
||
|
|
get_ "/"
|
||
|
|
statusIs 200
|
||
|
|
htmlAllContain "h1" "Hello"
|
||
|
|
|
||
|
|
post "/" $ do
|
||
|
|
addNonce
|
||
|
|
fileByLabel "Choose a file" "tests/main.hs" "text/plain" -- talk about self-reference
|
||
|
|
byLabel "What's on the file?" "Some Content"
|
||
|
|
|
||
|
|
statusIs 200
|
||
|
|
htmlCount ".message" 1
|
||
|
|
htmlAllContain ".message" "Some Content"
|
||
|
|
htmlAllContain ".message" "text/plain"
|