sydtest-wai-0.0.0.0: test/Test/Syd/WaiSpec.hs

{-# LANGUAGE OverloadedStrings #-}

module Test.Syd.WaiSpec (spec) where

import Network.HTTP.Client as HTTP
import Test.Syd
import Test.Syd.Wai
import Test.Syd.Wai.Example

spec :: Spec
spec = managerSpec $
  waiSpec exampleApplication $ do
    itWithBoth "echos this example" $ \man p -> do
      let body = "hello world"
      req <- (\r -> r {port = p, requestBody = RequestBodyLBS body}) <$> parseRequest "http://localhost"
      resp <- httpLbs req man
      responseBody resp `shouldBe` body