Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml =================================================================== diff -u -r58239 -r58599 --- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml (.../Test.cls.xml) (revision 58239) +++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml (.../Test.cls.xml) (revision 58599) @@ -43,6 +43,11 @@ 1 + +APPS.MAG.Inventaris.impl.InventarisService +1 + + aTestName:%String @@ -188,14 +194,17 @@ Do ..PalletCodeValidatorStub.IndienMethodCall("ValideerPalletCode",..Request.OudeCode).DanReturn($$$True) Do ..PalletCodeValidatorStub.IndienMethodCall("ValideerPalletCode",..Request.NieuweCode).DanReturn($$$True) - Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(..DnaCodeRepositoryMock, ..PalletCodeValidatorStub) + Do ..InventarisServiceMock.VerwachtMethodCall("HernoemPallet",..DnaCode1.PalletCode,..DnaCode2.PalletCode).DanDoeNiks() + + Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(..DnaCodeRepositoryMock, ..PalletCodeValidatorStub, ..InventarisServiceMock) #dim Antwoord As WS.Halux.AAP.HernoemPalletResponse = DnaCodeService.HernoemPallet(..Request) Do $$$AssertEquals(Antwoord.Header.Status,"200") Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Pallet is succesvol gewijzigd") Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0) Do ..DnaCodeRepositoryMock.Verifieer() + Do ..InventarisServiceMock.Verifieer() ]]> @@ -212,14 +221,17 @@ Do ..PalletCodeValidatorStub.IndienMethodCall("ValideerPalletCode",..DnaCode1.PalletCode).DanReturn($$$True) Do ..PalletCodeValidatorStub.IndienMethodCall("ValideerPalletCode",..DnaCode2.PalletCode).DanReturn($$$True) - Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(..DnaCodeRepositoryMock, ..PalletCodeValidatorStub) + Do ..InventarisServiceMock.VerwachtMethodCall("HernoemPallet",..DnaCode1.PalletCode,..DnaCode2.PalletCode).DanDoeNiks() + + Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(..DnaCodeRepositoryMock, ..PalletCodeValidatorStub, ..InventarisServiceMock) #dim Antwoord As WS.Halux.AAP.HernoemPalletResponse = DnaCodeService.HernoemPallet(..Request) Do $$$AssertEquals(Antwoord.Header.Status,"200") Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Pallet is succesvol gewijzigd") Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0) Do ..DnaCodeRepositoryMock.Verifieer() + Do ..InventarisServiceMock.Verifieer() ]]> @@ -236,14 +248,17 @@ Do ..PalletCodeValidatorStub.IndienMethodCall("ValideerPalletCode",..DnaCode1.PalletCode).DanReturn($$$True) Do ..PalletCodeValidatorStub.IndienMethodCall("ValideerPalletCode",..DnaCode2.PalletCode).DanReturn($$$True) - Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(..DnaCodeRepositoryMock, ..PalletCodeValidatorStub) + Do ..InventarisServiceMock.VerwachtMethodCall("HernoemPallet",..DnaCode1.PalletCode,..DnaCode2.PalletCode).DanDoeNiks() + + Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(..DnaCodeRepositoryMock, ..PalletCodeValidatorStub, ..InventarisServiceMock) #dim Antwoord As WS.Halux.AAP.HernoemPalletResponse = DnaCodeService.HernoemPallet(..Request) Do $$$AssertEquals(Antwoord.Header.Status,"200") Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Pallet is succesvol gewijzigd") Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0) Do ..DnaCodeRepositoryMock.Verifieer() + Do ..InventarisServiceMock.Verifieer() ]]> @@ -259,14 +274,17 @@ Do ..PalletCodeValidatorStub.IndienMethodCall("ValideerPalletCode",..DnaCode1.PalletCode).DanReturn($$$True) Do ..PalletCodeValidatorStub.IndienMethodCall("ValideerPalletCode",..DnaCode2.PalletCode).DanReturn($$$True) - Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(..DnaCodeRepositoryMock, ..PalletCodeValidatorStub) + Do ..InventarisServiceMock.VerwachtMethodCall("HernoemPallet",..DnaCode1.PalletCode,..DnaCode2.PalletCode).DanDoeNiks() + + Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(..DnaCodeRepositoryMock, ..PalletCodeValidatorStub, ..InventarisServiceMock) #dim Antwoord As WS.Halux.AAP.HernoemPalletResponse = DnaCodeService.HernoemPallet(..Request) Do $$$AssertEquals(Antwoord.Header.Status,"200") Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Pallet is succesvol gewijzigd") Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0) Do ..DnaCodeRepositoryMock.Verifieer() + Do ..InventarisServiceMock.Verifieer() ]]>