eeva
/
servant
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Support hspec >= 2.9 in servant-swagger tests

This commit is contained in:
Maxim Koltsov 2022-03-22 22:42:48 +01:00
parent ced5f1a655
commit 256cec566f
No known key found for this signature in database
GPG Key ID: 52B5EDB68BF54442
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
servant-swagger/src/Servant/Swagger.hs
View File

@ -160,11 +160,11 @@ import Servant.Swagger.Internal.Orphans ()
-- >>> instance Arbitrary UserId where arbitrary = UserId <$> arbitrary
-- >>> hspec $ validateEveryToJSON (Proxy :: Proxy UserAPI)
-- <BLANKLINE>
-- [User]
-- [User]...
-- ...
-- User
-- User...
-- ...
-- UserId
-- UserId...
-- ...
-- Finished in ... seconds
-- 3 examples, 0 failures

12
servant-swagger/src/Servant/Swagger/Internal/Test.hs
View File

@ -53,10 +53,10 @@ import Servant.Swagger.Internal.TypeLevel
--
-- >>> hspec $ context "ToJSON matches ToSchema" $ validateEveryToJSON (Proxy :: Proxy UserAPI)
-- <BLANKLINE>
-- ToJSON matches ToSchema
-- User
-- ToJSON matches ToSchema...
-- User...
-- ...
-- UserId
-- UserId...
-- ...
-- Finished in ... seconds
-- 2 examples, 0 failures
@ -118,11 +118,11 @@ validateEveryToJSONWithPatternChecker checker _ = props
-- :}
-- <BLANKLINE>
-- read . show == id
-- Bool
-- Bool...
-- ...
-- Int
-- Int...
-- ...
-- [Char]
-- [Char]...
-- ...
-- Finished in ... seconds
-- 3 examples, 0 failures