Add decoding test for Info object
commit8e165b59a3babe62e77dfc96eaa637b93e660c27
authorNickolay Kudasov <nickolay.kudasov@gmail.com>
dateSat 7 Nov 2015, 18:35 (11 years ago)
parente41e388
test/Data/SwaggerSpec.hs+2
@@ -50,6 +50,8 @@ spec = do
5050 describe "Info Object" $ do
5151 it "encodes correctly" $ do
5252 toJSON infoExample `shouldBe` infoExampleJSON
53+ it "decodes correctly" $ do
54+ fromJSON infoExampleJSON `shouldBe` Success infoExample
5355
5456main :: IO ()
5557main = hspec spec