24 lines
640 B
Haskell
24 lines
640 B
Haskell
|
module HTTPure.ServerSpec where
|
||
|
|
|
||
|
|
import Prelude (Unit, discard, ($))
|
||
|
|
import Test.Spec (Spec, describe, pending)
|
||
|
|
import Test.Spec.Runner (RunnerEffects)
|
||
|
|
|
||
|
|
handleRequestSpec :: Spec (RunnerEffects ()) Unit
|
||
|
|
handleRequestSpec = describe "handleRequest" $
|
||
|
|
pending "handles the request"
|
||
|
|
|
||
|
|
getOptionsSpec :: Spec (RunnerEffects ()) Unit
|
||
|
|
getOptionsSpec = describe "getOptions" $
|
||
|
|
pending "returns an options object"
|
||
|
|
|
||
|
|
serveSpec :: Spec (RunnerEffects ()) Unit
|
||
|
|
serveSpec = describe "serve" $
|
||
|
|
pending "starts the server"
|
||
|
|
|
||
|
|
serverSpec :: Spec (RunnerEffects ()) Unit
|
||
|
|
serverSpec = describe "Server" do
|
||
|
|
handleRequestSpec
|
||
|
|
getOptionsSpec
|
||
|
|
serveSpec
|