From 879277e14069e3e626519ed63253f54869ea1bdc Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Thu, 22 Aug 2019 16:05:23 -0400
Subject: [PATCH] _these_ combine just fine ...
not sure if it is a good idea to combine them though
---
test/SpecStripe.hs | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/test/SpecStripe.hs b/test/SpecStripe.hs
index 979406d..3b21c83 100644
--- a/test/SpecStripe.hs
+++ b/test/SpecStripe.hs
@@ -62,7 +62,7 @@ aChargeEvent :: IO LazyBS.ByteString
aChargeEvent = encode <$> generate chargeSucceededEvents
spec_webhook :: Spec
-spec_webhook = with (return app) $
+spec_webhook = with (return app) $ do
-- I would like to make these property tests but I can't figure out how to
-- use QuickCheck (or Hedgehog) to write property tests for web code.
@@ -73,8 +73,6 @@ spec_webhook = with (return app) $
it "responds to JSON non-Event body with 400 (Invalid Request)" $
postJSON "/webhook" "{}" `shouldRespondWith` 400
-spec_webhook' :: Spec
-spec_webhook' = with (return app) $
describe "success behavior of POST /webhook" $
it "responds to a JSON Event body with 200 (OK)" $ do
event <- liftIO aChargeEvent
--
GitLab