Index: vhUnitTest/vhLib/LogOpkuiser.cls.xml
===================================================================
diff -u
--- vhUnitTest/vhLib/LogOpkuiser.cls.xml	(revision 0)
+++ vhUnitTest/vhLib/LogOpkuiser.cls.xml	(revision 3544)
@@ -0,0 +1,139 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.vhLib.LogOpkuiser">
+<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>
+
+<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>
+
+<Method name="TestClearOldLogItemsMetGetalIndex">
+<Implementation><![CDATA[
+	#Dim MainIndex As %String = $$$Server _ "_" _ $$$NSpace
+	#Dim LoggingId As %String = MainIndex _ "||" _ ..#OudeHorolog _ "||1"
+	Do ..VerwijderLoggingIndienNogAanwezigVanVorigeRun(LoggingId)
+
+	#Dim Logging As vhLib.Logging = ..MaakLogging(MainIndex)
+	Do $$$AssertEquals( 1, $Data(^LOG.vhLib.LoggingD(MainIndex,..#OudeHorolog,1)) )
+	Do ..AssertLoggingGetalIndexAanwezig(Logging.%Id())
+
+	#Dim AantalDagenSinds20190101 = ($Piece($Horolog,",",1) - ..#OudeHorolog) - 1
+	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">
+<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")
+
+	#Dim AantalDagenSinds20190101 = ($Piece($Horolog,",",1) - ..#OudeHorolog) - 1
+	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>
+<Implementation><![CDATA[
+	If ##class(vhLib.Logging).%ExistsId(LoggingId) {
+		Do ##class(vhLib.Logging).DeleteId(LoggingId)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakLogging">
+<FormalSpec>MainIndex:%String,Server:%String="",SubId:%Integer=1</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhLib.Logging</ReturnType>
+<Implementation><![CDATA[
+	#Dim Logging As vhLib.Logging = ##class(vhLib.Logging).%New()
+	Set Logging.Datum = ..#OudeHorolog
+	set Logging.Tijd = 0 // Middernacht.
+	Set Logging.Detail = "Een logging detail met 1000 of zelfs 2000 getallen."
+	Set Logging.Actie = "Een actie"
+	Set Logging.Niveau = "D"
+	Set Logging.MainIndex = MainIndex
+	Set Logging.SubID = SubId
+	Set Logging.Groep = "Een groep"
+	Set Logging.Server = $Select(Server="":$$$Server, 1:Server)
+	Set Logging.Namespace = $$$NSpace
+	Do Logging.Save()
+	Quit Logging
+]]></Implementation>
+</Method>
+
+<Method name="AssertLoggingGetalIndexAanwezig">
+<FormalSpec>LoggingId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Quit:$$$Not( $$$AssertEquals( 1, $Data(^LOG.vhLib.LoggingGetalIndexD("1000", LoggingId))))
+	Quit:$$$Not( $$$AssertEquals( "", ^LOG.vhLib.LoggingGetalIndexD("1000", LoggingId) ) )
+	
+	Quit:$$$Not( $$$AssertEquals( 1, $Data(^LOG.vhLib.LoggingGetalIndexD("2000", LoggingId)) ))
+	Quit:$$$Not( $$$AssertEquals( "", ^LOG.vhLib.LoggingGetalIndexD("2000", LoggingId) ))
+	
+	
+	#Dim GevondenGetallen As %ListOfDataTypes = ..ZoekGetallenVoorLoggingViaSql(LoggingId)
+	Quit:$$$Not( $$$AssertEquals( 2, GevondenGetallen.Count() ))
+	Quit:$$$Not( $$$AssertTrue( GevondenGetallen.Find("1000") ))
+	Quit:$$$Not( $$$AssertTrue( GevondenGetallen.Find("2000") ))
+]]></Implementation>
+</Method>
+
+<Method name="ZoekGetallenVoorLoggingViaSql">
+<FormalSpec>LoggingId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim GevondenGetallen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Set Query = ##class(TECH.DynamicQuery).%New("SELECT %NOLOCK ID FROM vhLib.LoggingGetalIndex WHERE Logging=?" ,$ListBuild(LoggingId))
+	#dim LoggingQueryResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(Query)
+	While LoggingQueryResultSet.Next() {
+		Do GevondenGetallen.Insert( ##class(vhLib.LoggingGetalIndex).%OpenId(LoggingQueryResultSet.GetDataByName("ID")).Getal )
+	}
+	Do LoggingQueryResultSet.Close()
+	Quit GevondenGetallen
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 3544 refers to a dead (removed) revision in file `vhUnitTest/vhLib/Logger.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?