From 256cec566f603c6c66947fa91026d5e0e0a9068a Mon Sep 17 00:00:00 2001 From: Maxim Koltsov Date: Tue, 22 Mar 2022 22:42:48 +0100 Subject: [PATCH] Support hspec >= 2.9 in servant-swagger tests --- servant-swagger/src/Servant/Swagger.hs | 6 +++--- servant-swagger/src/Servant/Swagger/Internal/Test.hs | 12 ++++++------ 2 files changed, 9 insertions(+), 9 deletions(-) diff --git a/servant-swagger/src/Servant/Swagger.hs b/servant-swagger/src/Servant/Swagger.hs index c45b0fbc..0ceea5bc 100644 --- a/servant-swagger/src/Servant/Swagger.hs +++ b/servant-swagger/src/Servant/Swagger.hs @@ -160,11 +160,11 @@ import Servant.Swagger.Internal.Orphans () -- >>> instance Arbitrary UserId where arbitrary = UserId <$> arbitrary -- >>> hspec $ validateEveryToJSON (Proxy :: Proxy UserAPI) -- --- [User] +-- [User]... -- ... --- User +-- User... -- ... --- UserId +-- UserId... -- ... -- Finished in ... seconds -- 3 examples, 0 failures diff --git a/servant-swagger/src/Servant/Swagger/Internal/Test.hs b/servant-swagger/src/Servant/Swagger/Internal/Test.hs index 0fecb0a1..e1e32766 100644 --- a/servant-swagger/src/Servant/Swagger/Internal/Test.hs +++ b/servant-swagger/src/Servant/Swagger/Internal/Test.hs @@ -53,10 +53,10 @@ import Servant.Swagger.Internal.TypeLevel -- -- >>> hspec $ context "ToJSON matches ToSchema" $ validateEveryToJSON (Proxy :: Proxy UserAPI) -- --- ToJSON matches ToSchema --- User +-- ToJSON matches ToSchema... +-- User... -- ... --- UserId +-- UserId... -- ... -- Finished in ... seconds -- 2 examples, 0 failures @@ -118,11 +118,11 @@ validateEveryToJSONWithPatternChecker checker _ = props -- :} -- -- read . show == id --- Bool +-- Bool... -- ... --- Int +-- Int... -- ... --- [Char] +-- [Char]... -- ... -- Finished in ... seconds -- 3 examples, 0 failures