51 lines
1.6 KiB
Haskell
51 lines
1.6 KiB
Haskell
module HTTPure.IntegrationSpec where
|
|
|
|
import Prelude
|
|
|
|
import Control.Monad.Eff.Class as EffClass
|
|
import Data.StrMap as StrMap
|
|
import Test.Spec as Spec
|
|
import Test.Spec.Assertions as Assertions
|
|
|
|
import HTTPure.SpecHelpers as SpecHelpers
|
|
|
|
import Headers as Headers
|
|
import HelloWorld as HelloWorld
|
|
import MultiRoute as MultiRoute
|
|
import Post as Post
|
|
|
|
headersSpec :: SpecHelpers.Test
|
|
headersSpec = Spec.it "runs the headers example" do
|
|
EffClass.liftEff Headers.main
|
|
header <- SpecHelpers.getHeader 8082 StrMap.empty "/" "X-Example"
|
|
header `Assertions.shouldEqual` "hello world!"
|
|
response <- SpecHelpers.get 8082 (StrMap.singleton "X-Input" "test") "/"
|
|
response `Assertions.shouldEqual` "test"
|
|
|
|
helloWorldSpec :: SpecHelpers.Test
|
|
helloWorldSpec = Spec.it "runs the hello world example" do
|
|
EffClass.liftEff HelloWorld.main
|
|
response <- SpecHelpers.get 8080 StrMap.empty "/"
|
|
response `Assertions.shouldEqual` "hello world!"
|
|
|
|
multiRouteSpec :: SpecHelpers.Test
|
|
multiRouteSpec = Spec.it "runs the multi route example" do
|
|
EffClass.liftEff MultiRoute.main
|
|
hello <- SpecHelpers.get 8081 StrMap.empty "/hello"
|
|
hello `Assertions.shouldEqual` "hello"
|
|
goodbye <- SpecHelpers.get 8081 StrMap.empty "/goodbye"
|
|
goodbye `Assertions.shouldEqual` "goodbye"
|
|
|
|
postSpec :: SpecHelpers.Test
|
|
postSpec = Spec.it "runs the post example" do
|
|
EffClass.liftEff Post.main
|
|
response <- SpecHelpers.post 8084 StrMap.empty "/" "test"
|
|
response `Assertions.shouldEqual` "test"
|
|
|
|
integrationSpec :: SpecHelpers.Test
|
|
integrationSpec = Spec.describe "Integration" do
|
|
headersSpec
|
|
helloWorldSpec
|
|
multiRouteSpec
|
|
postSpec
|