25 lines
646 B
Haskell
25 lines
646 B
Haskell
|
module HTTPure.StatusSpec where
|
||
|
|
|
||
|
|
import Prelude (bind, discard, pure, ($))
|
||
|
|
|
||
|
|
import Control.Monad.Eff.Class as EffClass
|
||
|
|
import Test.Spec as Spec
|
||
|
|
import Test.Spec.Assertions as Assertions
|
||
|
|
|
||
|
|
import HTTPure.Status as Status
|
||
|
|
|
||
|
|
import HTTPure.SpecHelpers as SpecHelpers
|
||
|
|
|
||
|
|
writeSpec :: SpecHelpers.Test
|
||
|
|
writeSpec = Spec.describe "write" do
|
||
|
|
Spec.it "writes the given status code" do
|
||
|
|
status <- EffClass.liftEff do
|
||
|
|
mock <- SpecHelpers.mockResponse
|
||
|
|
Status.write mock 123
|
||
|
|
pure $ SpecHelpers.getResponseStatus mock
|
||
|
|
status `Assertions.shouldEqual` 123
|
||
|
|
|
||
|
|
statusSpec :: SpecHelpers.Test
|
||
|
|
statusSpec = Spec.describe "Status" do
|
||
|
|
writeSpec
|