git.iko.soy/servant-quickcheck
on master help sign in
QuickCheck 2.12 Compatibility
0190e5eparsonsmatt
servant-quickcheck.cabal+4−3
@@ -44,14 +44,15 @@ library
44 , case-insensitive == 1.2.*
44 , case-insensitive == 1.2.*
45 , clock >= 0.7 && < 0.8
45 , clock >= 0.7 && < 0.8
46 , data-default-class >= 0.0 && < 0.2
46 , data-default-class >= 0.0 && < 0.2
47− , hspec >= 2.5 && < 2.6
47+ , hspec >= 2.5.5 && < 2.6
48+
48 , http-client >= 0.4.30 && < 0.6
49 , http-client >= 0.4.30 && < 0.6
49 , http-media >= 0.6 && <0.8
50 , http-media >= 0.6 && <0.8
50 , http-types > 0.8 && < 0.13
51 , http-types > 0.8 && < 0.13
51 , mtl > 2.1 && < 2.3
52 , mtl > 2.1 && < 2.3
52 , pretty == 1.1.*
53 , pretty == 1.1.*
53 , process >= 1.2 && < 1.7
54 , process >= 1.2 && < 1.7
54− , QuickCheck > 2.7 && < 2.12
55+ , QuickCheck > 2.7 && < 2.13
55 , servant >= 0.13 && < 0.15
56 , servant >= 0.13 && < 0.15
56 , servant-client >= 0.13 && < 0.15
57 , servant-client >= 0.13 && < 0.15
57 , servant-server >= 0.13 && < 0.15
58 , servant-server >= 0.13 && < 0.15
@@ -99,7 +100,7 @@ test-suite spec
99 , servant-quickcheck
100 , servant-quickcheck
100 , bytestring
101 , bytestring
101 , hspec
102 , hspec
102− , hspec-core
103+ , hspec-core >= 2.5.5 && < 2.6
103 , http-client
104 , http-client
104 , blaze-html
105 , blaze-html
105 , warp
106 , warp
src/Servant/QuickCheck/Internal/QuickCheck.hs+11−2
@@ -92,7 +92,10 @@ serversEqual api burl1 burl2 args req = do
92 expectationFailure $ "We failed to record a reason for failure: " <> show r
92 expectationFailure $ "We failed to record a reason for failure: " <> show r
93 GaveUp { numTests = n } -> expectationFailure $ "Gave up after " ++ show n ++ " tests"
93 GaveUp { numTests = n } -> expectationFailure $ "Gave up after " ++ show n ++ " tests"
94 NoExpectedFailure {} -> expectationFailure "No expected failure"
94 NoExpectedFailure {} -> expectationFailure "No expected failure"
95+#if MIN_VERSION_QuickCheck(2,12,0)
96+#else
95 InsufficientCoverage {} -> expectationFailure "Insufficient coverage"
97 InsufficientCoverage {} -> expectationFailure "Insufficient coverage"
98+#endif
96
99
97-- | Check that a server satisfies the set of properties specified.
100-- | Check that a server satisfies the set of properties specified.
98--
101--
@@ -145,7 +148,10 @@ serverSatisfiesMgr api manager burl args preds = do
145 expectationFailure $ "We failed to record a reason for failure: " <> show r
148 expectationFailure $ "We failed to record a reason for failure: " <> show r
146 GaveUp { numTests = n } -> expectationFailure $ "Gave up after " ++ show n ++ " tests"
149 GaveUp { numTests = n } -> expectationFailure $ "Gave up after " ++ show n ++ " tests"
147 NoExpectedFailure {} -> expectationFailure $ "No expected failure"
150 NoExpectedFailure {} -> expectationFailure $ "No expected failure"
151+#if MIN_VERSION_QuickCheck(2,12,0)
152+#else
148− InsufficientCoverage {} -> expectationFailure $ "Insufficient coverage"
153+ InsufficientCoverage {} -> expectationFailure "Insufficient coverage"
154+#endif
149
155
150serverDoesntSatisfy :: (HasGenRequest a) =>
156serverDoesntSatisfy :: (HasGenRequest a) =>
151 Proxy a -> BaseUrl -> Args -> Predicates -> Expectation
157 Proxy a -> BaseUrl -> Args -> Predicates -> Expectation
@@ -163,7 +169,10 @@ serverDoesntSatisfyMgr api manager burl args preds = do
163 GaveUp { numTests = n } -> expectationFailure $ "Gave up after " ++ show n ++ " tests"
169 GaveUp { numTests = n } -> expectationFailure $ "Gave up after " ++ show n ++ " tests"
164 Failure { output = m } -> expectationFailure $ "Failed:\n" ++ show m
170 Failure { output = m } -> expectationFailure $ "Failed:\n" ++ show m
165 NoExpectedFailure {} -> expectationFailure $ "No expected failure"
171 NoExpectedFailure {} -> expectationFailure $ "No expected failure"
172+#if MIN_VERSION_QuickCheck(2,12,0)
173+#else
166− InsufficientCoverage {} -> expectationFailure $ "Insufficient coverage"
174+ InsufficientCoverage {} -> expectationFailure "Insufficient coverage"
175+#endif
167
176
168noCheckStatus :: C.Request -> C.Request
177noCheckStatus :: C.Request -> C.Request
169#if MIN_VERSION_http_client(0,5,0)
178#if MIN_VERSION_http_client(0,5,0)
stack.yaml+6−5
@@ -1,14 +1,15 @@
1−resolver: lts-11.8
1+resolver: nightly-2018-09-03
2packages:
2packages:
3- '.'
3- '.'
4extra-deps:
4extra-deps:
5- base-compat-batteries-0.10.1
5- base-compat-batteries-0.10.1
6- base-compat-0.10.1
6- base-compat-0.10.1
7−- hspec-discover-2.5.0
7+- hspec-discover-2.5.6
8−- hspec-core-2.5.0
8+- hspec-core-2.5.6
9−- hspec-2.5.0
9+- hspec-2.5.6
10# aeson pre-1.3.1.0 has an upper bound on `base-compat-batteries` that preclude
10# aeson pre-1.3.1.0 has an upper bound on `base-compat-batteries` that preclude
11# the 0.10.1 that we depend on
11# the 0.10.1 that we depend on
12−- aeson-1.3.1.0
12+# - aeson-1.3.1.0
13+- QuickCheck-2.12
13flags: {}
14flags: {}
14extra-package-dbs: []
15extra-package-dbs: []