24 lines
691 B
Haskell
24 lines
691 B
Haskell
|
module HTTPure.ResponseSpec where
|
||
|
|
|
||
|
|
import Prelude (Unit, discard, ($))
|
||
|
|
import Test.Spec (Spec, describe, pending)
|
||
|
|
import Test.Spec.Runner (RunnerEffects)
|
||
|
|
|
||
|
|
fromHTTPResponseSpec :: Spec (RunnerEffects ()) Unit
|
||
|
|
fromHTTPResponseSpec = describe "fromHTTPResponse" $
|
||
|
|
pending "wraps an HTTP response"
|
||
|
|
|
||
|
|
setStatusCodeSpec :: Spec (RunnerEffects ()) Unit
|
||
|
|
setStatusCodeSpec = describe "setStatusCode" $
|
||
|
|
pending "sets the status code"
|
||
|
|
|
||
|
|
writeSpec :: Spec (RunnerEffects ()) Unit
|
||
|
|
writeSpec = describe "write" $
|
||
|
|
pending "adds the string to the response output"
|
||
|
|
|
||
|
|
responseSpec :: Spec (RunnerEffects ()) Unit
|
||
|
|
responseSpec = describe "Response" do
|
||
|
|
fromHTTPResponseSpec
|
||
|
|
setStatusCodeSpec
|
||
|
|
writeSpec
|