From c277c6e8305a88fcb40a3d910a741d9ad1d64dc4 Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Fri, 11 Jun 2021 15:09:05 -0400
Subject: [PATCH] Cannot expect CORS headers without Origin in the request I
guess
And now they all pass so everything works fine, great???
---
test/Stripe.hs | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/test/Stripe.hs b/test/Stripe.hs
index ab66823..57fe647 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
--
GitLab