git.iko.soy/servant
on master help sign in
Add test that EmptyAPI does not generate any docs
4b7ffc9David Turner
servant-docs/test/Servant/DocsSpec.hs+4
compare with master
unifiedsplit
@@ -104,6 +104,9 @@ spec = describe "Servant.Docs" $ do
104 it "contains request body samples" $
104 it "contains request body samples" $
105 md `shouldContain` "17"
105 md `shouldContain` "17"
106
106
107+ it "does not generate any docs mentioning the 'empty-api' path" $
108+ md `shouldNotContain` "empty-api"
109+
107
110
108-- * APIs
111-- * APIs
109
112
@@ -128,6 +131,7 @@ instance MimeRender PlainText Int where
128type TestApi1 = Get '[JSON, PlainText] (Headers '[Header "Location" String] Int)
131type TestApi1 = Get '[JSON, PlainText] (Headers '[Header "Location" String] Int)
129 :<|> ReqBody '[JSON] String :> Post '[JSON] Datatype1
132 :<|> ReqBody '[JSON] String :> Post '[JSON] Datatype1
130 :<|> Header "X-Test" Int :> Put '[JSON] Int
133 :<|> Header "X-Test" Int :> Put '[JSON] Int
134+ :<|> "empty-api" :> EmptyAPI
131
135
132data TT = TT1 | TT2 deriving (Show, Eq)
136data TT = TT1 | TT2 deriving (Show, Eq)
133data UT = UT1 | UT2 deriving (Show, Eq)
137data UT = UT1 | UT2 deriving (Show, Eq)