Index: vhUnitTest/vhLib/Logger.cls.xml
===================================================================
diff -u -r3537 -r3541
--- vhUnitTest/vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 3537)
+++ vhUnitTest/vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 3541)
@@ -1,23 +1,25 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.vhLib.Logger">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/display=all","vhUnitTest.vhLib.Logger")</Description>
 <Super>vhUnitTest.TestCase</Super>
 
 <Parameter name="OudeHorolog">
+<Description>
+Begin 2015. Oud genoeg om niet te interfereren met actuele echte logging-records.</Description>
 <Type>%String</Type>
 <Default>63189</Default>
 </Parameter>
 
-<UDLText name="T">
-<Content><![CDATA[
-// Begin 2015. Oud genoeg om niet te interfereren met actuele echte logging-records.
+<Parameter name="HeelVeelDagen">
+<Description>
+Dit om van andere dan het geteste log-niveau, nog minder kans te maken dat er echte records opgekuist worden. </Description>
+<Type>%Integer</Type>
+<Default>9999</Default>
+</Parameter>
 
-]]></Content>
-</UDLText>
-
 <Method name="TestClearOldLogItemsMetGetalIndex">
-<Description>
-do ##class(vhUnitTest.Manager).RunTest("/display=all","vhUnitTest.vhLib.Logger")</Description>
 <Implementation><![CDATA[
 	#Dim MainIndex As %String = $$$Server _ "_" _ $$$NSpace
 	#Dim LoggingId As %String = MainIndex _ "||" _ ..#OudeHorolog _ "||1"
@@ -28,29 +30,46 @@
 	Do ..AssertLoggingGetalIndexAanwezig(Logging.%Id())
 
 	#Dim AantalDagenSinds20190101 = ($Piece($Horolog,",",1) - ..#OudeHorolog) - 1
-	Do ##class(vhLib.Logger).ClearOldLogItems(9999,9999,9999,AantalDagenSinds20190101)
+	Do ##class(vhLib.LogOpkuiser).%New().KuisOpOudeLogs(..#HeelVeelDagen,..#HeelVeelDagen,..#HeelVeelDagen,AantalDagenSinds20190101)
+	
 	Do $$$AssertEquals( 0, $Data(^LOG.vhLib.LoggingD(MainIndex,..#OudeHorolog,1)) )
 ]]></Implementation>
 </Method>
 
 <Method name="TestClearOldLogItemsVanAndereServer">
-<Description>
-do ##class(vhUnitTest.Manager).RunTest("/display=all","vhUnitTest.vhLib.Logger")</Description>
 <Implementation><![CDATA[
 	#Dim MainIndex As %String = "EenAndereServer" _ "_" _ $$$NSpace
 	#Dim LoggingId As %String = MainIndex _ "||" _ ..#OudeHorolog _ "||1"
 	Do ..VerwijderLoggingIndienNogAanwezigVanVorigeRun(LoggingId)
 
 	#Dim Logging As vhLib.Logging = ..MaakLogging(MainIndex, "EenAndereServer")
-	Do $$$AssertEquals( 1, $Data(^LOG.vhLib.LoggingD(MainIndex,..#OudeHorolog,1)) )
-	Do ..AssertLoggingGetalIndexAanwezig(Logging.%Id())
 
 	#Dim AantalDagenSinds20190101 = ($Piece($Horolog,",",1) - ..#OudeHorolog) - 1
-	Do ##class(vhLib.Logger).ClearOldLogItems(9999,9999,9999,AantalDagenSinds20190101)
+	Do ##class(vhLib.LogOpkuiser).%New().KuisOpOudeLogs(..#HeelVeelDagen,..#HeelVeelDagen,..#HeelVeelDagen,AantalDagenSinds20190101)
+	
 	Do $$$AssertEquals( 0, $Data(^LOG.vhLib.LoggingD(MainIndex,..#OudeHorolog,1)) )
 ]]></Implementation>
 </Method>
 
+<Method name="TestClearOldLogItemsInMeerdereRondjes">
+<Implementation><![CDATA[
+	#Dim MainIndex As %String = $$$Server _ "_" _ $$$NSpace
+	Do ..VerwijderLoggingIndienNogAanwezigVanVorigeRun(MainIndex _ "||" _ ..#OudeHorolog _ "||1")
+	Do ..VerwijderLoggingIndienNogAanwezigVanVorigeRun(MainIndex _ "||" _ ..#OudeHorolog _ "||2")
+
+	#Dim Logging As vhLib.Logging = ..MaakLogging(MainIndex, )
+	#Dim Logging2 As vhLib.Logging = ..MaakLogging(MainIndex, , 2)
+
+	#Dim AantalDagenSinds20190101 = ($Piece($Horolog,",",1) - ..#OudeHorolog) - 1
+	#Dim LogOpkuiser As vhLib.LogOpkuiser = ##class(vhLib.LogOpkuiser).%New()
+	Do LogOpkuiser.ZetBulkAantal(1)
+	Do LogOpkuiser.KuisOpOudeLogs(..#HeelVeelDagen,..#HeelVeelDagen,..#HeelVeelDagen,AantalDagenSinds20190101)
+	
+	Do $$$AssertEquals( 0, $Data(^LOG.vhLib.LoggingD(MainIndex,..#OudeHorolog,1)) )
+	Do $$$AssertEquals( 0, $Data(^LOG.vhLib.LoggingD(MainIndex,..#OudeHorolog,2)) )
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderLoggingIndienNogAanwezigVanVorigeRun">
 <FormalSpec>LoggingId:%String</FormalSpec>
 <Private>1</Private>
@@ -62,7 +81,7 @@
 </Method>
 
 <Method name="MaakLogging">
-<FormalSpec>MainIndex:%String,Server=""</FormalSpec>
+<FormalSpec>MainIndex:%String,Server:%String="",SubId:%Integer=1</FormalSpec>
 <Private>1</Private>
 <ReturnType>vhLib.Logging</ReturnType>
 <Implementation><![CDATA[
@@ -73,7 +92,7 @@
 	Set Logging.Actie = "Een actie"
 	Set Logging.Niveau = "D"
 	Set Logging.MainIndex = MainIndex
-	Set Logging.SubID = "1"
+	Set Logging.SubID = SubId
 	Set Logging.Groep = "Een groep"
 	Set Logging.Server = $Select(Server="":$$$Server, 1:Server)
 	Set Logging.Namespace = $$$NSpace