loafle/openapi-generator-original
3
0
Fork 1
mirror of https://github.com/OpenAPITools/openapi-generator.git synced 2025-12-04 09:46:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

[haskell-http-client] default InlineMimeTypes=true (#7534)

Browse Source 
- default CLI option InlineMimeTypes to True, since it produces cleaner code

- update bounds on dependancies
This commit is contained in:
Jon Schoning
2018-01-31 22:26:13 -06:00
committed by William Cheng
parent 6b9d38d40a
commit 2d0bafb6b2
27 changed files with 575 additions and 595 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -140,7 +140,7 @@ testPetOps mgr config =
it "updatePetWithFormRequest" $ do
readIORef _pet >>= \case
Just S.Pet {S.petId = Just petId} -> do
let updatePetWithFormRequest = S.updatePetWithForm (S.ContentType S.MimeFormUrlEncoded) (S.Accept S.MimeJSON)
let updatePetWithFormRequest = S.updatePetWithForm (S.Accept S.MimeJSON)
(S.PetId petId)
`S.applyOptionalParam` S.Name2 "petName"
`S.applyOptionalParam` S.StatusText "pending"
@@ -153,8 +153,7 @@ testPetOps mgr config =
Just pet@S.Pet {S.petId = Just petId} -> go petId
_ -> pendingWith "no petId") $
it "uploadFile" $ \petId -> do
let uploadFileRequest = S.uploadFile (S.ContentType S.MimeMultipartFormData) (S.Accept S.MimeJSON)
(S.PetId petId)
let uploadFileRequest = S.uploadFile (S.PetId petId)
`S.applyOptionalParam` S.File "package.yaml"
`S.applyOptionalParam` S.AdditionalMetadata "a package.yaml file"
uploadFileRequestResult <- S.dispatchMime mgr config uploadFileRequest
@@ -184,7 +183,7 @@ testStoreOps mgr config = do
_order <- runIO $ newIORef (Nothing :: Maybe S.Order)
it "getInventory" $ do
let getInventoryRequest = S.getInventory (S.Accept S.MimeJSON)
let getInventoryRequest = S.getInventory
`S.setHeader` [("api_key","special-key")]
getInventoryRequestRequestResult <- S.dispatchMime mgr config getInventoryRequest
NH.responseStatus (S.mimeResultResponse getInventoryRequestRequestResult) `shouldBe` NH.status200