Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml =================================================================== diff -u -r62906 -r74600 --- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml (.../Test.cls.xml) (revision 62906) +++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml (.../Test.cls.xml) (revision 74600) @@ -10,26 +10,37 @@ Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New() Set DnaCode1.Toelevering = "222222" + Set DnaCode1.Lijn = 1 Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New() Set DnaCode2.Toelevering = "222222" Set DnaCode2.InitialenScanner = "XXX" + Set DnaCode2.Lijn = 1 #dim DnaCodeIteratorEenStuk As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1) #dim DnaCodeIteratorTweeStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2) Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New() Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaDnaCodeEnRecent",Request.DnaCode).DanReturn(DnaCodeIteratorEenStuk) Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringIdEnRecent",DnaCode1.Toelevering).DanReturn(DnaCodeIteratorTweeStuks) Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",DnaCode1).ExactAantalKeer(1) - Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock) + Set ProductTypeApiMock = ##class(vhTest.Mock.DOM.PM.impl.ProductTypeAPIimpl).%New() + Do ProductTypeApiMock.IndienMethodCall("IsLegraboxProduct", $$$ElkeWaarde).DanReturn($$$True) + Set ToeleveringServiceMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringService).%New() + Do ToeleveringServiceMock.VerwachtMethodCall("HeeftToeleveringMinstensEenSpaceStep",DnaCode1.Toelevering).DanDoeNiks() + + Set DocumentGeneratorMock = ##class(vhTest.Mock.APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective).%New() + Do DocumentGeneratorMock.IndienMethodCall("GenereerDocumentVoorObjective",DnaCode1.DnaCode).DanDoeNiks() + + Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,, ToeleveringServiceMock, DocumentGeneratorMock,,ProductTypeApiMock) + #dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse = DnaCodeService.DnaCodeAfmelden(Request) Do $$$AssertEquals(Antwoord.Header.Status,"200") Do $$$AssertEquals(Antwoord.DnaCodes.Count(),2) Do $$$AssertEquals(Antwoord.AantalInToelevering,"2") - Do $$$AssertEquals(Antwoord.AantalReedsGescand,"1") Do $$$AssertEquals(Antwoord.DnaCodes.GetAt(1).Locatie,##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit()) Do DnaCodeRepositoryMock.Verifieer() + Do ToeleveringServiceMock.Verifieer() ]]> @@ -49,7 +60,6 @@ Do $$$AssertEquals(Antwoord.Header.Status,##class(TECH.enu.ExceptionCode).DataNotFound()) Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0) Do $$$AssertEquals(Antwoord.AantalInToelevering,"0") - Do $$$AssertEquals(Antwoord.AantalReedsGescand,"0") Do DnaCodeRepositoryMock.Verifieer() ]]> @@ -61,26 +71,37 @@ Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New() Set DnaCode1.Toelevering = "222222" + Set DnaCode1.Lijn = 1 Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New() Set DnaCode2.Toelevering = "222222" Set DnaCode2.InitialenScanner = "XXX" + Set DnaCode2.Lijn = 1 #dim DnaCodeIteratorEenStuk As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1) #dim DnaCodeIteratorTweeStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2) Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New() Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaDnaCodeEnRecent",Request.DnaCode).DanReturn(DnaCodeIteratorEenStuk) Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringIdEnRecent",DnaCode1.Toelevering).DanReturn(..EmptyIterator()) Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",DnaCode1).ExactAantalKeer(1) - Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock) + Set ToeleveringServiceMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringService).%New() + Do ToeleveringServiceMock.VerwachtMethodCall("HeeftToeleveringMinstensEenSpaceStep", DnaCode2.Toelevering).DanDoeNiks() + Set ProductTypeApiMock = ##class(vhTest.Mock.DOM.PM.impl.ProductTypeAPIimpl).%New() + Do ProductTypeApiMock.IndienMethodCall("IsLegraboxProduct", $$$ElkeWaarde).DanReturn($$$True) + + Set DocumentGeneratorMock = ##class(vhTest.Mock.APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective).%New() + Do DocumentGeneratorMock.IndienMethodCall("GenereerDocumentVoorObjective", DnaCode1.DnaCode).DanDoeNiks() + + Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,, ToeleveringServiceMock, DocumentGeneratorMock,,ProductTypeApiMock) + #dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse = DnaCodeService.DnaCodeAfmelden(Request) Do $$$AssertEquals(Antwoord.Header.Status,"-1021") Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Geen data gevonden voor toelevering '222222'") Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0) Do $$$AssertEquals(Antwoord.AantalInToelevering,"0") - Do $$$AssertEquals(Antwoord.AantalReedsGescand,"0") Do DnaCodeRepositoryMock.Verifieer() + Do ToeleveringServiceMock.Verifieer() ]]> @@ -109,7 +130,7 @@ Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Foutmelding") Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0) Do $$$AssertEquals(Antwoord.AantalInToelevering,"0") - Do $$$AssertEquals(Antwoord.AantalReedsGescand,"0") + Do $$$AssertEquals(Antwoord.IsSST,$$$False) Do DnaCodeRepositoryMock.Verifieer() ]]> @@ -134,7 +155,6 @@ Do $$$AssertEquals(Antwoord.Header.Status,##class(TECH.enu.ExceptionCode).InvalidInput()) Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0) Do $$$AssertEquals(Antwoord.AantalInToelevering,"0") - Do $$$AssertEquals(Antwoord.AantalReedsGescand,"0") Do DnaCodeRepositoryMock.Verifieer() ]]> @@ -149,6 +169,7 @@ Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New() Set DnaCode1.Toelevering = "222222" + Set DnaCode1.Lijn = 1 #dim DnaCodeIteratorEenStuk As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1) Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New() Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaDnaCodeEnRecent",Request.DnaCode).DanReturn(DnaCodeIteratorEenStuk) @@ -157,15 +178,24 @@ Set DnaCodeInVhossKastBepalerStub = ##class(vhTest.Mock.WSimpl.Halux.AAP.DnaCodeService.DnaCodeInVhossKastBepaler).%New() Do DnaCodeInVhossKastBepalerStub.IndienMethodCall("MagDnaCodeInVhossKast", DnaCode1, Request.PalletCode, Request.BatchId).DanReturn(1) - Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,DnaCodeInVhossKastBepalerStub) + Set ToeleveringServiceMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringService).%New() + Do ToeleveringServiceMock.VerwachtMethodCall("HeeftToeleveringMinstensEenSpaceStep",DnaCode1.Toelevering).DanDoeNiks() + Set DocumentGeneratorMock = ##class(vhTest.Mock.APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective).%New() + Do DocumentGeneratorMock.IndienMethodCall("GenereerDocumentVoorObjective", DnaCode1.DnaCode).DanDoeNiks() + + Set ProductTypeApiMock = ##class(vhTest.Mock.DOM.PM.impl.ProductTypeAPIimpl).%New() + Do ProductTypeApiMock.IndienMethodCall("IsLegraboxProduct", $$$ElkeWaarde).DanReturn($$$True) + + Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,, DnaCodeInVhossKastBepalerStub,,, ToeleveringServiceMock, DocumentGeneratorMock,,ProductTypeApiMock) + #dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse = DnaCodeService.DnaCodeAfmelden(Request) Do $$$AssertEquals(Antwoord.Header.Status,"200") Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0) Do $$$AssertEquals(Antwoord.AantalInToelevering,"0") - Do $$$AssertEquals(Antwoord.AantalReedsGescand,"0") Do DnaCodeRepositoryMock.Verifieer() + Do ToeleveringServiceMock.Verifieer() ]]> @@ -195,7 +225,6 @@ Do $$$AssertEquals(Antwoord.Header.Omschrijving,"De lade moet in een andere Vhosskast") Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0) Do $$$AssertEquals(Antwoord.AantalInToelevering,"0") - Do $$$AssertEquals(Antwoord.AantalReedsGescand,"0") Do DnaCodeRepositoryMock.Verifieer() ]]> @@ -226,7 +255,6 @@ Do $$$AssertEquals(Antwoord.Header.Omschrijving,"De lade moet aan de andere kant van de Vhosskast") Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0) Do $$$AssertEquals(Antwoord.AantalInToelevering,"0") - Do $$$AssertEquals(Antwoord.AantalReedsGescand,"0") Do DnaCodeRepositoryMock.Verifieer() ]]> @@ -239,24 +267,35 @@ Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New() Set DnaCode1.Toelevering = "222222" + Set DnaCode1.Lijn = 1 Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New() Set DnaCode2.Toelevering = "222222" + Set DnaCode2.Lijn = 1 #dim DnaCodeIteratorEenStuk As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1) #dim DnaCodeIteratorTweeStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2) Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New() Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaDnaCodeEnRecent",Request.DnaCode).DanReturn(DnaCodeIteratorEenStuk) Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringIdEnRecent",DnaCode1.Toelevering).DanReturn(DnaCodeIteratorTweeStuks) Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",DnaCode1).ExactAantalKeer(1) - Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock) + Set ToeleveringServiceMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringService).%New() + Do ToeleveringServiceMock.VerwachtMethodCall("HeeftToeleveringMinstensEenSpaceStep", DnaCode2.Toelevering).DanDoeNiks() + Set DocumentGeneratorMock = ##class(vhTest.Mock.APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective).%New() + Do DocumentGeneratorMock.IndienMethodCall("GenereerDocumentVoorObjective",DnaCode1.DnaCode).DanDoeNiks() + + Set ProductTypeApiMock = ##class(vhTest.Mock.DOM.PM.impl.ProductTypeAPIimpl).%New() + Do ProductTypeApiMock.IndienMethodCall("IsLegraboxProduct", $$$ElkeWaarde).DanReturn($$$True) + + Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,, ToeleveringServiceMock, DocumentGeneratorMock,,ProductTypeApiMock) + #dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse = DnaCodeService.DnaCodeAfmelden(Request) Do $$$AssertEquals(Antwoord.Header.Status,"200") Do $$$AssertEquals(Antwoord.DnaCodes.Count(),2) Do $$$AssertEquals(Antwoord.AantalInToelevering,"2") - Do $$$AssertEquals(Antwoord.AantalReedsGescand,"0") Do DnaCodeRepositoryMock.Verifieer() + Do ToeleveringServiceMock.Verifieer() ]]> @@ -281,7 +320,6 @@ Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Palletcode reeds ingevuld voor '"_Request.DnaCode_"' (TBX12345)") Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0) Do $$$AssertEquals(Antwoord.AantalInToelevering,"0") - Do $$$AssertEquals(Antwoord.AantalReedsGescand,"0") Do DnaCodeRepositoryMock.Verifieer() ]]> @@ -310,7 +348,6 @@ Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Reeds afgesloten. Gebruik 'Hernoem Pallet'") Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0) Do $$$AssertEquals(Antwoord.AantalInToelevering,"0") - Do $$$AssertEquals(Antwoord.AantalReedsGescand,"0") Do DnaCodeRepositoryMock.Verifieer() ]]> @@ -327,16 +364,19 @@ Set DnaCode1.DnaCode = "DnaCode" Set DnaCode1.PalletCode = "TBX12345" Set DnaCode1.InitialenScanner = "XXX" + Set DnaCode1.Lijn = 1 Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New() Set DnaCode2.Toelevering = "222222" Set DnaCode2.InitialenScanner = "XXX" + Set DnaCode1.Lijn = 1 Set AfgemeldeDnaCode = ##class(DOM.Halux.AAP.DnaCode).%New() Set AfgemeldeDnaCode.Toelevering = "222222" Set AfgemeldeDnaCode.DnaCode = "DnaCode" Set AfgemeldeDnaCode.InitialenScanner = "" Set AfgemeldeDnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Ongedaan() + Set AfgemeldeDnaCode.Lijn = 1 #dim DnaCodeIteratorEenStuk As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1) #dim DnaCodeIteratorTweeStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2) @@ -345,15 +385,24 @@ Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringIdEnRecent",DnaCode1.Toelevering).DanReturn(DnaCodeIteratorTweeStuks) Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",..Matches.Object(AfgemeldeDnaCode)).ExactAantalKeer(1) - Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock) + Set ToeleveringServiceMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringService).%New() + Do ToeleveringServiceMock.VerwachtMethodCall("HeeftToeleveringMinstensEenSpaceStep",AfgemeldeDnaCode.Toelevering).DanDoeNiks() + Set DocumentGeneratorMock = ##class(vhTest.Mock.APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective).%New() + Do DocumentGeneratorMock.IndienMethodCall("GenereerDocumentVoorObjective",DnaCode1.DnaCode).DanDoeNiks() + + Set ProductTypeApiMock = ##class(vhTest.Mock.DOM.PM.impl.ProductTypeAPIimpl).%New() + Do ProductTypeApiMock.IndienMethodCall("IsLegraboxProduct", $$$ElkeWaarde).DanReturn($$$True) + + Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,, ToeleveringServiceMock, DocumentGeneratorMock,,ProductTypeApiMock) + #dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse = DnaCodeService.DnaCodeAfmelden(Request) Do $$$AssertEquals(Antwoord.Header.Status,"200") Do $$$AssertEquals(Antwoord.DnaCodes.Count(),2) Do $$$AssertEquals(Antwoord.AantalInToelevering,"2") - Do $$$AssertEquals(Antwoord.AantalReedsGescand,"1") Do DnaCodeRepositoryMock.Verifieer() + Do ToeleveringServiceMock.Verifieer() ]]> @@ -365,20 +414,31 @@ Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New() Set DnaCode1.Toelevering = "222222" + Set DnaCode1.Lijn = 1 #dim DnaCodeIteratorEenStuk As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1) Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New() Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaDnaCodeEnRecent",Request.DnaCode).DanReturn(DnaCodeIteratorEenStuk) Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringIdEnRecent",DnaCode1.Toelevering).DanReturn(DnaCodeIteratorEenStuk) Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",DnaCode1).ExactAantalKeer(1) - Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock) + Set ToeleveringServiceMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringService).%New() + Do ToeleveringServiceMock.VerwachtMethodCall("HeeftToeleveringMinstensEenSpaceStep",DnaCode1.Toelevering).DanDoeNiks() + Set DocumentGeneratorMock = ##class(vhTest.Mock.APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective).%New() + Do DocumentGeneratorMock.IndienMethodCall("GenereerDocumentVoorObjective",DnaCode1.DnaCode).DanDoeNiks() + + Set ProductTypeApiMock = ##class(vhTest.Mock.DOM.PM.impl.ProductTypeAPIimpl).%New() + Do ProductTypeApiMock.IndienMethodCall("IsLegraboxProduct", $$$ElkeWaarde).DanReturn($$$True) + + Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,, ToeleveringServiceMock, DocumentGeneratorMock,,ProductTypeApiMock) + #dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse = DnaCodeService.DnaCodeAfmelden(Request) Do $$$AssertEquals(Antwoord.Header.Status,"200") Do $$$AssertEquals(Antwoord.DnaCodes.Count(),1) Do $$$AssertEquals(Antwoord.DnaCodes.GetAt(1).Locatie,$$$DummyString) Do DnaCodeRepositoryMock.Verifieer() + Do ToeleveringServiceMock.Verifieer() ]]> @@ -392,14 +452,17 @@ Set DnaCode1.Toelevering = "222222" Set DnaCode1.DnaCode = "LAAAAA1" Set DnaCode1.ParentDnaCode = "LBBBBB1" + Set DnaCode1.Lijn = 1 Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New() Set DnaCode2.Toelevering = "222222" Set DnaCode2.DnaCode = "LBBBBB1" Set DnaCode2.ParentDnaCode = "LBBBBB1" + Set DnaCode2.Lijn = 1 Set DnaCode3 = ##class(DOM.Halux.AAP.DnaCode).%New() Set DnaCode3.Toelevering = "222222" Set DnaCode3.DnaCode = "LCCCCC1" Set DnaCode3.ParentDnaCode = "LBBBBB1" + Set DnaCode3.Lijn = 1 #dim DnaCodeIteratorEenStuk As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1) #dim DnaCodeIteratorDrieStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1,DnaCode2,DnaCode3) Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New() @@ -410,16 +473,98 @@ Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",DnaCode2).ExactAantalKeer(1) Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",DnaCode3).ExactAantalKeer(1) - Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock) + Set ToeleveringServiceMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringService).%New() + Do ToeleveringServiceMock.VerwachtMethodCall("HeeftToeleveringMinstensEenSpaceStep", DnaCode3.Toelevering).DanDoeNiks() + Set DocumentGeneratorMock = ##class(vhTest.Mock.APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective).%New() + Do DocumentGeneratorMock.IndienMethodCall("GenereerDocumentVoorObjective",DnaCode1.DnaCode).DanDoeNiks() + + Set ProductTypeApiMock = ##class(vhTest.Mock.DOM.PM.impl.ProductTypeAPIimpl).%New() + Do ProductTypeApiMock.IndienMethodCall("IsLegraboxProduct", $$$ElkeWaarde).DanReturn($$$True) + + Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,, ToeleveringServiceMock, DocumentGeneratorMock,,ProductTypeApiMock) + #dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse = DnaCodeService.DnaCodeAfmelden(Request) Do $$$AssertEquals(Antwoord.Header.Status,"200") Do $$$AssertEquals(Antwoord.DnaCodes.Count(),1) Do $$$AssertEquals(Antwoord.DnaCodes.GetAt(1).Locatie,$$$DummyString) Do DnaCodeRepositoryMock.Verifieer() + Do ToeleveringServiceMock.Verifieer() ]]> + + + + + + + +