Index: Tools/Test/VariableChecker.cls.xml
===================================================================
diff -u -r1349 -r2147
--- Tools/Test/VariableChecker.cls.xml	(.../VariableChecker.cls.xml)	(revision 1349)
+++ Tools/Test/VariableChecker.cls.xml	(.../Checker.cls.xml)	(revision 2147)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="Tools.Test.VariableChecker">
+<Class name="Tools.Test.Checker">
 <Super>TECH.RegisteredObject</Super>
 
 <Property name="VarsInMemoryBefore">
@@ -15,6 +15,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LocksInMemoryBefore">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="LocksInMemoryAfter">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
 <Property name="TestCase">
 <Type>Tools.Test.TestCase</Type>
 <Private>1</Private>
@@ -32,20 +44,34 @@
 ]]></Implementation>
 </Method>
 
-<Method name="StoreVariabelenInMemory">
+<Method name="Store">
 <Final>1</Final>
 <Implementation><![CDATA[
+	set ..LocksInMemoryBefore = ##class(TECH.Lock.LockUtils).GetLocksForProcess($job)
+	
 	quit
+	quit:$$$Not(..TestCase.GebruiktVariabeleControle())
+	
 	do ..VarsInMemoryBefore.Clear()
 	#dim Var As %String = "%"
 	for  set Var = $order(@Var) quit:Var=""  if ..ValidVar(Var) do ..VarsInMemoryBefore.Insert(Var)
 ]]></Implementation>
 </Method>
 
-<Method name="CheckVariabelenInMemory">
+<Method name="Validate">
 <Final>1</Final>
 <Implementation><![CDATA[
+	set ..LocksInMemoryAfter = ##class(TECH.Lock.LockUtils).GetLocksForProcess($job)
+	
+	if ..LocksInMemoryBefore.Size '= ..LocksInMemoryAfter.Size {
+		do ..TestCase.Fail( "locking problem : " _ $$$CRLF _ 
+				   "aantal voor test : "_..LocksInMemoryBefore.Size_" - aantal na test : "_..LocksInMemoryAfter.Size _ $$$CRLF _
+				   ##class(TECH.ListUtils).ListToPieces(##class(TECH.ListUtils).Verschil(..LocksInMemoryBefore,..LocksInMemoryAfter),";") )
+	}
+
 	quit
+	quit:$$$Not(..TestCase.GebruiktVariabeleControle())
+	
 	do ..VarsInMemoryAfter.Clear()
 	
 	#dim Var As %String = "%"
@@ -56,6 +82,9 @@
 				   "aantal voor test : "_..VarsInMemoryBefore.Size_" - aantal na test : "_..VarsInMemoryAfter.Size _ $$$CRLF _
 				   ##class(TECH.ListUtils).ListToPieces(##class(TECH.ListUtils).Verschil(..VarsInMemoryAfter,..VarsInMemoryBefore),";") )
 	}
+	
+	do ..VarsInMemoryAfter.Clear()
+	do ..VarsInMemoryBefore.Clear()
 ]]></Implementation>
 </Method>
 
Index: Tools/Test/TestCase.cls.xml
===================================================================
diff -u -r1990 -r2147
--- Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 1990)
+++ Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 2147)
@@ -91,8 +91,8 @@
 <Private>1</Private>
 </Property>
 
-<Property name="VariableChecker">
-<Type>Tools.Test.VariableChecker</Type>
+<Property name="Checker">
+<Type>Tools.Test.Checker</Type>
 <Private>1</Private>
 </Property>
 
@@ -107,7 +107,7 @@
 	 Set r%Manager = AManager
 	 set ..DataExporteerder = ##class(Tools.Test.DataExporteerder).%New($this)
 	 set ..Asserter = ##class(Tools.Test.Asserter).%New($this,AManager)
-	 set ..VariableChecker = ##class(Tools.Test.VariableChecker).%New($this)
+	 set ..Checker = ##class(Tools.Test.Checker).%New($this)
 	 Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -133,7 +133,7 @@
 	set ..VerwachteExceptie = ""
 	do ..SetRuntimeContext()
 	do ##class(Tools.Test.TestCase.OnBeforeOneTest).%New().Exec(..Debug)
-	do ..VariableChecker.StoreVariabelenInMemory()
+	do ..Checker.Store()
 ]]></Implementation>
 </Method>
 
@@ -142,7 +142,7 @@
 <Implementation><![CDATA[
 	do ..ResetRuntimeContext()
 	do ##class(Tools.Test.TestCase.OnAfterOneTest).%New().Exec(..Debug)
-	do ..VariableChecker.CheckVariabelenInMemory()
+	do ..Checker.Validate()
 	do ..CheckOpenExceptions()
 	do ..CheckOpenTransactions()
 ]]></Implementation>
@@ -250,6 +250,7 @@
 <Abstract>1</Abstract>
 <FormalSpec>SubPath:TECH.String=..LopendeTestMethode</FormalSpec>
 <ReturnType>%String</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="AssertExceptionViaMacro">
FishEye: Tag 2147 refers to a dead (removed) revision in file `Tools/Test/VariableChecker.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?