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

[haskell-http-client] fixes for fake-endpoints (#6597)

Browse Source 
* fix compile errors / sanitization for petstore-with-fake-endpoints-models-for-testing.yaml
* correct mimetype logic
* add makefile
This commit is contained in:
Jon Schoning
2017-10-01 05:18:46 -05:00
committed by wing328
parent c32281cd02
commit 8bd7d3912b
59 changed files with 6972 additions and 2013 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

@@ -130,7 +130,7 @@ testPetOps mgr config =
readIORef _pet >>= \case
Just S.Pet {S.petId = Just petId} -> do
let updatePetWithFormRequest = S.updatePetWithForm S.MimeFormUrlEncoded petId
`S.applyOptionalParam` S.Name "petName"
`S.applyOptionalParam` S.Name2 "petName"
`S.applyOptionalParam` S.Status "pending"
updatePetWithFormResponse <- S.dispatchLbs mgr config updatePetWithFormRequest S.MimeJSON
NH.responseStatus updatePetWithFormResponse `shouldBe` NH.status200
@@ -156,7 +156,7 @@ testPetOps mgr config =
_ -> pendingWith "no petId") $
it "deletePet" $ \petId -> do
let deletePetRequest = S.deletePet petId
`S.applyOptionalParam` S.ApiUnderscorekey "api key"
`S.applyOptionalParam` S.ApiKey "api key"
deletePetResponse <- S.dispatchLbs mgr config deletePetRequest S.MimeJSON
NH.responseStatus deletePetResponse `shouldBe` NH.status200
@@ -185,7 +185,7 @@ testStoreOps mgr config = do
(S.mkOrder
{ S.orderId = Just 21
, S.orderQuantity = Just 210
, S.orderShipDate = Just now
, S.orderShipDate = Just (S.DateTime now)
})
placeOrderResult <- S.dispatchMime mgr config placeOrderRequest S.MimeJSON
NH.responseStatus (S.mimeResultResponse placeOrderResult) `shouldBe` NH.status200