From 4cf7ea6faa37494f2db8b9316a21862a1d3153e3 Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Wed, 11 Sep 2019 11:52:32 -0400
Subject: [PATCH] [wip]
---
.circleci/config.yml | 5 +++++
PaymentServer.cabal | 1 +
test/SpecRedemption.hs | 50 ++++++++++++++++++++++++++++++++++++++++++
3 files changed, 56 insertions(+)
diff --git a/.circleci/config.yml b/.circleci/config.yml
index ba3135c..e778c0f 100644
--- a/.circleci/config.yml
+++ b/.circleci/config.yml
@@ -84,6 +84,10 @@ jobs:
# --no-terminal avoids having fancy progress reports written to
# stdout.
#
+ # --interleaved-output dumps realtime output on build progress.
+ # This may help avoid timeouts when building large packages (eg
+ # stripe-core).
+ #
# --fast turns off compiler optimizations which probably doesn't
# make a lot of difference in our code but it can speed up build
# times for our dependencies (as well as reduce compiler memory
@@ -99,6 +103,7 @@ jobs:
# --no-haddock-deps skips building docs for all our dependencies.
BUILD="stack build \
--no-terminal \
+ --interleaved-output \
--fast \
--test \
--coverage \
diff --git a/PaymentServer.cabal b/PaymentServer.cabal
index f220264..7fc38d8 100644
--- a/PaymentServer.cabal
+++ b/PaymentServer.cabal
@@ -78,6 +78,7 @@ test-suite PaymentServer-test
, tasty-discover
, tasty-quickcheck
, tasty-hspec
+ , tasty-hunit
, tasty-wai
, servant-server
, containers
diff --git a/test/SpecRedemption.hs b/test/SpecRedemption.hs
index 3143e1d..6e85850 100644
--- a/test/SpecRedemption.hs
+++ b/test/SpecRedemption.hs
@@ -20,6 +20,36 @@ import Servant
, Proxy(Proxy)
, serve
)
+import Test.Tasty.Providers
+ ( TestName
+ , singleTest
+ )
+import Test.Tasty
+ ( TestTree
+ , testGroup
+ , withResource
+ )
+import Test.Tasty.HUnit
+ ( Assertion
+ , testCase
+ )
+import Test.Tasty.Wai
+ ( testWai
+ , assertStatus'
+ , assertBody
+ , assertHeader
+ , get
+ )
+
+import Test.Tasty.QuickCheck
+ ( testProperty
+ )
+
+import Network.HTTP.Types
+ ( status200
+ , status405
+ )
+
import Test.Hspec
( Spec
, parallel
@@ -184,3 +214,23 @@ matchJSONBody expected =
Just $ "decoded body does not equal expected value: " ++ show actual ++ show expected
in
MatchBody bodyMatcher
+
+-- testWithDatabase :: VoucherDatabase d => d -> Assertion
+-- testWithDatabase database =
+-- let
+-- testApp = app trivialIssue database
+-- in
+
+-- test_redemption :: TestTree
+-- test_redemption =
+-- let
+-- testApp = memory >>= (return . app trivialIssue)
+-- in
+-- withResource testApp (\x -> return ()) $ \getApp ->
+-- testGroup "Voucher Redemption"
+-- [ testWai' getApp "a non-POST receives a 405 (Method Not Allowed) response" $
+-- do
+-- res <- get "/"
+-- assertStatus' status405 res
+-- assertBody "blub" res
+-- ]
--
GitLab