35 lines
941 B
Haskell
35 lines
941 B
Haskell
module HTTPure.BodySpec where
|
|
|
|
import Prelude
|
|
|
|
import Control.Monad.Eff.Class as EffClass
|
|
import Data.StrMap as StrMap
|
|
import Test.Spec as Spec
|
|
import Test.Spec.Assertions as Assertions
|
|
|
|
import HTTPure.Body as Body
|
|
|
|
import HTTPure.SpecHelpers as SpecHelpers
|
|
|
|
readSpec :: SpecHelpers.Test
|
|
readSpec = Spec.describe "read" do
|
|
Spec.it "returns the body of the Request" do
|
|
let req = SpecHelpers.mockRequest "GET" "" "test" StrMap.empty
|
|
request <- EffClass.liftEff req
|
|
body <- Body.read request
|
|
body `Assertions.shouldEqual` "test"
|
|
|
|
writeSpec :: SpecHelpers.Test
|
|
writeSpec = Spec.describe "write" do
|
|
Spec.it "writes the string to the Response body" do
|
|
body <- EffClass.liftEff do
|
|
resp <- SpecHelpers.mockResponse
|
|
Body.write resp "test"
|
|
pure $ SpecHelpers.getResponseBody resp
|
|
body `Assertions.shouldEqual` "test"
|
|
|
|
bodySpec :: SpecHelpers.Test
|
|
bodySpec = Spec.describe "Body" do
|
|
readSpec
|
|
writeSpec
|