servant-mock 0.8.1.1 → 0.8.1.2

raw patch · 3 files changed

+21/−12 lines, 3 filesdep ~hspec-waidep ~servantdep ~servant-servernew-uploaderPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: hspec-wai, servant, servant-server

API changes (from Hackage documentation)

- Servant.Mock: instance forall k1 (ctypes :: [GHC.Types.*]) a (rest :: k1) (context :: [*]). (Servant.API.ContentTypes.AllCTUnrender ctypes a, Servant.Mock.HasMock rest context) => Servant.Mock.HasMock (Servant.API.ReqBody.ReqBody ctypes a Servant.API.Sub.:> rest) context

- Servant.Mock: instance forall k1 (h :: GHC.Types.Symbol) a (rest :: k1) (context :: [*]). (GHC.TypeLits.KnownSymbol h, Web.Internal.HttpApiData.FromHttpApiData a, Servant.Mock.HasMock rest context) => Servant.Mock.HasMock (Servant.API.Header.Header h a Servant.API.Sub.:> rest) context

- Servant.Mock: instance forall k1 (path :: GHC.Types.Symbol) (rest :: k1) (context :: [*]). (GHC.TypeLits.KnownSymbol path, Servant.Mock.HasMock rest context) => Servant.Mock.HasMock (path Servant.API.Sub.:> rest) context

- Servant.Mock: instance forall k1 (rest :: k1) (context :: [*]). Servant.Mock.HasMock rest context => Servant.Mock.HasMock (Data.Vault.Lazy.Vault Servant.API.Sub.:> rest) context

- Servant.Mock: instance forall k1 (rest :: k1) (context :: [*]). Servant.Mock.HasMock rest context => Servant.Mock.HasMock (Network.HTTP.Types.Version.HttpVersion Servant.API.Sub.:> rest) context

- Servant.Mock: instance forall k1 (rest :: k1) (context :: [*]). Servant.Mock.HasMock rest context => Servant.Mock.HasMock (Servant.API.IsSecure.IsSecure Servant.API.Sub.:> rest) context

- Servant.Mock: instance forall k1 (rest :: k1) (context :: [*]). Servant.Mock.HasMock rest context => Servant.Mock.HasMock (Servant.API.RemoteHost.RemoteHost Servant.API.Sub.:> rest) context

- Servant.Mock: instance forall k1 (s :: GHC.Types.Symbol) (rest :: k1) (context :: [*]). (GHC.TypeLits.KnownSymbol s, Servant.Mock.HasMock rest context) => Servant.Mock.HasMock (Servant.API.QueryParam.QueryFlag s Servant.API.Sub.:> rest) context

- Servant.Mock: instance forall k1 (s :: GHC.Types.Symbol) a (rest :: k1) (context :: [*]). (GHC.TypeLits.KnownSymbol s, Web.Internal.HttpApiData.FromHttpApiData a, Servant.Mock.HasMock rest context) => Servant.Mock.HasMock (Servant.API.Capture.Capture s a Servant.API.Sub.:> rest) context

- Servant.Mock: instance forall k1 (s :: GHC.Types.Symbol) a (rest :: k1) (context :: [*]). (GHC.TypeLits.KnownSymbol s, Web.Internal.HttpApiData.FromHttpApiData a, Servant.Mock.HasMock rest context) => Servant.Mock.HasMock (Servant.API.QueryParam.QueryParam s a Servant.API.Sub.:> rest) context

- Servant.Mock: instance forall k1 (s :: GHC.Types.Symbol) a (rest :: k1) (context :: [*]). (GHC.TypeLits.KnownSymbol s, Web.Internal.HttpApiData.FromHttpApiData a, Servant.Mock.HasMock rest context) => Servant.Mock.HasMock (Servant.API.QueryParam.QueryParams s a Servant.API.Sub.:> rest) context

+ Servant.Mock: instance forall k (ctypes :: [GHC.Types.*]) a (rest :: k) (context :: [*]). (Servant.API.ContentTypes.AllCTUnrender ctypes a, Servant.Mock.HasMock rest context) => Servant.Mock.HasMock (Servant.API.ReqBody.ReqBody ctypes a Servant.API.Sub.:> rest) context

+ Servant.Mock: instance forall k (h :: GHC.Types.Symbol) a (rest :: k) (context :: [*]). (GHC.TypeLits.KnownSymbol h, Web.Internal.HttpApiData.FromHttpApiData a, Servant.Mock.HasMock rest context) => Servant.Mock.HasMock (Servant.API.Header.Header h a Servant.API.Sub.:> rest) context

+ Servant.Mock: instance forall k (path :: GHC.Types.Symbol) (rest :: k) (context :: [*]). (GHC.TypeLits.KnownSymbol path, Servant.Mock.HasMock rest context) => Servant.Mock.HasMock (path Servant.API.Sub.:> rest) context

+ Servant.Mock: instance forall k (rest :: k) (context :: [*]). Servant.Mock.HasMock rest context => Servant.Mock.HasMock (Data.Vault.Lazy.Vault Servant.API.Sub.:> rest) context

+ Servant.Mock: instance forall k (rest :: k) (context :: [*]). Servant.Mock.HasMock rest context => Servant.Mock.HasMock (Network.HTTP.Types.Version.HttpVersion Servant.API.Sub.:> rest) context

