mirror of
https://code.sup39.dev/repos/Wqawg
synced 2024-12-27 16:14:51 +09:00
42 lines
1.2 KiB
Haskell
42 lines
1.2 KiB
Haskell
|
module Handler.CommentSpec (spec) where
|
||
|
|
|
||
|
|
import TestImport
|
||
|
|
import Data.Aeson
|
||
|
|
|
||
|
|
spec :: Spec
|
||
|
|
spec = withApp $ do
|
||
|
|
describe "valid request" $ do
|
||
|
|
it "gives a 200" $ do
|
||
|
|
get HomeR
|
||
|
|
statusIs 200
|
||
|
|
|
||
|
|
let message = "My message" :: Text
|
||
|
|
body = object [ "message" .= message ]
|
||
|
|
encoded = encode body
|
||
|
|
|
||
|
|
request $ do
|
||
|
|
setMethod "POST"
|
||
|
|
setUrl CommentR
|
||
|
|
setRequestBody encoded
|
||
|
|
addRequestHeader ("Content-Type", "application/json")
|
||
|
|
addTokenFromCookie
|
||
|
|
|
||
|
|
statusIs 200
|
||
|
|
|
||
|
|
[Entity _id comment] <- runDB $ selectList [CommentMessage ==. message] []
|
||
|
|
assertEqual "Should have " comment (Comment message Nothing)
|
||
|
|
|
||
|
|
describe "invalid requests" $ do
|
||
|
|
it "400s when the JSON body is invalid" $ do
|
||
|
|
get HomeR
|
||
|
|
|
||
|
|
let body = object [ "foo" .= ("My message" :: Value) ]
|
||
|
|
request $ do
|
||
|
|
setMethod "POST"
|
||
|
|
setUrl CommentR
|
||
|
|
setRequestBody $ encode body
|
||
|
|
addRequestHeader ("Content-Type", "application/json")
|
||
|
|
addTokenFromCookie
|
||
|
|
statusIs 400
|
||
|
|
|