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

module Test.HTTPure.StatusSpec where

import Prelude
import Effect.Class as EffectClass
import Test.Spec as Spec
import HTTPure.Status as Status
import Test.HTTPure.TestHelpers as TestHelpers
import Test.HTTPure.TestHelpers ((?=))

writeSpec :: TestHelpers.Test
writeSpec =
  Spec.describe "write" do
    Spec.it "writes the given status code" do
      status <-
        EffectClass.liftEffect do
          mock <- TestHelpers.mockResponse
          Status.write mock 123
          pure $ TestHelpers.getResponseStatus mock
      status ?= 123

statusSpec :: TestHelpers.Test
statusSpec =
  Spec.describe "Status" do
    writeSpec