Index: vhUnitTest/TECH/Lock/LockUtils/ReleaseAllLocksForThisProcess/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Lock/LockUtils/ReleaseAllLocksForThisProcess/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Lock/LockUtils/ReleaseAllLocksForThisProcess/Test.cls.xml	(revision 3284)
@@ -0,0 +1,156 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Lock.LockUtils.ReleaseAllLocksForThisProcess.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="VerwachtUnlockedList">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerwachtStillLockedList">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..VerwachtUnlockedList = ##class(%ListOfDataTypes).%New()
+	Set ..VerwachtStillLockedList = ##class(%ListOfDataTypes).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	// Sowieso opnieuw unlocken : alle locks in deze testcase gebruikt
+	Lock -^UTGlobalA
+	Lock -^UTGlobalB(1234,"Subnode")
+	Lock -@("UTNameRef")
+	Lock -@("UTNameRefA")
+	Lock -@("UTNameRefB")
+	Lock -@("UTNameRefC")
+	
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="Test Unlock standard global zonder SkipList">
+<Implementation><![CDATA[
+	Lock +^UTGlobalA
+	Do ..VerwachtUnlockedList.Insert("^UTGlobalA")
+	Do ..AssertReleaseLocks("", ..VerwachtUnlockedList, ..VerwachtStillLockedList)
+]]></Implementation>
+</Method>
+
+<Method name="Test Unlock standard global met SkipList">
+<Implementation><![CDATA[
+	Lock +^UTGlobalA
+
+	#dim SkipLockStringsList As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes( $Name(^UTGlobalA) )
+	Do ..VerwachtStillLockedList.Insert($Name(^UTGlobalA))
+	Do ..AssertReleaseLocks(SkipLockStringsList, ..VerwachtUnlockedList, ..VerwachtStillLockedList)
+
+	Lock -^UTGlobalA
+]]></Implementation>
+</Method>
+
+<Method name="Test Unlock global met subnodes zonder SkipList">
+<Implementation><![CDATA[
+	Lock +^UTGlobalB(1234,"Subnode")
+	
+	Do ..VerwachtUnlockedList.Insert($Name(^UTGlobalB(1234,"Subnode")))
+	Do ..AssertReleaseLocks("", ..VerwachtUnlockedList, ..VerwachtStillLockedList)
+]]></Implementation>
+</Method>
+
+<Method name="Test Unlock standard met subnodes global met SkipList">
+<Implementation><![CDATA[
+	Lock +^UTGlobalB(1234,"Subnode")
+	
+	#dim SkipLockStringsList As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes( $Name(^UTGlobalB(1234,"Subnode")) )
+	Do ..VerwachtStillLockedList.Insert($Name(^UTGlobalB(1234,"Subnode")))
+	Do ..AssertReleaseLocks(SkipLockStringsList, ..VerwachtUnlockedList, ..VerwachtStillLockedList)
+	
+	Lock -^UTGlobalB(1234,"Subnode")
+]]></Implementation>
+</Method>
+
+<Method name="Test Unlock NameRef zonder SkipList">
+<Implementation><![CDATA[
+	Lock +@("UTNameRef")
+	
+	Do ..VerwachtUnlockedList.Insert("UTNameRef")
+	Do ..AssertReleaseLocks("", ..VerwachtUnlockedList, ..VerwachtStillLockedList)
+]]></Implementation>
+</Method>
+
+<Method name="Test Unlock NameRef met SkipList">
+<Implementation><![CDATA[
+	Lock +@("UTNameRef")
+	
+	#dim SkipLockStringsList As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("UTNameRef")
+	Do ..VerwachtStillLockedList.Insert("UTNameRef")
+	Do ..AssertReleaseLocks(SkipLockStringsList, ..VerwachtUnlockedList, ..VerwachtStillLockedList)
+
+	Lock -@("UTNameRef")
+]]></Implementation>
+</Method>
+
+<Method name="Test Unlock meerdere locks met gedeeltelijke SkipList">
+<Implementation><![CDATA[
+	Lock +@("UTNameRefA")
+	Lock +@("UTNameRefB")
+	Lock +@("UTNameRefC")
+
+	#dim SkipLockStringsList As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes( "UTNameRefA","UTNameRefC" )
+
+	Do ..VerwachtStillLockedList.Insert("UTNameRefA")
+	Do ..VerwachtUnlockedList.Insert("UTNameRefB")
+	Do ..VerwachtStillLockedList.Insert("UTNameRefC")
+		
+	Do ..AssertReleaseLocks(SkipLockStringsList, ..VerwachtUnlockedList, ..VerwachtStillLockedList)
+
+	Lock -@("UTNameRefB")
+]]></Implementation>
+</Method>
+
+<Method name="AssertReleaseLocks">
+<FormalSpec>SkipLockStringsList:%ListOfDataTypes,VerwachtUnlockedList:%ListOfDataTypes,VerwachtStillLockedList:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim i As %Integer
+	#dim UnlockedList As %ListOfDataTypes = ##class(TECH.Lock.LockUtils).ReleaseAllLocksForThisProcess(SkipLockStringsList)
+	
+	If $$$AssertTrue($IsObject(UnlockedList)) { 
+		Do $$$AssertEqualsList(UnlockedList, VerwachtUnlockedList)
+	}
+
+	For i = 1:1:VerwachtStillLockedList.Count() {
+		Do $$$AssertTrue(..IsLocked(VerwachtStillLockedList.GetAt(i)))
+	}
+
+	For i = 1:1:VerwachtUnlockedList.Count() {
+		Do $$$AssertFalse(..IsLocked(VerwachtUnlockedList.GetAt(i)))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsLocked">
+<FormalSpec>LockString:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit (##class(TECH.Lock.LockUtils).GeefProcessID(LockString) > 0)   
+ /*
+	Quit $$IsLocked^vhLib(LockString)   ; Deze werkt niet binnen het eigen process !
+ */
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>