commit
875f5921fc
7 changed files with 26 additions and 14 deletions
|
@ -37,7 +37,7 @@ library
|
||||||
build-depends:
|
build-depends:
|
||||||
base >= 4.7 && < 4.10
|
base >= 4.7 && < 4.10
|
||||||
, base-compat >= 0.9.1 && < 0.10
|
, base-compat >= 0.9.1 && < 0.10
|
||||||
, aeson >= 0.7 && < 1.1
|
, aeson >= 0.7 && < 1.2
|
||||||
, attoparsec >= 0.12 && < 0.14
|
, attoparsec >= 0.12 && < 0.14
|
||||||
, base64-bytestring >= 1.0.0.1 && < 1.1
|
, base64-bytestring >= 1.0.0.1 && < 1.1
|
||||||
, bytestring >= 0.10 && < 0.11
|
, bytestring >= 0.10 && < 0.11
|
||||||
|
|
|
@ -47,7 +47,7 @@ library
|
||||||
build-depends:
|
build-depends:
|
||||||
base >= 4.7 && < 4.10
|
base >= 4.7 && < 4.10
|
||||||
, base-compat >= 0.9 && < 0.10
|
, base-compat >= 0.9 && < 0.10
|
||||||
, aeson >= 0.7 && < 1.1
|
, aeson >= 0.7 && < 1.2
|
||||||
, attoparsec >= 0.12 && < 0.14
|
, attoparsec >= 0.12 && < 0.14
|
||||||
, base64-bytestring >= 1.0 && < 1.1
|
, base64-bytestring >= 1.0 && < 1.1
|
||||||
, bytestring >= 0.10 && < 0.11
|
, bytestring >= 0.10 && < 0.11
|
||||||
|
@ -117,7 +117,7 @@ test-suite spec
|
||||||
, directory
|
, directory
|
||||||
, exceptions
|
, exceptions
|
||||||
, hspec == 2.*
|
, hspec == 2.*
|
||||||
, hspec-wai
|
, hspec-wai >= 0.8 && <0.9
|
||||||
, http-types
|
, http-types
|
||||||
, network >= 2.6
|
, network >= 2.6
|
||||||
, QuickCheck
|
, QuickCheck
|
||||||
|
|
|
@ -211,11 +211,17 @@ errorRetrySpec =
|
||||||
|
|
||||||
it "should continue when URLs don't match" $ do
|
it "should continue when URLs don't match" $ do
|
||||||
request methodPost "" [jsonCT, jsonAccept] jsonBody
|
request methodPost "" [jsonCT, jsonAccept] jsonBody
|
||||||
`shouldRespondWith` 200 { matchBody = Just $ encode (8 :: Int) }
|
`shouldRespondWith` 200 { matchBody = mkBody $ encode (8 :: Int) }
|
||||||
|
|
||||||
it "should continue when methods don't match" $ do
|
it "should continue when methods don't match" $ do
|
||||||
request methodGet "a" [jsonCT, jsonAccept] jsonBody
|
request methodGet "a" [jsonCT, jsonAccept] jsonBody
|
||||||
`shouldRespondWith` 200 { matchBody = Just $ encode (4 :: Int) }
|
`shouldRespondWith` 200 { matchBody = mkBody $ encode (4 :: Int) }
|
||||||
|
where
|
||||||
|
mkBody b = MatchBody $ \_ b' ->
|
||||||
|
if b == b'
|
||||||
|
then Nothing
|
||||||
|
else Just "body not correct\n"
|
||||||
|
|
||||||
|
|
||||||
-- }}}
|
-- }}}
|
||||||
------------------------------------------------------------------------------
|
------------------------------------------------------------------------------
|
||||||
|
|
|
@ -51,7 +51,7 @@ library
|
||||||
build-depends:
|
build-depends:
|
||||||
base >= 4.7 && < 4.10
|
base >= 4.7 && < 4.10
|
||||||
, base-compat >= 0.9 && < 0.10
|
, base-compat >= 0.9 && < 0.10
|
||||||
, aeson >= 0.7 && < 1.1
|
, aeson >= 0.7 && < 1.2
|
||||||
, attoparsec >= 0.12 && < 0.14
|
, attoparsec >= 0.12 && < 0.14
|
||||||
, bytestring >= 0.10 && < 0.11
|
, bytestring >= 0.10 && < 0.11
|
||||||
, case-insensitive >= 1.2 && < 1.3
|
, case-insensitive >= 1.2 && < 1.3
|
||||||
|
|
|
@ -11,10 +11,12 @@ extra-deps:
|
||||||
- control-monad-omega-0.3.1
|
- control-monad-omega-0.3.1
|
||||||
- cryptonite-0.6
|
- cryptonite-0.6
|
||||||
- doctest-0.11.0
|
- doctest-0.11.0
|
||||||
- hspec-2.2.3
|
- hspec-2.3.2
|
||||||
- hspec-core-2.2.3
|
- hspec-discover-2.3.2
|
||||||
- hspec-discover-2.2.3
|
- hspec-core-2.3.2
|
||||||
- hspec-expectations-0.7.2
|
- hspec-wai-0.8.0
|
||||||
|
- hspec-expectations-0.8.2
|
||||||
|
- call-stack-0.1.0
|
||||||
- http-api-data-0.3
|
- http-api-data-0.3
|
||||||
- natural-transformation-0.4
|
- natural-transformation-0.4
|
||||||
- primitive-0.6.1.0
|
- primitive-0.6.1.0
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
resolver: nightly-2016-05-27
|
resolver: nightly-2016-12-31
|
||||||
packages:
|
packages:
|
||||||
- servant/
|
- servant/
|
||||||
- servant-client/
|
- servant-client/
|
||||||
|
@ -6,7 +6,5 @@ packages:
|
||||||
- servant-foreign/
|
- servant-foreign/
|
||||||
- servant-server/
|
- servant-server/
|
||||||
extra-deps:
|
extra-deps:
|
||||||
- http-api-data-0.3
|
- aeson-1.1.0.0
|
||||||
- uri-bytestring-0.2.2.0
|
|
||||||
- natural-transformation-0.4
|
|
||||||
flags: {}
|
flags: {}
|
||||||
|
|
|
@ -10,4 +10,10 @@ extra-deps:
|
||||||
- http-api-data-0.3
|
- http-api-data-0.3
|
||||||
- servant-js-0.9 # needed for tutorial
|
- servant-js-0.9 # needed for tutorial
|
||||||
- natural-transformation-0.4
|
- natural-transformation-0.4
|
||||||
|
- hspec-2.3.2
|
||||||
|
- hspec-discover-2.3.2
|
||||||
|
- hspec-core-2.3.2
|
||||||
|
- hspec-wai-0.8.0
|
||||||
|
- hspec-expectations-0.8.2
|
||||||
|
- call-stack-0.1.0
|
||||||
resolver: lts-6.0
|
resolver: lts-6.0
|
||||||
|
|
Loading…
Reference in a new issue