Skip to content
Snippets Groups Projects
Commit 8682edf7 authored by Jean-Paul Calderone's avatar Jean-Paul Calderone
Browse files

why does this fail to build? not sure 

on advice of #haskell, going to try hedgehog instead
parent 1989c5fb
No related branches found
No related tags found
1 merge request!2Stripe webhook
Hide whitespace changes
Inline Side-by-side
Showing
with 4 additions and 4 deletions
test/Spec.hs
+ 4
− 4
View file @ 8682edf7
...@@ -180,7 +180,7 @@ spec = with (return app) $ do ...@@ -180,7 +180,7 @@ spec = with (return app) $ do
it "responds to JSON non-Event body with 400 (Invalid Request)" $ it "responds to JSON non-Event body with 400 (Invalid Request)" $
postJSON "/webhook" "{}" `shouldRespondWith` 400 postJSON "/webhook" "{}" `shouldRespondWith` 400
-- describe "success behavior of POST /webhook" $ do describe "success behavior of POST /webhook" $ do
-- it "responds to JSON-encoded Event body with 200 (OK)" $ it "responds to JSON-encoded Event body with 200 (OK)" $
-- forAll chargeSucceededEvents $ \event -> forAll chargeSucceededEvents $ \event ->
-- postJSON "/webhook" (encode event) `shouldRespondWith` 200 postJSON "/webhook" (encode event) `shouldRespondWith` 200
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment