Update response functions to return MonadAff m => m Response (#150)

* Update Response functions to return MonadAffs

* Install psc-package for travis build
This commit is contained in:
Drew Olson
2019-09-29 22:57:15 -05:00
committed by Connor Prussin
parent 46fe320a78
commit ac43b0d125
5 changed files with 194 additions and 130 deletions

View File

@@ -14,6 +14,7 @@ import Test.HTTPure.TestHelpers ((?=))
import Examples.AsyncResponse.Main as AsyncResponse
import Examples.Binary.Main as Binary
import Examples.Chunked.Main as Chunked
import Examples.CustomStack.Main as CustomStack
import Examples.Headers.Main as Headers
import Examples.HelloWorld.Main as HelloWorld
import Examples.Middleware.Main as Middleware
@@ -49,6 +50,13 @@ chunkedSpec = Spec.it "runs the chunked example" do
-- each individual chunk instead of just looking at the entire response
response ?= "hello world!"
customStackSpec :: TestHelpers.Test
customStackSpec = Spec.it "runs the custom stack example" do
close <- EffectClass.liftEffect CustomStack.main
response <- TestHelpers.get 8080 Object.empty "/"
EffectClass.liftEffect $ close $ pure unit
response ?= "hello, joe"
headersSpec :: TestHelpers.Test
headersSpec = Spec.it "runs the headers example" do
close <- EffectClass.liftEffect Headers.main
@@ -128,6 +136,7 @@ integrationSpec = Spec.describe "Integration" do
asyncResponseSpec
binarySpec
chunkedSpec
customStackSpec
headersSpec
helloWorldSpec
middlewareSpec