diff --git a/hledger-web/tests/HomeTest.hs b/hledger-web/tests/HomeTest.hs index fc22cd96b..8f44dc362 100644 --- a/hledger-web/tests/HomeTest.hs +++ b/hledger-web/tests/HomeTest.hs @@ -9,16 +9,16 @@ homeSpecs :: Specs homeSpecs = describe "These are some example tests" $ it "loads the index and checks it looks right" $ do - get_ "/" + get_ "/register" statusIs 200 - htmlAllContain "h1" "Hello" + -- htmlAllContain "h1" "hledger" - post "/" $ do - addNonce - fileByLabel "Choose a file" "tests/main.hs" "text/plain" -- talk about self-reference - byLabel "What's on the file?" "Some Content" + -- 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" + -- statusIs 200 + -- htmlCount ".message" 1 + -- htmlAllContain ".message" "Some Content" + -- htmlAllContain ".message" "text/plain"