Index: vhUnitTest/TECH/Lock/MultiGlobalLocker/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Lock/MultiGlobalLocker/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Lock/MultiGlobalLocker/Test.cls.xml	(revision 3319)
@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Lock.MultiGlobalLocker.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="globalref">
+<Type>%String</Type>
+<Default>^unittestdummyglobal(1,2,3)</Default>
+</Parameter>
+
+<Parameter name="globalref2">
+<Type>%String</Type>
+<Default>^unittestdummyglobal2(1,2,3)</Default>
+</Parameter>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	LOCK -@(..#globalref)#"I"
+	LOCK -@(..#globalref2)#"I"
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	LOCK -@(..#globalref)#"I"
+	LOCK -@(..#globalref2)#"I"
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="Test Lock locked de globalrefs uit de toegevoegde lijst referenties en unlocked ze erna">
+<Implementation><![CDATA[
+	#dim locker as TECH.Lock.MultiGlobalLocker = ##class(TECH.Lock.MultiGlobalLocker).%New()
+	do locker.VoegToeGlobalRef(..#globalref)
+	do locker.VoegToeGlobalRef(..#globalref2)
+	
+	do $$$AssertEquals(locker.Lock(),1)
+
+	Do $$$AssertTrue(..IsGelockedDoorMij(..#globalref))
+	Do $$$AssertTrue(..IsGelockedDoorMij(..#globalref2))
+
+	do locker.Unlock()
+	
+	Do $$$AssertFalse(..IsGelockedDoorMij(..#globalref))
+	Do $$$AssertFalse(..IsGelockedDoorMij(..#globalref2))
+]]></Implementation>
+</Method>
+
+<Method name="Test ClearGlobalRefs gooit exceptie als er gelocked is">
+<Implementation><![CDATA[
+	#dim locker as TECH.Lock.MultiGlobalLocker = ##class(TECH.Lock.MultiGlobalLocker).%New()
+	do locker.VoegToeGlobalRef(..#globalref)
+	do $$$AssertEquals(locker.Lock(),1)
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Lijst locks kan niet leeg gemaakt worden terwijl er gelocked is")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.GeneralErrorException).%ClassName(1),Substrings))
+	do locker.ClearGlobalRefs()
+	
+	;open lock cleared by on AfterOneTest
+]]></Implementation>
+</Method>
+
+<Method name="Test ClearGlobalRefs maakt dat er niets te locken is">
+<Implementation><![CDATA[
+	#dim locker as TECH.Lock.MultiGlobalLocker = ##class(TECH.Lock.MultiGlobalLocker).%New()
+	do locker.VoegToeGlobalRef(..#globalref)
+	do locker.ClearGlobalRefs()
+	do $$$AssertEquals(locker.Lock(),0)
+]]></Implementation>
+</Method>
+
+<Method name="Test VoegToeGlobalRef gooit exceptie als er gelocked is">
+<Implementation><![CDATA[
+	#dim locker as TECH.Lock.MultiGlobalLocker = ##class(TECH.Lock.MultiGlobalLocker).%New()
+	do locker.VoegToeGlobalRef(..#globalref)
+	do $$$AssertEquals(locker.Lock(),1)
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Nieuwe lock gevraagd terwijl er reeds gelocked is")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.GeneralErrorException).%ClassName(1),Substrings))
+	
+	do locker.VoegToeGlobalRef(..#globalref2)
+	
+	; OnAfterOneTest kuist openstaande lock op.
+]]></Implementation>
+</Method>
+
+<Method name="Test Lock locked maar 1 keer">
+<Implementation><![CDATA[
+	#dim locker as TECH.Lock.MultiGlobalLocker = ##class(TECH.Lock.MultiGlobalLocker).%New()
+	do locker.VoegToeGlobalRef(..#globalref)
+	do locker.Lock()
+	do locker.Lock()
+	; na 1 maal unlocken moet de lock weg zijn
+	LOCK -@(..#globalref)
+
+	Do $$$AssertFalse(..IsGelockedDoorMij(..#globalref))
+]]></Implementation>
+</Method>
+
+<Method name="aTest Lock geeft 0 terug als er één van de globalrefs door een ander proces is gelocked">
+<Implementation><![CDATA[	;geen flauw hoe dit te testen is. andere jobke opstarten die lock neemt?
+]]></Implementation>
+</Method>
+
+<Method name="Test Lock geeft 0 terug indien niets te locken">
+<Implementation><![CDATA[
+	#dim locker as TECH.Lock.MultiGlobalLocker = ##class(TECH.Lock.MultiGlobalLocker).%New()
+	do $$$AssertEquals(locker.Lock(),0)
+]]></Implementation>
+</Method>
+
+<Method name="IsGelockedDoorMij">
+<FormalSpec>globalref:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit (^$Lock(globalref,"OWNER")=$Job)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>