Index: vhUnitTest/TECH/Lock/MultiGlobalLocker/Test.cls.xml
===================================================================
diff -u -r3361 -r3397
--- vhUnitTest/TECH/Lock/MultiGlobalLocker/Test.cls.xml	(.../Test.cls.xml)	(revision 3361)
+++ vhUnitTest/TECH/Lock/MultiGlobalLocker/Test.cls.xml	(.../Test.cls.xml)	(revision 3397)
@@ -153,8 +153,7 @@
 	#dim reference as %Numeric
 	for reference=1:1:200{
 		do locker.VoegToeGlobalRef("^Testglobal("_reference_")")	
-	}	
-
+	}
 	Do $$$AssertFalse(locker.Lock())
 
 
@@ -164,6 +163,102 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test lockcmd is 999 lang en iterator hasnext is false">
+<Implementation><![CDATA[
+	#dim locker as TECH.Lock.MultiGlobalLocker = ##class(TECH.Lock.MultiGlobalLocker).%New()
+	#dim reference as %Numeric
+	for reference=1:1:19{
+		#dim LongGlobalRef as %String = "^unittestdummyglobal("_ ##class(TECH.StringUtils).AlignRight(reference,"0",2) _ ##class(TECH.StringUtils).Filler(26,"1")_")"
+		do locker.VoegToeGlobalRef(LongGlobalRef)
+	}
+	; 975 , volgende ref zet lengte op 999, en is de laatste
+	do locker.VoegToeGlobalRef("^unittestdummyglobal(1)")
+	do $$$AssertEquals(locker.Lock(),1)
+	Do locker.Unlock()
+]]></Implementation>
+</Method>
+
+<Method name="Test lockcmd is 999 lang en iterator hasnext is true">
+<Implementation><![CDATA[
+	#dim locker as TECH.Lock.MultiGlobalLocker = ##class(TECH.Lock.MultiGlobalLocker).%New()
+	#dim reference as %Numeric
+	for reference=1:1:19{
+		#dim LongGlobalRef as %String = "^unittestdummyglobal("_ ##class(TECH.StringUtils).AlignRight(reference,"0",2) _ ##class(TECH.StringUtils).Filler(26,"1")_")"
+		do locker.VoegToeGlobalRef(LongGlobalRef)
+	}
+	; 975 , volgende ref zet lengte op 999, en daarna nog één
+	do locker.VoegToeGlobalRef("^unittestdummyglobal(1)")
+	do locker.VoegToeGlobalRef("^unittestdummyglobal(2)")
+	
+	do $$$AssertEquals(locker.Lock(),1)
+	Do locker.Unlock()
+]]></Implementation>
+</Method>
+
+<Method name="Test lockcmd = 1000 lang en iterator hasnext is false">
+<Implementation><![CDATA[
+	#dim locker as TECH.Lock.MultiGlobalLocker = ##class(TECH.Lock.MultiGlobalLocker).%New()
+	#dim reference as %Numeric
+	for reference=1:1:19{
+		#dim LongGlobalRef as %String = "^unittestdummyglobal("_ ##class(TECH.StringUtils).AlignRight(reference,"0",2) _ ##class(TECH.StringUtils).Filler(26,"1")_")"
+		do locker.VoegToeGlobalRef(LongGlobalRef)
+	}
+	; 975 , volgende ref zet lengte op 1000, en is de laatste
+	do locker.VoegToeGlobalRef("^unittestdummyglobal(12)")
+	do $$$AssertEquals(locker.Lock(),1)
+	Do locker.Unlock()
+]]></Implementation>
+</Method>
+
+<Method name="Test lockcmd = 1000 lang en iterator hasnext is true">
+<Implementation><![CDATA[
+	#dim locker as TECH.Lock.MultiGlobalLocker = ##class(TECH.Lock.MultiGlobalLocker).%New()
+	#dim reference as %Numeric
+	for reference=1:1:19{
+		#dim LongGlobalRef as %String = "^unittestdummyglobal("_ ##class(TECH.StringUtils).AlignRight(reference,"0",2) _ ##class(TECH.StringUtils).Filler(26,"1")_")"
+		do locker.VoegToeGlobalRef(LongGlobalRef)
+	}
+	; 975 , volgende ref zet lengte op 1000, en is niet de laatste
+	do locker.VoegToeGlobalRef("^unittestdummyglobal(12)")
+	do locker.VoegToeGlobalRef("^unittestdummyglobal(123)")
+	do $$$AssertEquals(locker.Lock(),1)
+	Do locker.Unlock()
+]]></Implementation>
+</Method>
+
+<Method name="Test lockcmd potentieel = 1001 lang en iterator hasnext is false">
+<Implementation><![CDATA[
+	#dim locker as TECH.Lock.MultiGlobalLocker = ##class(TECH.Lock.MultiGlobalLocker).%New()
+	#dim reference as %Numeric
+	for reference=1:1:19{
+		#dim LongGlobalRef as %String = "^unittestdummyglobal("_ ##class(TECH.StringUtils).AlignRight(reference,"0",2) _ ##class(TECH.StringUtils).Filler(26,"1")_")"
+		do locker.VoegToeGlobalRef(LongGlobalRef)
+	}
+	; 975 , volgende ref zou lengte op 1000 zetten, en is de laatste
+	do locker.VoegToeGlobalRef("^unittestdummyglobal(123)")
+
+	do $$$AssertEquals(locker.Lock(),1)
+	Do locker.Unlock()
+]]></Implementation>
+</Method>
+
+<Method name="Test lockcmd potentieel = 1001 lang en iterator hasnext is true">
+<Implementation><![CDATA[
+	#dim locker as TECH.Lock.MultiGlobalLocker = ##class(TECH.Lock.MultiGlobalLocker).%New()
+	#dim reference as %Numeric
+	for reference=1:1:19{
+		#dim LongGlobalRef as %String = "^unittestdummyglobal("_ ##class(TECH.StringUtils).AlignRight(reference,"0",2) _ ##class(TECH.StringUtils).Filler(26,"1")_")"
+		do locker.VoegToeGlobalRef(LongGlobalRef)
+	}
+	; 975 , volgende ref zou lengte op 1000 zetten, en is de laatste
+	do locker.VoegToeGlobalRef("^unittestdummyglobal(123)")
+	do locker.VoegToeGlobalRef("^unittestdummyglobal(1234)")
+
+	do $$$AssertEquals(locker.Lock(),1)
+	Do locker.Unlock()
+]]></Implementation>
+</Method>
+
 <Method name="IsGelockedDoorMij">
 <FormalSpec>globalref:%String</FormalSpec>
 <ReturnType>%Integer</ReturnType>