+ Servant.Mock: instance forall k (rest :: k) (context :: [*]). Servant.Mock.HasMock rest context => Servant.Mock.HasMock (Servant.API.IsSecure.IsSecure Servant.API.Sub.:> rest) context

+ Servant.Mock: instance forall k (rest :: k) (context :: [*]). Servant.Mock.HasMock rest context => Servant.Mock.HasMock (Servant.API.RemoteHost.RemoteHost Servant.API.Sub.:> rest) context

+ Servant.Mock: instance forall k (s :: GHC.Types.Symbol) (rest :: k) (context :: [*]). (GHC.TypeLits.KnownSymbol s, Servant.Mock.HasMock rest context) => Servant.Mock.HasMock (Servant.API.QueryParam.QueryFlag s Servant.API.Sub.:> rest) context

+ Servant.Mock: instance forall k (s :: GHC.Types.Symbol) a (rest :: k) (context :: [*]). (GHC.TypeLits.KnownSymbol s, Web.Internal.HttpApiData.FromHttpApiData a, Servant.Mock.HasMock rest context) => Servant.Mock.HasMock (Servant.API.Capture.Capture s a Servant.API.Sub.:> rest) context

+ Servant.Mock: instance forall k (s :: GHC.Types.Symbol) a (rest :: k) (context :: [*]). (GHC.TypeLits.KnownSymbol s, Web.Internal.HttpApiData.FromHttpApiData a, Servant.Mock.HasMock rest context) => Servant.Mock.HasMock (Servant.API.QueryParam.QueryParam s a Servant.API.Sub.:> rest) context

+ Servant.Mock: instance forall k (s :: GHC.Types.Symbol) a (rest :: k) (context :: [*]). (GHC.TypeLits.KnownSymbol s, Web.Internal.HttpApiData.FromHttpApiData a, Servant.Mock.HasMock rest context) => Servant.Mock.HasMock (Servant.API.QueryParam.QueryParams s a Servant.API.Sub.:> rest) context

Files

CHANGELOG.md +6/−0
servant-mock.cabal +6/−6
test/Servant/MockSpec.hs +9/−6

CHANGELOG.md view

@@ -1,3 +1,9 @@+0.8.1.2+-------++- Support for servant-0.10+- Fix test with hspec-wai-0.8+ 0.8.1.1 -------

servant-mock.cabal view

@@ -1,5 +1,5 @@ name:                servant-mock-version:             0.8.1.1+version:             0.8.1.2 synopsis:            Derive a mock server for free from your servant API types description:   Derive a mock server for free from your servant API types@@ -11,7 +11,7 @@ author:              Servant Contributors maintainer:          haskell-servant-maintainers@googlegroups.com copyright:           2015-2016 Servant Contributors-category:            Web+category:            Servant, Web build-type:          Simple extra-source-files:  README.md CHANGELOG.md include/*.h cabal-version:       >=1.10@@ -33,8 +33,8 @@     base            >=4.7    && <5,     bytestring      >=0.10.4 && <0.11,     http-types      >=0.8    && <0.10,-    servant         >=0.8    && <0.10,-    servant-server  >=0.8    && <0.10,+    servant         >=0.8    && <0.11,+    servant-server  >=0.8    && <0.11,     transformers    >=0.3    && <0.6,     QuickCheck      >=2.7    && <2.10,     wai             >=3.0    && <3.3@@ -51,7 +51,7 @@     aeson,     base,     servant-mock,-    servant-server,+    servant-server >= 0.10,     QuickCheck,     warp   if flag(example)@@ -72,7 +72,7 @@     bytestring-conversion,     base,     hspec,-    hspec-wai,+    hspec-wai >=0.8 && <0.9,     QuickCheck,     servant,     servant-server,

test/Servant/MockSpec.hs view

@@ -13,7 +13,7 @@ import           Network.Wai import           Servant.API import           Test.Hspec hiding (pending)-import           Test.Hspec.Wai+import           Test.Hspec.Wai hiding (Body) import           Test.QuickCheck  import           Servant@@ -64,7 +64,10 @@       with (return app) $ do         it "serves arbitrary response bodies" $ do           get "/" `shouldRespondWith` 200{-            matchBody = Just $ Aeson.encode ArbitraryBody+            matchBody = MatchBody $ \ _ b ->+              if b == Aeson.encode ArbitraryBody+                then Nothing+                else Just ("body not correct\n")           }      context "response headers" $ do@@ -77,8 +80,8 @@       with (toApp withHeader) $ do         it "serves arbitrary response bodies" $ do           get "/" `shouldRespondWith` 200{-            matchHeaders = return $ MatchHeader $ \ h ->-             if h == [("Content-Type", "application/json"), ("foo", "ArbitraryHeader")]+            matchHeaders = return $ MatchHeader $ \ h _ ->+             if h == [("Content-Type", "application/json;charset=utf-8"), ("foo", "ArbitraryHeader")]                 then Nothing                 else Just ("headers not correct\n")           }@@ -86,8 +89,8 @@       with (toApp withoutHeader) $ do         it "works for no additional headers" $ do           get "/" `shouldRespondWith` 200{-            matchHeaders = return $ MatchHeader $ \ h ->-             if h == [("Content-Type", "application/json")]+            matchHeaders = return $ MatchHeader $ \ h _ ->+             if h == [("Content-Type", "application/json;charset=utf-8")]                 then Nothing                 else Just ("headers not correct\n")           }