37 lines
1.4 KiB
Haskell
37 lines
1.4 KiB
Haskell
{-# LANGUAGE NoImplicitPrelude #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
module Handler.HomeSpec (spec) where
|
|
|
|
import TestImport
|
|
|
|
spec :: Spec
|
|
spec = it "useless test, so it doesn't annoy me for now" True
|
|
--spec :: Spec
|
|
--spec = withApp $ do
|
|
--
|
|
-- describe "Homepage" $ do
|
|
-- it "loads the index and checks it looks right" $ do
|
|
-- get HomeR
|
|
-- statusIs 200
|
|
-- htmlAnyContain "h1" "a modern framework for blazing fast websites"
|
|
--
|
|
-- request $ do
|
|
-- setMethod "POST"
|
|
-- setUrl HomeR
|
|
-- addToken
|
|
-- fileByLabelExact "Choose a file" "test/Spec.hs" "text/plain" -- talk about self-reference
|
|
-- byLabelExact "What's on the file?" "Some Content"
|
|
--
|
|
-- statusIs 200
|
|
-- -- more debugging printBody
|
|
-- htmlAllContain ".upload-response" "text/plain"
|
|
-- htmlAllContain ".upload-response" "Some Content"
|
|
--
|
|
-- -- 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]) []
|
|
-- assertEq "user table empty" 0 $ length users
|