purescript-httpurple/test/Test/HTTPure/BodySpec.purs

module Test.HTTPure.BodySpec where

import Prelude

import Data.Maybe as Maybe
import Effect.Class as EffectClass
import Node.Buffer as Buffer
import Node.Encoding as Encoding
import Test.Spec as Spec

import HTTPure.Body as Body

import Test.HTTPure.TestHelpers as TestHelpers
import Test.HTTPure.TestHelpers ((?=))

readSpec :: TestHelpers.Test
readSpec = Spec.describe "read" do
  Spec.it "is the body of the Request" do
    request <- TestHelpers.mockRequest "GET" "" "test" []
    body <- Body.read request
    body ?= "test"

sizeSpec :: TestHelpers.Test
sizeSpec = Spec.describe "size" do
  Spec.describe "String" do
    Spec.it "returns the correct size for ASCII string body" do
      size <- EffectClass.liftEffect $ Body.size "ascii"
      size ?= Maybe.Just 5
    Spec.it "returns the correct size for UTF-8 string body" do
      size <- EffectClass.liftEffect $ Body.size "\x2603"  -- snowman
      size ?= Maybe.Just 3
  Spec.describe "Buffer" do
    Spec.it "returns the correct size for binary body" do
      size <- EffectClass.liftEffect do
        buf <- Buffer.fromString "foobar" Encoding.UTF8
        Body.size buf
      size ?= Maybe.Just 6

writeSpec :: TestHelpers.Test
writeSpec = Spec.describe "write" do
  Spec.describe "String" do
    Spec.it "writes the String to the Response body" do
      body <- do
        resp <- EffectClass.liftEffect TestHelpers.mockResponse
        Body.write "test" resp
        pure $ TestHelpers.getResponseBody resp
      body ?= "test"
  Spec.describe "Buffer" do
    Spec.it "writes the Buffer to the Response body" do
      body <- do
        resp <- EffectClass.liftEffect TestHelpers.mockResponse
        buf <- EffectClass.liftEffect $ Buffer.fromString "test" Encoding.UTF8
        Body.write buf resp
        pure $ TestHelpers.getResponseBody resp
      body ?= "test"

bodySpec :: TestHelpers.Test
bodySpec = Spec.describe "Body" do
  readSpec
  sizeSpec
  writeSpec