Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml =================================================================== diff -u -r35436 -r35438 --- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml (.../Test.cls.xml) (revision 35436) +++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml (.../Test.cls.xml) (revision 35438) @@ -14,10 +14,17 @@ do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID")) do ExterneVerkoopServiceMock.VerwachtMethodCall("BestelOfferte","OfferteID",..#KlantID,..#PersonalityID) do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1) + + do ExterneVerkoopServiceMock.IndienMethodCall("WisOfferte","OfferteID").DanDoeNiks() set BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New(ExterneVerkoopServiceMock) #dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat = BestelService.PlaatsBestelling(..GeefAanvraag()) + if ($IsObject(Resultaat.Exceptie)) { + // Enkel bedoeld om gemakkelijker te kunnen debuggen indien een fout opgetreden. Anders weet je niks van de exceptie. + Do ##class(TECH.ExceptionHandler).Throw(Resultaat.Exceptie) + } + do $$$AssertEquals(Resultaat.OfferteID,"OfferteID") do $$$AssertEquals(Resultaat.Exceptie,"")