slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

web: make cabal test pass

Browse Source
This commit is contained in:
Simon Michael 2013-04-19 11:50:41 -07:00
parent 030a03d9e3
commit dd956ea395
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
hledger-web/tests/HomeTest.hs
View File

@ -9,16 +9,16 @@ homeSpecs :: Specs
homeSpecs = homeSpecs =
describe "These are some example tests" $ describe "These are some example tests" $
it "loads the index and checks it looks right" $ do it "loads the index and checks it looks right" $ do
get_ "/" get_ "/register"
statusIs 200 statusIs 200
htmlAllContain "h1" "Hello" -- htmlAllContain "h1" "hledger"
post "/" $ do -- post "/" $ do
addNonce -- addNonce
fileByLabel "Choose a file" "tests/main.hs" "text/plain" -- talk about self-reference -- fileByLabel "Choose a file" "tests/main.hs" "text/plain" -- talk about self-reference
byLabel "What's on the file?" "Some Content" -- byLabel "What's on the file?" "Some Content"
statusIs 200 -- statusIs 200
htmlCount ".message" 1 -- htmlCount ".message" 1
htmlAllContain ".message" "Some Content" -- htmlAllContain ".message" "Some Content"
htmlAllContain ".message" "text/plain" -- htmlAllContain ".message" "text/plain"