Index: vhUnitTest/Res/Perfion/Synchroniser/PerfionRepository/Test.cls.xml =================================================================== diff -u -r62936 -r62982 --- vhUnitTest/Res/Perfion/Synchroniser/PerfionRepository/Test.cls.xml (.../Test.cls.xml) (revision 62936) +++ vhUnitTest/Res/Perfion/Synchroniser/PerfionRepository/Test.cls.xml (.../Test.cls.xml) (revision 62982) @@ -5,30 +5,51 @@ Index: Res/Perfion/Synchroniser/PerfionRepository.cls.xml =================================================================== diff -u -r62940 -r62982 --- Res/Perfion/Synchroniser/PerfionRepository.cls.xml (.../PerfionRepository.cls.xml) (revision 62940) +++ Res/Perfion/Synchroniser/PerfionRepository.cls.xml (.../PerfionRepository.cls.xml) (revision 62982) @@ -24,18 +24,18 @@ Sleutel:%String TECH.Persistent Sleutel:%String %Boolean - Index: vhUnitTest/Res/Perfion/Synchroniser/Vertalingen/VerwerkVertalingsGroep/Test.cls.xml =================================================================== diff -u -r62933 -r62982 --- vhUnitTest/Res/Perfion/Synchroniser/Vertalingen/VerwerkVertalingsGroep/Test.cls.xml (.../Test.cls.xml) (revision 62933) +++ vhUnitTest/Res/Perfion/Synchroniser/Vertalingen/VerwerkVertalingsGroep/Test.cls.xml (.../Test.cls.xml) (revision 62982) @@ -20,15 +20,15 @@ Do MockVertalingParser.VerwachtMethodCall("ReadStream", $$$ElkeWaarde).DanDoeNiks() Do MockTaalConverter.VerwachtMethodCall("Convert","TestTaal").ExactAantalKeer(0).DanReturn("TestTaal") Do MockVertalingRepository.VerwachtMethodCall("WijzigOfMaakVertaling", "TestGroep","TestSleutel","TestType","TestTaal","TestVertaling").ExactAantalKeer(0) - Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenViaGroep","Groep").DanReturn(VertalingenIterator) + Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenViaGroep","TestGroep").DanReturn(VertalingenIterator) Do MockVertalingRepository.VerwachtMethodCall("VerwijderVertalingViaSleutel","TestSleutel").ExactAantalKeer(0) Do MockPerfionRepository.VerwachtMethodCall("VerwijderViaSleutel", "TestSleutel").ExactAantalKeer(0) Do MockPerfionRepository.VerwachtMethodCall("MaakSleutelVoorPerfion",$$$ElkeWaarde).ExactAantalKeer(0) Do MockPerfionRepository.VerwachtMethodCall("ZoekAlle").DanReturn(PerfionVertalingenIterator) - Do MockVertalingService.VerwachtMethodCall("GeefVertalingenMetGroep","Groep").DanReturn(VertalingenStream) + Do MockVertalingService.VerwachtMethodCall("GeefVertalingenMetGroep","TestGroep").DanReturn(VertalingenStream) Set Vertalingen = ##class(Res.Perfion.Synchroniser.Vertalingen).%New(MockVertalingParser,MockVertalingService,MockVertalingRepository,MockTaalConverter,MockPerfionRepository) - Do Vertalingen.VerwerkVertalingsGroep("Groep") + Do Vertalingen.VerwerkVertalingsGroep("TestGroep") Do MockVertalingService.Verifieer() Do MockVertalingParser.Verifieer() @@ -55,17 +55,17 @@ Do MockVertalingParser.VerwachtMethodCall("ReadStream", $$$ElkeWaarde).DanDoeNiks() Do MockTaalConverter.VerwachtMethodCall("Convert","TestTaal1").ExactAantalKeer(1).DanReturn("TestTaal") Do MockVertalingRepository.VerwachtMethodCall("WijzigOfMaakVertaling", "TestGroep","TestSleutel","TestType","TestTaal","TestVertaling").ExactAantalKeer(1) - Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenViaGroep","Groep").DanReturn(VertalingenIterator) + Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenViaGroep","TestGroep").DanReturn(VertalingenIterator) Do MockVertalingRepository.VerwachtMethodCall("VerwijderVertalingViaSleutel","TestSleutel").ExactAantalKeer(1) - Do MockPerfionRepository.VerwachtMethodCall("BestaatViaSleutel", "TestSleutel").DanReturn($$$False) - Do MockPerfionRepository.VerwachtMethodCall("BestaatViaID", "TestSleutel").DanReturn($$$True) - Do MockPerfionRepository.VerwachtMethodCall("VerwijderViaSleutel", "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) Do MockPerfionRepository.VerwachtMethodCall("MaakSleutelVoorPerfion",$$$ElkeWaarde).ExactAantalKeer(1) Do MockPerfionRepository.VerwachtMethodCall("ZoekAlle").DanReturn(PerfionVertalingenIterator) - Do MockVertalingService.VerwachtMethodCall("GeefVertalingenMetGroep","Groep").DanReturn(VertalingenStream) + Do MockVertalingService.VerwachtMethodCall("GeefVertalingenMetGroep","TestGroep").DanReturn(VertalingenStream) Set Vertalingen = ##class(Res.Perfion.Synchroniser.Vertalingen).%New(MockVertalingParser,MockVertalingService,MockVertalingRepository,MockTaalConverter,MockPerfionRepository) - Do Vertalingen.VerwerkVertalingsGroep("Groep") + Do Vertalingen.VerwerkVertalingsGroep("TestGroep") Do MockVertalingService.Verifieer() Do MockVertalingParser.Verifieer() @@ -92,17 +92,17 @@ Do MockVertalingParser.VerwachtMethodCall("ReadStream", $$$ElkeWaarde).DanDoeNiks() Do MockTaalConverter.VerwachtMethodCall("Convert","TestTaal1").ExactAantalKeer(0).DanReturn("TestTaal") Do MockVertalingRepository.VerwachtMethodCall("WijzigOfMaakVertaling", "TestGroep","TestSleutel","TestType","TestTaal","TestVertaling").ExactAantalKeer(0) - Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenViaGroep","Groep").DanReturn(VertalingenIterator) + Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenViaGroep","TestGroep").DanReturn(VertalingenIterator) Do MockVertalingRepository.VerwachtMethodCall("VerwijderVertalingViaSleutel","TestSleutel").ExactAantalKeer(1) - Do MockPerfionRepository.VerwachtMethodCall("BestaatViaSleutel", "TestSleutel").DanReturn($$$False) - Do MockPerfionRepository.VerwachtMethodCall("BestaatViaID", "TestSleutel").DanReturn($$$True) - Do MockPerfionRepository.VerwachtMethodCall("VerwijderViaSleutel", "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) Do MockPerfionRepository.VerwachtMethodCall("MaakSleutelVoorPerfion",$$$ElkeWaarde).ExactAantalKeer(1) Do MockPerfionRepository.VerwachtMethodCall("ZoekAlle").DanReturn(PerfionVertalingenIterator) - Do MockVertalingService.VerwachtMethodCall("GeefVertalingenMetGroep","Groep").DanReturn(VertalingenStream) + Do MockVertalingService.VerwachtMethodCall("GeefVertalingenMetGroep","TestGroep").DanReturn(VertalingenStream) Set Vertalingen = ##class(Res.Perfion.Synchroniser.Vertalingen).%New(MockVertalingParser,MockVertalingService,MockVertalingRepository,MockTaalConverter,MockPerfionRepository) - Do Vertalingen.VerwerkVertalingsGroep("Groep") + Do Vertalingen.VerwerkVertalingsGroep("TestGroep") Do MockVertalingService.Verifieer() Do MockVertalingParser.Verifieer() @@ -130,17 +130,17 @@ Do MockTaalConverter.VerwachtMethodCall("Convert","TestTaal1").ExactAantalKeer(1).DanReturn("TestTaal") Do MockTaalConverter.VerwachtMethodCall("Convert","TestTaal2").ExactAantalKeer(1).DanReturn("TestTaal") Do MockVertalingRepository.VerwachtMethodCall("WijzigOfMaakVertaling", "TestGroep","TestSleutel","TestType","TestTaal","TestVertaling").ExactAantalKeer(2) - Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenViaGroep","Groep").DanReturn(VertalingenIterator) + Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenViaGroep","TestGroep").DanReturn(VertalingenIterator) Do MockVertalingRepository.VerwachtMethodCall("VerwijderVertalingViaSleutel","TestSleutel").ExactAantalKeer(1) - Do MockPerfionRepository.VerwachtMethodCall("BestaatViaSleutel", "TestSleutel").DanReturn($$$False) - Do MockPerfionRepository.VerwachtMethodCall("BestaatViaID", "TestSleutel").DanReturn($$$True) - Do MockPerfionRepository.VerwachtMethodCall("VerwijderViaSleutel", "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) Do MockPerfionRepository.VerwachtMethodCall("MaakSleutelVoorPerfion",$$$ElkeWaarde).ExactAantalKeer(1) Do MockPerfionRepository.VerwachtMethodCall("ZoekAlle").DanReturn(PerfionVertalingenIterator) - Do MockVertalingService.VerwachtMethodCall("GeefVertalingenMetGroep","Groep").DanReturn(VertalingenStream) + Do MockVertalingService.VerwachtMethodCall("GeefVertalingenMetGroep","TestGroep").DanReturn(VertalingenStream) Set Vertalingen = ##class(Res.Perfion.Synchroniser.Vertalingen).%New(MockVertalingParser,MockVertalingService,MockVertalingRepository,MockTaalConverter,MockPerfionRepository) - Do Vertalingen.VerwerkVertalingsGroep("Groep") + Do Vertalingen.VerwerkVertalingsGroep("TestGroep") Do MockVertalingService.Verifieer() Do MockVertalingParser.Verifieer() @@ -167,17 +167,17 @@ Do MockVertalingParser.VerwachtMethodCall("ReadStream", $$$ElkeWaarde).DanDoeNiks() Do MockTaalConverter.VerwachtMethodCall("Convert","TestTaal1").ExactAantalKeer(2).DanReturn("TestTaal") Do MockVertalingRepository.VerwachtMethodCall("WijzigOfMaakVertaling", "TestGroep","TestSleutel","TestType","TestTaal","TestVertaling").ExactAantalKeer(2) - Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenViaGroep","Groep").DanReturn(VertalingenIterator) + Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenViaGroep","TestGroep").DanReturn(VertalingenIterator) Do MockVertalingRepository.VerwachtMethodCall("VerwijderVertalingViaSleutel","TestSleutel").ExactAantalKeer(2) - Do MockPerfionRepository.VerwachtMethodCall("BestaatViaSleutel", "TestSleutel").DanReturn($$$False) - Do MockPerfionRepository.VerwachtMethodCall("BestaatViaID", "TestSleutel").DanReturn($$$True) - Do MockPerfionRepository.VerwachtMethodCall("VerwijderViaSleutel", "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) Do MockPerfionRepository.VerwachtMethodCall("MaakSleutelVoorPerfion",$$$ElkeWaarde).ExactAantalKeer(2) Do MockPerfionRepository.VerwachtMethodCall("ZoekAlle").DanReturn(PerfionVertalingenIterator) - Do MockVertalingService.VerwachtMethodCall("GeefVertalingenMetGroep","Groep").DanReturn(VertalingenStream) + Do MockVertalingService.VerwachtMethodCall("GeefVertalingenMetGroep","TestGroep").DanReturn(VertalingenStream) Set Vertalingen = ##class(Res.Perfion.Synchroniser.Vertalingen).%New(MockVertalingParser,MockVertalingService,MockVertalingRepository,MockTaalConverter,MockPerfionRepository) - Do Vertalingen.VerwerkVertalingsGroep("Groep") + Do Vertalingen.VerwerkVertalingsGroep("TestGroep") Do MockVertalingService.Verifieer() Do MockVertalingParser.Verifieer() @@ -204,17 +204,17 @@ Do MockVertalingParser.VerwachtMethodCall("ReadStream", $$$ElkeWaarde).DanDoeNiks() Do MockTaalConverter.VerwachtMethodCall("Convert","TestTaal1").ExactAantalKeer(2).DanReturn("TestTaal") Do MockVertalingRepository.VerwachtMethodCall("WijzigOfMaakVertaling", "TestGroep","TestSleutel","TestType","TestTaal","TestVertaling").ExactAantalKeer(2) - Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenViaGroep","Groep").DanReturn(VertalingenIterator) + Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenViaGroep","TestGroep").DanReturn(VertalingenIterator) Do MockVertalingRepository.VerwachtMethodCall("VerwijderVertalingViaSleutel","TestSleutel").ExactAantalKeer(2) - Do MockPerfionRepository.VerwachtMethodCall("BestaatViaSleutel", "TestSleutel").DanReturn($$$False) - Do MockPerfionRepository.VerwachtMethodCall("BestaatViaID", "TestSleutel").DanReturn($$$True) - Do MockPerfionRepository.VerwachtMethodCall("VerwijderViaSleutel", "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) Do MockPerfionRepository.VerwachtMethodCall("MaakSleutelVoorPerfion",$$$ElkeWaarde).ExactAantalKeer(2) Do MockPerfionRepository.VerwachtMethodCall("ZoekAlle").DanReturn(PerfionVertalingenIterator) - Do MockVertalingService.VerwachtMethodCall("GeefVertalingenMetGroep","Groep").DanReturn(VertalingenStream) + Do MockVertalingService.VerwachtMethodCall("GeefVertalingenMetGroep","TestGroep").DanReturn(VertalingenStream) Set Vertalingen = ##class(Res.Perfion.Synchroniser.Vertalingen).%New(MockVertalingParser,MockVertalingService,MockVertalingRepository,MockTaalConverter,MockPerfionRepository) - Do Vertalingen.VerwerkVertalingsGroep("Groep") + Do Vertalingen.VerwerkVertalingsGroep("TestGroep") Do MockVertalingService.Verifieer() Do MockVertalingParser.Verifieer() @@ -241,17 +241,17 @@ Do MockVertalingParser.VerwachtMethodCall("ReadStream", $$$ElkeWaarde).DanDoeNiks() Do MockTaalConverter.VerwachtMethodCall("Convert","TestTaal1").ExactAantalKeer(0).DanReturn("TestTaal") Do MockVertalingRepository.VerwachtMethodCall("WijzigOfMaakVertaling", "TestGroep","TestSleutel","TestType","TestTaal","TestVertaling").ExactAantalKeer(0) - Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenViaGroep","Groep").DanReturn(VertalingenIterator) + Do MockVertalingRepository.VerwachtMethodCall("GeefAlleVertalingenViaGroep","TestGroep").DanReturn(VertalingenIterator) Do MockVertalingRepository.VerwachtMethodCall("VerwijderVertalingViaSleutel","TestSleutel").ExactAantalKeer(2) - Do MockPerfionRepository.VerwachtMethodCall("BestaatViaSleutel", "TestSleutel").DanReturn($$$False) - Do MockPerfionRepository.VerwachtMethodCall("BestaatViaID", "TestSleutel").DanReturn($$$True) - Do MockPerfionRepository.VerwachtMethodCall("VerwijderViaSleutel", "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) Do MockPerfionRepository.VerwachtMethodCall("MaakSleutelVoorPerfion",$$$ElkeWaarde).ExactAantalKeer(2) Do MockPerfionRepository.VerwachtMethodCall("ZoekAlle").DanReturn(PerfionVertalingenIterator) - Do MockVertalingService.VerwachtMethodCall("GeefVertalingenMetGroep","Groep").DanReturn(VertalingenStream) + Do MockVertalingService.VerwachtMethodCall("GeefVertalingenMetGroep","TestGroep").DanReturn(VertalingenStream) Set Vertalingen = ##class(Res.Perfion.Synchroniser.Vertalingen).%New(MockVertalingParser,MockVertalingService,MockVertalingRepository,MockTaalConverter,MockPerfionRepository) - Do Vertalingen.VerwerkVertalingsGroep("Groep") + Do Vertalingen.VerwerkVertalingsGroep("TestGroep") Do MockVertalingService.Verifieer() Do MockVertalingParser.Verifieer() Index: vhUnitTest/Res/Perfion/Synchroniser/PerfionRepository/spy.cls.xml =================================================================== diff -u --- vhUnitTest/Res/Perfion/Synchroniser/PerfionRepository/spy.cls.xml (revision 0) +++ vhUnitTest/Res/Perfion/Synchroniser/PerfionRepository/spy.cls.xml (revision 62982) @@ -0,0 +1,25 @@ + + + + + +Res.Perfion.Synchroniser.PerfionRepository + + +%String + + + +%List + + + +Filter:%String,Params:%List +1 + + + + Index: Res/Perfion/Synchroniser/Perfion.cls.xml =================================================================== diff -u -r61826 -r62982 --- Res/Perfion/Synchroniser/Perfion.cls.xml (.../Perfion.cls.xml) (revision 61826) +++ Res/Perfion/Synchroniser/Perfion.cls.xml (.../Perfion.cls.xml) (revision 62982) @@ -8,11 +8,8 @@ %String - -1 -1 + Sleutel -1 @@ -23,11 +20,12 @@ ^Res.Perfion.Synchr4C9E.PerfionI ^Res.Perfion.Synchr4C9E.PerfionS -listnode - %%CLASSNAME + +Sleutel + Index: Res/Perfion/Synchroniser/Vertalingen.cls.xml =================================================================== diff -u -r62933 -r62982 --- Res/Perfion/Synchroniser/Vertalingen.cls.xml (.../Vertalingen.cls.xml) (revision 62933) +++ Res/Perfion/Synchroniser/Vertalingen.cls.xml (.../Vertalingen.cls.xml) (revision 62982) @@ -84,7 +84,6 @@ Set ..VertalingenStream = ..VertalingenService.GeefVertalingen() Do ..VertalingenParser.ReadStream(..VertalingenStream) #dim PerfionVertalingen As list Of Res.Perfion.Synchroniser.VertalingDTO = ..VertalingenParser.GeefVertalingenLijst() - Do ##class(Tools.Wlip).%New(252).ListOfObjectsToText(PerfionVertalingen) Do ..VulPerfionTabel() Do ..VoegToeVertalingen(PerfionVertalingen) Do ..SynchroniseerVertalingen() @@ -101,8 +100,9 @@ While (VertalingenIterator.HasNext()) { #dim Vertaling As Res.Vertaling = VertalingenIterator.Next() - If ($$$Not(..PerfionRepository.BestaatViaSleutel(Vertaling.Intern))) { - Do ..PerfionRepository.MaakSleutelVoorPerfion(Vertaling.Intern) + #dim Sleutel As %String = Groep_"||"_Vertaling.Intern_"||"_Vertaling.Type.ItemID_"||"_Vertaling.Taal.ItemID + If ($$$Not(..PerfionRepository.BestaatViaSleutel(Sleutel))) { + Do ..PerfionRepository.MaakSleutelVoorPerfion(Sleutel) } } ]]> @@ -128,15 +128,17 @@ Set Groep = VertalingObject.VertalingsGroep Set Type = VertalingObject.VertalingsType Set Sleutel = VertalingObject.Sleutel - If (..PerfionRepository.BestaatViaID(Sleutel)) { - Do ..PerfionRepository.VerwijderViaSleutel(Sleutel) - } + #dim VertalingenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(VertalingObject.Vertalingen) While (VertalingenIterator.HasNext()) { Set Vertaling = VertalingenIterator.Next() Set Taal = ..TaalConverter.Convert(VertalingenIterator.Key()) + #dim ID As %String = Groep_"||"_Sleutel_"||"_Type_"||"_Taal + If (..PerfionRepository.BestaatViaSleutel(ID)) { + Do ..PerfionRepository.VerwijderViaSleutel(ID) + } Do ..VertalingRepository.WijzigOfMaakVertaling(Groep,Sleutel,Type,Taal,Vertaling) } }