25 lines
631 B
Haskell
25 lines
631 B
Haskell
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
|