Index: vhUnitTest/Res/Perfion/Synchroniser/Vertalingen/VerwerkVertalingsGroep/Test.cls.xml =================================================================== diff -u -r62982 -r63039 --- vhUnitTest/Res/Perfion/Synchroniser/Vertalingen/VerwerkVertalingsGroep/Test.cls.xml (.../Test.cls.xml) (revision 62982) +++ vhUnitTest/Res/Perfion/Synchroniser/Vertalingen/VerwerkVertalingsGroep/Test.cls.xml (.../Test.cls.xml) (revision 63039) @@ -21,10 +21,10 @@ Do MockTaalConverter.VerwachtMethodCall("Convert","TestTaal").ExactAantalKeer(0).DanReturn("TestTaal") Do MockVertalingRepository.VerwachtMethodCall("WijzigOfMaakVertaling", "TestGroep","TestSleutel","TestType","TestTaal","TestVertaling").ExactAantalKeer(0) Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenViaGroep","TestGroep").DanReturn(VertalingenIterator) - Do MockVertalingRepository.VerwachtMethodCall("VerwijderVertalingViaSleutel","TestSleutel").ExactAantalKeer(0) + Do MockVertalingRepository.VerwachtMethodCall("VerwijderViaID","TestSleutel").ExactAantalKeer(0) Do MockPerfionRepository.VerwachtMethodCall("VerwijderViaSleutel", "TestSleutel").ExactAantalKeer(0) Do MockPerfionRepository.VerwachtMethodCall("MaakSleutelVoorPerfion",$$$ElkeWaarde).ExactAantalKeer(0) - Do MockPerfionRepository.VerwachtMethodCall("ZoekAlle").DanReturn(PerfionVertalingenIterator) + Do MockPerfionRepository.VerwachtMethodCall("ZoekAlle").ExactAantalKeer(1).DanReturn(PerfionVertalingenIterator) Do MockVertalingService.VerwachtMethodCall("GeefVertalingenMetGroep","TestGroep").DanReturn(VertalingenStream) Set Vertalingen = ##class(Res.Perfion.Synchroniser.Vertalingen).%New(MockVertalingParser,MockVertalingService,MockVertalingRepository,MockTaalConverter,MockPerfionRepository) @@ -56,7 +56,7 @@ Do MockTaalConverter.VerwachtMethodCall("Convert","TestTaal1").ExactAantalKeer(1).DanReturn("TestTaal") Do MockVertalingRepository.VerwachtMethodCall("WijzigOfMaakVertaling", "TestGroep","TestSleutel","TestType","TestTaal","TestVertaling").ExactAantalKeer(1) Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenViaGroep","TestGroep").DanReturn(VertalingenIterator) - Do MockVertalingRepository.VerwachtMethodCall("VerwijderVertalingViaSleutel","TestSleutel").ExactAantalKeer(1) + Do MockVertalingRepository.VerwachtMethodCall("VerwijderViaID","TestSleutel").ExactAantalKeer(1) Do MockPerfionRepository.VerwachtMethodCall("BestaatViaSleutel", "TestGroep||TestSleutel||||").ExactAantalKeer(1).DanReturn($$$False) Do MockPerfionRepository.VerwachtMethodCall("BestaatViaSleutel", "TestGroep||TestSleutel||TestType||TestTaal").ExactAantalKeer(1).DanReturn($$$True) Do MockPerfionRepository.VerwachtMethodCall("VerwijderViaSleutel", "TestGroep||TestSleutel||TestType||TestTaal").ExactAantalKeer(1) @@ -93,7 +93,7 @@ Do MockTaalConverter.VerwachtMethodCall("Convert","TestTaal1").ExactAantalKeer(0).DanReturn("TestTaal") Do MockVertalingRepository.VerwachtMethodCall("WijzigOfMaakVertaling", "TestGroep","TestSleutel","TestType","TestTaal","TestVertaling").ExactAantalKeer(0) Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenViaGroep","TestGroep").DanReturn(VertalingenIterator) - Do MockVertalingRepository.VerwachtMethodCall("VerwijderVertalingViaSleutel","TestSleutel").ExactAantalKeer(1) + Do MockVertalingRepository.VerwachtMethodCall("VerwijderViaID","TestSleutel").ExactAantalKeer(1) Do MockPerfionRepository.VerwachtMethodCall("BestaatViaSleutel", "TestGroep||TestSleutel||||").ExactAantalKeer(1).DanReturn($$$False) Do MockPerfionRepository.VerwachtMethodCall("BestaatViaSleutel", "TestGroep||TestSleutel||TestType||TestTaal").ExactAantalKeer(0).DanReturn($$$False) Do MockPerfionRepository.VerwachtMethodCall("VerwijderViaSleutel", "TestGroep||TestSleutel||TestType||TestTaal").ExactAantalKeer(0) @@ -131,7 +131,7 @@ Do MockTaalConverter.VerwachtMethodCall("Convert","TestTaal2").ExactAantalKeer(1).DanReturn("TestTaal") Do MockVertalingRepository.VerwachtMethodCall("WijzigOfMaakVertaling", "TestGroep","TestSleutel","TestType","TestTaal","TestVertaling").ExactAantalKeer(2) Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenViaGroep","TestGroep").DanReturn(VertalingenIterator) - Do MockVertalingRepository.VerwachtMethodCall("VerwijderVertalingViaSleutel","TestSleutel").ExactAantalKeer(1) + Do MockVertalingRepository.VerwachtMethodCall("VerwijderViaID","TestSleutel").ExactAantalKeer(1) Do MockPerfionRepository.VerwachtMethodCall("BestaatViaSleutel", "TestGroep||TestSleutel||||").ExactAantalKeer(1).DanReturn($$$False) Do MockPerfionRepository.VerwachtMethodCall("BestaatViaSleutel", "TestGroep||TestSleutel||TestType||TestTaal").ExactAantalKeer(2).DanReturn($$$True) Do MockPerfionRepository.VerwachtMethodCall("VerwijderViaSleutel", "TestGroep||TestSleutel||TestType||TestTaal").ExactAantalKeer(2) @@ -168,7 +168,7 @@ Do MockTaalConverter.VerwachtMethodCall("Convert","TestTaal1").ExactAantalKeer(2).DanReturn("TestTaal") Do MockVertalingRepository.VerwachtMethodCall("WijzigOfMaakVertaling", "TestGroep","TestSleutel","TestType","TestTaal","TestVertaling").ExactAantalKeer(2) Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenViaGroep","TestGroep").DanReturn(VertalingenIterator) - Do MockVertalingRepository.VerwachtMethodCall("VerwijderVertalingViaSleutel","TestSleutel").ExactAantalKeer(2) + Do MockVertalingRepository.VerwachtMethodCall("VerwijderViaID","TestSleutel").ExactAantalKeer(2) Do MockPerfionRepository.VerwachtMethodCall("BestaatViaSleutel", "TestGroep||TestSleutel||||").ExactAantalKeer(2).DanReturn($$$False) Do MockPerfionRepository.VerwachtMethodCall("BestaatViaSleutel", "TestGroep||TestSleutel||TestType||TestTaal").ExactAantalKeer(2).DanReturn($$$True) Do MockPerfionRepository.VerwachtMethodCall("VerwijderViaSleutel", "TestGroep||TestSleutel||TestType||TestTaal").ExactAantalKeer(2) @@ -205,7 +205,7 @@ Do MockTaalConverter.VerwachtMethodCall("Convert","TestTaal1").ExactAantalKeer(2).DanReturn("TestTaal") Do MockVertalingRepository.VerwachtMethodCall("WijzigOfMaakVertaling", "TestGroep","TestSleutel","TestType","TestTaal","TestVertaling").ExactAantalKeer(2) Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenViaGroep","TestGroep").DanReturn(VertalingenIterator) - Do MockVertalingRepository.VerwachtMethodCall("VerwijderVertalingViaSleutel","TestSleutel").ExactAantalKeer(2) + Do MockVertalingRepository.VerwachtMethodCall("VerwijderViaID","TestSleutel").ExactAantalKeer(2) Do MockPerfionRepository.VerwachtMethodCall("BestaatViaSleutel", "TestGroep||TestSleutel||||").ExactAantalKeer(2).DanReturn($$$False) Do MockPerfionRepository.VerwachtMethodCall("BestaatViaSleutel", "TestGroep||TestSleutel||TestType||TestTaal").ExactAantalKeer(2).DanReturn($$$True) Do MockPerfionRepository.VerwachtMethodCall("VerwijderViaSleutel", "TestGroep||TestSleutel||TestType||TestTaal").ExactAantalKeer(2) @@ -242,7 +242,7 @@ Do MockTaalConverter.VerwachtMethodCall("Convert","TestTaal1").ExactAantalKeer(0).DanReturn("TestTaal") Do MockVertalingRepository.VerwachtMethodCall("WijzigOfMaakVertaling", "TestGroep","TestSleutel","TestType","TestTaal","TestVertaling").ExactAantalKeer(0) Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenViaGroep","TestGroep").DanReturn(VertalingenIterator) - Do MockVertalingRepository.VerwachtMethodCall("VerwijderVertalingViaSleutel","TestSleutel").ExactAantalKeer(2) + Do MockVertalingRepository.VerwachtMethodCall("VerwijderViaID","TestSleutel").ExactAantalKeer(2) Do MockPerfionRepository.VerwachtMethodCall("BestaatViaSleutel", "TestGroep||TestSleutel||||").ExactAantalKeer(2).DanReturn($$$False) Do MockPerfionRepository.VerwachtMethodCall("BestaatViaSleutel", "TestGroep||TestSleutel||TestType||TestTaal").ExactAantalKeer(0).DanReturn($$$True) Do MockPerfionRepository.VerwachtMethodCall("VerwijderViaSleutel", "TestGroep||TestSleutel||TestType||TestTaal").ExactAantalKeer(0) Index: Res/Perfion/Synchroniser/Vertalingen.cls.xml =================================================================== diff -u -r62982 -r63039 --- Res/Perfion/Synchroniser/Vertalingen.cls.xml (.../Vertalingen.cls.xml) (revision 62982) +++ Res/Perfion/Synchroniser/Vertalingen.cls.xml (.../Vertalingen.cls.xml) (revision 63039) @@ -38,6 +38,11 @@ 1 + +TECH.Integer +1 + + VertalingenParser:Res.Perfion.Synchroniser.VertalingenParser,VertalingenService:WSimpl.PM.Perfion.Vertaling.DataService.GetData,VertalingRepository:Res.VertalingRepository,TaalConverter:Res.Perfion.Synchroniser.TaalConverter,PerfionRepository:Res.Perfion.Synchroniser.PerfionRepository,Logger:vhLib.Logger 1 @@ -51,6 +56,7 @@ Set ..TaalConverter = $$$Inject(TaalConverter, ##class(Res.Perfion.Synchroniser.TaalConverter).%New()) Set ..PerfionRepository = $$$Inject(PerfionRepository, ##class(Res.Perfion.Synchroniser.PerfionRepository).%New()) Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New()) + Quit $$$OK ]]> @@ -61,6 +67,7 @@ Do ..Logger.Info("Starten met verwerken vertalingen met groep: "_Groep) Try { + Set ..AantalCacheVertalingen = 0 Do ##class(Res.Perfion.Synchroniser.Perfion).%DeleteExtent() Set ..VertalingenStream = ..VertalingenService.GeefVertalingenMetGroep(Groep) Do ..VertalingenParser.ReadStream(..VertalingenStream) @@ -76,10 +83,32 @@ ]]> + +PerfionVertalingen:TECH.ListOfObjects +1 +%Boolean + + +