thunderstrike/purescript-httpurple
thunderstrike/purescript-httpurple
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Don't hardcode port numbers for examples in integration tests (#46)

Browse Source
This commit is contained in:
Connor Prussin 2017-07-18 22:44:38 -07:00 committed by GitHub
parent 4f11f25d03
commit 38e6421bc5
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
test/HTTPure/IntegrationSpec.purs
View File

@ -17,30 +17,34 @@ import Post as Post
headersSpec :: SpecHelpers.Test headersSpec :: SpecHelpers.Test
headersSpec = Spec.it "runs the headers example" do headersSpec = Spec.it "runs the headers example" do
EffClass.liftEff Headers.main EffClass.liftEff Headers.main
header <- SpecHelpers.getHeader 8082 StrMap.empty "/" "X-Example" header <- SpecHelpers.getHeader port StrMap.empty "/" "X-Example"
header ?= "hello world!" header ?= "hello world!"
response <- SpecHelpers.get 8082 (StrMap.singleton "X-Input" "test") "/" response <- SpecHelpers.get port (StrMap.singleton "X-Input" "test") "/"
response ?= "test" response ?= "test"
where port = Headers.port
helloWorldSpec :: SpecHelpers.Test helloWorldSpec :: SpecHelpers.Test
helloWorldSpec = Spec.it "runs the hello world example" do helloWorldSpec = Spec.it "runs the hello world example" do
EffClass.liftEff HelloWorld.main EffClass.liftEff HelloWorld.main
response <- SpecHelpers.get 8080 StrMap.empty "/" response <- SpecHelpers.get port StrMap.empty "/"
response ?= "hello world!" response ?= "hello world!"
where port = HelloWorld.port
multiRouteSpec :: SpecHelpers.Test multiRouteSpec :: SpecHelpers.Test
multiRouteSpec = Spec.it "runs the multi route example" do multiRouteSpec = Spec.it "runs the multi route example" do
EffClass.liftEff MultiRoute.main EffClass.liftEff MultiRoute.main
hello <- SpecHelpers.get 8081 StrMap.empty "/hello" hello <- SpecHelpers.get port StrMap.empty "/hello"
hello ?= "hello" hello ?= "hello"
goodbye <- SpecHelpers.get 8081 StrMap.empty "/goodbye" goodbye <- SpecHelpers.get port StrMap.empty "/goodbye"
goodbye ?= "goodbye" goodbye ?= "goodbye"
where port = MultiRoute.port
postSpec :: SpecHelpers.Test postSpec :: SpecHelpers.Test
postSpec = Spec.it "runs the post example" do postSpec = Spec.it "runs the post example" do
EffClass.liftEff Post.main EffClass.liftEff Post.main
response <- SpecHelpers.post 8084 StrMap.empty "/" "test" response <- SpecHelpers.post port StrMap.empty "/" "test"
response ?= "test" response ?= "test"
where port = Post.port
integrationSpec :: SpecHelpers.Test integrationSpec :: SpecHelpers.Test
integrationSpec = Spec.describe "Integration" do integrationSpec = Spec.describe "Integration" do