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

Support hspec >= 2.9 in servant-swagger tests

Browse Source
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 -- >>> instance Arbitrary UserId where arbitrary = UserId <$> arbitrary
-- >>> hspec $ validateEveryToJSON (Proxy :: Proxy UserAPI) -- >>> hspec $ validateEveryToJSON (Proxy :: Proxy UserAPI)
-- <BLANKLINE> -- <BLANKLINE>
-- [User] -- [User]...
-- ... -- ...
-- User -- User...
-- ... -- ...
-- UserId -- UserId...
-- ... -- ...
-- Finished in ... seconds -- Finished in ... seconds
-- 3 examples, 0 failures -- 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) -- >>> hspec $ context "ToJSON matches ToSchema" $ validateEveryToJSON (Proxy :: Proxy UserAPI)
-- <BLANKLINE> -- <BLANKLINE>
-- ToJSON matches ToSchema -- ToJSON matches ToSchema...
-- User -- User...
-- ... -- ...
-- UserId -- UserId...
-- ... -- ...
-- Finished in ... seconds -- Finished in ... seconds
-- 2 examples, 0 failures -- 2 examples, 0 failures
@ -118,11 +118,11 @@ validateEveryToJSONWithPatternChecker checker _ = props
-- :} -- :}
-- <BLANKLINE> -- <BLANKLINE>
-- read . show == id -- read . show == id
-- Bool -- Bool...
-- ... -- ...
-- Int -- Int...
-- ... -- ...
-- [Char] -- [Char]...
-- ... -- ...
-- Finished in ... seconds -- Finished in ... seconds
-- 3 examples, 0 failures -- 3 examples, 0 failures