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
+
+
+