Index: vhUnitTest/vhLib/LoggingGetalIndex.cls.xml
===================================================================
diff -u -r3533 -r3556
--- vhUnitTest/vhLib/LoggingGetalIndex.cls.xml	(.../LoggingGetalIndex.cls.xml)	(revision 3533)
+++ vhUnitTest/vhLib/LoggingGetalIndex.cls.xml	(.../LoggingGetalIndex.cls.xml)	(revision 3556)
@@ -16,8 +16,8 @@
 	Do ##class(vhLib.LoggingGetalIndex).BewaarIndex(Logging,1000)
 	Do ..AssertLoggingGetalIndexAanwezig(LoggingId)
 
+	Do ##class(vhLib.LoggingGetalIndex).VerwijderVoorLogEntryId( Logging.%Id() )
 	Do Logging.DeleteLogging( Logging.%Id() )
-	Do ..AssertLoggingGetalIndexAfwezig(LoggingId)
 ]]></Implementation>
 </Method>
 
@@ -94,6 +94,27 @@
 	Quit GevondenGetallen
 ]]></Implementation>
 </Method>
+
+<Method name="TestVerwijderVoorOnbestaandeLogEntryIds">
+<Implementation><![CDATA[
+	// Logging met index die beiden moeten blijven bestaan.
+	#Dim LoggingId As %String = "Een MainIndex||65014||1"
+	Do ..VerwijderLoggingIndienNogAanwezigVanVorigeRun(LoggingId)
+	Do ..MaakLogging()
+	
+	// Index zonder eigenlijk logging-object
+	#Dim GetalIndex As vhLib.LoggingGetalIndex = ##class(vhLib.LoggingGetalIndex).%New()
+	Set GetalIndex.Getal = 1000
+	#Dim OnbestaandeLoggingId As %String = "OnbestaandeMainIndex||65014||99999"
+	Do GetalIndex.LoggingSetObjectId(OnbestaandeLoggingId) // Dit zou een onbestaande ID moeten zijn.
+	Do GetalIndex.Save()
+	
+	Do ##class(vhLib.LoggingGetalIndex).VerwijderVoorOnbestaandeLogEntryIds()
+	
+	Do ..AssertLoggingGetalIndexAfwezig(OnbestaandeLoggingId)
+	Do ..AssertLoggingGetalIndexAanwezig(LoggingId)
+]]></Implementation>
+</Method>
 </Class>