loafle/openapi-generator
3
0
Fork 0
forked from loafle/openapi-generator-original
Code Pull Requests Activity

[haskell-http-client] add support for enums (#6803)

Browse Source 
* support enums for models and operation parameters

* add generateEnums cli option (default: true)

* bump stack resolver: lts-9.10
This commit is contained in:
Jon Schoning
2017-10-28 11:45:13 -05:00
committed by wing328
parent b259f3bb8b
commit 4fc52c5524
42 changed files with 3629 additions and 2709 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
samples/client/petstore/haskell-http-client/tests-integration/tests/Test.hs
View File

@@ -106,7 +106,9 @@ testPetOps mgr config =
Left (S.MimeError e _) -> assertFailure e
it "findPetsByStatus" $ do
let findPetsByStatusRequest = S.findPetsByStatus (S.Status ["available","pending","sold"])
let findPetsByStatusRequest = S.findPetsByStatus (S.Status [ S.E'Status2'Available
, S.E'Status2'Pending
, S.E'Status2'Sold])
findPetsByStatusResult <- S.dispatchMime mgr config findPetsByStatusRequest S.MimeJSON
NH.responseStatus (S.mimeResultResponse findPetsByStatusResult) `shouldBe` NH.status200
case S.mimeResult findPetsByStatusResult of
@@ -127,7 +129,7 @@ testPetOps mgr config =
_ -> pendingWith "no pet") $
it "updatePet" $ \pet -> do
let updatePetRequest = S.updatePet S.MimeJSON $ pet
{ S.petStatus = Just "available"
{ S.petStatus = Just S.E'Status2'Available
, S.petCategory = Just (S.Category (Just 3) (Just "catname"))
}
updatePetResponse <- S.dispatchLbs mgr config updatePetRequest S.MimeXML