git.iko.soy/servant
on master help sign in
Support hspec >= 2.9 in servant-swagger tests
256cec5Maxim Koltsov
servant-swagger/src/Servant/Swagger.hs+3−3
compare with master
unifiedsplit
@@ -160,11 +160,11 @@ import Servant.Swagger.Internal.Orphans ()
160-- >>> instance Arbitrary UserId where arbitrary = UserId <$> arbitrary
160-- >>> instance Arbitrary UserId where arbitrary = UserId <$> arbitrary
161-- >>> hspec $ validateEveryToJSON (Proxy :: Proxy UserAPI)
161-- >>> hspec $ validateEveryToJSON (Proxy :: Proxy UserAPI)
162-- <BLANKLINE>
162-- <BLANKLINE>
163−-- [User]
163+-- [User]...
164-- ...
164-- ...
165−-- User
165+-- User...
166-- ...
166-- ...
167−-- UserId
167+-- UserId...
168-- ...
168-- ...
169-- Finished in ... seconds
169-- Finished in ... seconds
170-- 3 examples, 0 failures
170-- 3 examples, 0 failures
servant-swagger/src/Servant/Swagger/Internal/Test.hs+6−6
@@ -53,10 +53,10 @@ import Servant.Swagger.Internal.TypeLevel
53--
53--
54-- >>> hspec $ context "ToJSON matches ToSchema" $ validateEveryToJSON (Proxy :: Proxy UserAPI)
54-- >>> hspec $ context "ToJSON matches ToSchema" $ validateEveryToJSON (Proxy :: Proxy UserAPI)
55-- <BLANKLINE>
55-- <BLANKLINE>
56−-- ToJSON matches ToSchema
56+-- ToJSON matches ToSchema...
57−-- User
57+-- User...
58-- ...
58-- ...
59−-- UserId
59+-- UserId...
60-- ...
60-- ...
61-- Finished in ... seconds
61-- Finished in ... seconds
62-- 2 examples, 0 failures
62-- 2 examples, 0 failures
@@ -118,11 +118,11 @@ validateEveryToJSONWithPatternChecker checker _ = props
118-- :}
118-- :}
119-- <BLANKLINE>
119-- <BLANKLINE>
120-- read . show == id
120-- read . show == id
121−-- Bool
121+-- Bool...
122-- ...
122-- ...
123−-- Int
123+-- Int...
124-- ...
124-- ...
125−-- [Char]
125+-- [Char]...
126-- ...
126-- ...
127-- Finished in ... seconds
127-- Finished in ... seconds
128-- 3 examples, 0 failures
128-- 3 examples, 0 failures