diff --git a/test/Stripe.hs b/test/Stripe.hs index ab6682311880e9fa34eaa0e67a3332e720db2e51..57fe6475b0566bf761abae74b849bace3b731385 100644 --- a/test/Stripe.hs +++ b/test/Stripe.hs @@ -104,11 +104,13 @@ corsTests = let app = paymentServerApp origins stripeConfig trivialIssue db let path = "/v1/stripe/charge" - let theRequest = setPath defaultRequest { requestMethod = method, requestHeaders = headers} path + let theRequest = setPath defaultRequest + { requestMethod = method + , requestHeaders = ("origin", "example.invalid"):headers + } path let theSRequest = SRequest theRequest body (flip runSession) app $ do response <- srequest theSRequest - liftIO $ print response assertHeader "Access-Control-Allow-Origin" "example.invalid" response