Index: vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Test.cls.xml =================================================================== diff -u -r46538 -r49960 --- vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Test.cls.xml (.../Test.cls.xml) (revision 46538) +++ vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Test.cls.xml (.../Test.cls.xml) (revision 49960) @@ -42,8 +42,11 @@ #dim OfferteGeneratorMock As vhTest.Mock.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator = ##class(vhTest.Mock.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator).%New() Do OfferteGeneratorMock.VerwachtMethodCall("GeefOfferteDto", $$$ElkeWaarde).DanReturn(##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.Offerte).%New()) + #dim HttpPosterStub As vhTest.Mock.TECH.Http.Poster = ##class(vhTest.Mock.TECH.Http.Poster).%New() + Do HttpPosterStub.IndienMethodCall("PostMessage", $$$ElkeWaarde) + #dim HttpApiStub As vhTest.Mock.TECH.Http.HttpAPI = ##class(vhTest.Mock.TECH.Http.HttpAPI).MockInstance() - Do HttpApiStub.IndienMethodCall("GeefHttpPoster") + Do HttpApiStub.IndienMethodCall("GeefHttpPoster").DanReturn(HttpPosterStub) #dim HttpVerzender As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.HaefeleBE).%New("", OfferteGeneratorMock) Do HttpVerzender.Verzend(..OfferteStub) @@ -101,8 +104,9 @@ #dim OfferteGeneratorStub As vhTest.Mock.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator = ##class(vhTest.Mock.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator).%New() Do OfferteGeneratorStub.IndienMethodCall("GeefOfferteDto", $$$ElkeWaarde).DanReturn(##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.Offerte).%New()) + Set PostMessagException = ##class(TECH.Exceptions.CommunicationErrorException).%New("UT HttpPost failed.") #dim HttpPosterStub As vhTest.Mock.TECH.Http.Poster = ##class(vhTest.Mock.TECH.Http.Poster).%New() - Do HttpPosterStub.IndienMethodCall("PostMessage", $$$ElkeWaarde).DanException("Een exceptie") + Do HttpPosterStub.IndienMethodCall("PostMessage", $$$ElkeWaarde).DanException(PostMessagException) #dim HttpApiStub As vhTest.Mock.TECH.Http.HttpAPI = ##class(vhTest.Mock.TECH.Http.HttpAPI).MockInstance() Do HttpApiStub.IndienMethodCall("GeefHttpPoster").DanReturn(HttpPosterStub)