Index: vhUnitTest/TECH/File/TestFileWriter.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/File/TestFileWriter.cls.xml	(revision 0)
+++ vhUnitTest/TECH/File/TestFileWriter.cls.xml	(revision 957)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.File.TestFileWriter">
+<Description>
+d ##class(vhUnitTest.Manager).RunTest("/debug/display=all","TECH.File.TestFileWriter")</Description>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestSchrijvenNaarOnbestaandUNCPad">
+<Implementation><![CDATA[
+	#dim Bestand As %String = "\\eenonbestaandpad\c$\abc\testFileWriter.txt"
+	#dim IsExceptieGeraised As %Boolean = 0
+	Try {
+		Set FileWriter = ##class(TECH.File.impl.FileWriter).%New()
+		do FileWriter.Open(Bestand)
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()	
+		Set IsExceptieGeraised = 1
+		Do $$$AssertContains(Exception.GeefOmschrijving(),"Pad bestaat niet of is niet bereikbaar")
+		}
+	Do $$$AssertTrue(IsExceptieGeraised)
+	Do $$$AssertFalse(##class(TECH.File).Exists(Bestand))
+]]></Implementation>
+</Method>
+
+<Method name="TestSchrijven">
+<Implementation><![CDATA[
+	#dim BestandNaam As %String = "testFileWriter.txt"
+	#dim Inhoud As %String = "Wat inhoud"
+	#dim Pad As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("DefaultExportDirectory")
+	#dim BestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(Pad,BestandNaam)
+	
+	Set FileWriter = ##class(TECH.File.impl.FileWriter).%New()
+	Do FileWriter.Open(BestandVolledigeNaam)
+	Do FileWriter.Write(Inhoud)
+	Do FileWriter.Close()
+	
+	If $$$AssertTrue(##class(TECH.File).Exists(BestandVolledigeNaam)){
+		Set FileReader = ##class(TECH.File.impl.FileReader).%New(BestandVolledigeNaam)
+		Do $$$AssertTrue(FileReader.HasNextLine())
+		Do $$$AssertEquals(FileReader.ReadLine(),Inhoud)
+		Do $$$AssertFalse(FileReader.HasNextLine())
+		do FileReader.Close()
+	}
+	Do ##class(TECH.File).Delete(BestandVolledigeNaam)
+	
+	Do $$$AssertFalse(##class(TECH.File).Exists(BestandVolledigeNaam))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ListbuildIterator.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ListbuildIterator.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ListbuildIterator.cls.xml	(revision 957)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ListbuildIterator">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+// do ##class(vhUnitTest.Manager).RunTest("/display=all","TECH.ListbuildIterator")
+
+]]></Content>
+</UDLText>
+
+<Method name="Test">
+<Implementation><![CDATA[
+
+	set Listbuild = $listbuild(1,2,3,4,5)
+	
+	set itListbuild = ##class(TECH.ListbuildIterator).%New(Listbuild)
+	if $$$AssertTrue(itListbuild.HasNext()) { do $$$AssertEquals(itListbuild.Next(),1,"Test eerste item") }
+	else { do $$$AssertTrue(0,"Problemen met eerste item") }
+	
+	if $$$AssertTrue(itListbuild.HasNext()) { do $$$AssertEquals(itListbuild.Next(),2,"Test tweede item") }
+	else { do $$$AssertTrue(0,"Problemen met tweede item") }
+	
+	if $$$AssertTrue(itListbuild.HasNext()) { do $$$AssertEquals(itListbuild.Next(),3,"Test derde item") }
+	else { do $$$AssertTrue(0,"Problemen met derde item") }
+	
+	if $$$AssertTrue(itListbuild.HasNext()) { do $$$AssertEquals(itListbuild.Next(),4,"Test vierde item") }
+	else { do $$$AssertTrue(0,"Problemen met vierde item") }
+	
+	if $$$AssertTrue(itListbuild.HasNext()) { do $$$AssertEquals(itListbuild.Next(),5,"Test vijfde item") }
+	else { do $$$AssertTrue(0,"Problemen met vijfde item") }
+	
+	do $$$AssertFalse(itListbuild.HasNext())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Exceptions/Exception/ZetInnerExcepties/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Exceptions/Exception/ZetInnerExcepties/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Exceptions/Exception/ZetInnerExcepties/Test.cls.xml	(revision 957)
@@ -0,0 +1,90 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Exceptions.Exception.ZetInnerExcepties.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Exception">
+<Type>TECH.IException</Type>
+</Property>
+
+<Property name="ExceptieLijst">
+<Type>TECH.ExceptionList</Type>
+</Property>
+
+<Method name="TestVoeg5MinorInnerExceptiesToexExceptionIsEenMinorException">
+<Implementation><![CDATA[
+	#dim i As %Integer
+	For i= 1:1:4 {
+		Do ..VoegInnerExceptieToeAanExceptieLijst(##class(TECH.Exceptions.enu.Schaal).Minor())
+	}
+	Do ..VoegInnerExceptieToeAanExceptieLijst(##class(TECH.Exceptions.enu.Schaal).Minor())
+	
+	Do ..AssertSchaal(##class(TECH.Exceptions.enu.Schaal).Minor())
+]]></Implementation>
+</Method>
+
+<Method name="TestVoeg4MinorInnerExceptiesToeEn1MajorInnerExceptiexxxExceptionIsEenMajorException">
+<Implementation><![CDATA[
+	#dim i As %Integer
+	For i= 1:1:4 {
+		Do ..VoegInnerExceptieToeAanExceptieLijst(##class(TECH.Exceptions.enu.Schaal).Minor())
+	}
+	Do ..VoegInnerExceptieToeAanExceptieLijst(##class(TECH.Exceptions.enu.Schaal).Major())
+	
+	
+	Do ..AssertSchaal(##class(TECH.Exceptions.enu.Schaal).Major())
+]]></Implementation>
+</Method>
+
+<Method name="TestVoeg5MajorInnerExceptiesToexxxExceptionIsEenMajorException">
+<Implementation><![CDATA[
+	#dim i As %Integer
+	For i= 1:1:5 {
+		Do ..VoegInnerExceptieToeAanExceptieLijst(##class(TECH.Exceptions.enu.Schaal).Major())
+	}
+	
+	Do ..AssertSchaal(##class(TECH.Exceptions.enu.Schaal).Major())
+]]></Implementation>
+</Method>
+
+<Method name="TestVoegMajorMinorMajorMinorErrorsToexxxExceptionIsEenMajorException">
+<Implementation><![CDATA[
+	Do ..VoegInnerExceptieToeAanExceptieLijst(##class(TECH.Exceptions.enu.Schaal).Major())
+	Do ..VoegInnerExceptieToeAanExceptieLijst(##class(TECH.Exceptions.enu.Schaal).Minor())
+	Do ..VoegInnerExceptieToeAanExceptieLijst(##class(TECH.Exceptions.enu.Schaal).Major())
+	Do ..VoegInnerExceptieToeAanExceptieLijst(##class(TECH.Exceptions.enu.Schaal).Minor())
+	
+	Do ..AssertSchaal(##class(TECH.Exceptions.enu.Schaal).Major())
+]]></Implementation>
+</Method>
+
+<Method name="VoegInnerExceptieToeAanExceptieLijst">
+<FormalSpec>Schaal:TECH.Exceptions.enu.Schaal</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim InnerException As TECH.IException = ##class(TECH.Exceptions.BaseException).%New($$$DummyString, $$$DummyString)
+	Do InnerException.ZetSchaal(Schaal)
+	Do ..ExceptieLijst.Insert(InnerException)
+]]></Implementation>
+</Method>
+
+<Method name="AssertSchaal">
+<FormalSpec>Schaal:TECH.Exceptions.enu.Schaal</FormalSpec>
+<Implementation><![CDATA[
+	Do ..Exception.ZetInnerExcepties(..ExceptieLijst)
+	Do $$$AssertEquals(..Exception.GeefSchaal(),Schaal)
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..Exception = ##class(TECH.Exceptions.BaseException).%New($$$DummyString, $$$DummyString)
+	Set ..ExceptieLijst = ##class(TECH.ExceptionList).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/MethodDefinition/vhUnitTest/TECH/MethodDefinition/DummyRoutine2.mac.rou
===================================================================
diff -u
--- vhUnitTest/TECH/MethodDefinition/vhUnitTest/TECH/MethodDefinition/DummyRoutine2.mac.rou	(revision 0)
+++ vhUnitTest/TECH/MethodDefinition/vhUnitTest/TECH/MethodDefinition/DummyRoutine2.mac.rou	(revision 957)
@@ -0,0 +1 @@
+TEST
Index: vhUnitTest/TECH/Exceptions/Exception/ZetInnerException/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Exceptions/Exception/ZetInnerException/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Exceptions/Exception/ZetInnerException/Test.cls.xml	(revision 957)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Exceptions.Exception.ZetInnerException.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Exception">
+<Type>TECH.IException</Type>
+</Property>
+
+<Method name="TestVoegMajorInnerExceptieToeAanMajorExceptionxExceptionIsEenMajorException">
+<Implementation><![CDATA[
+	Do ..VoegInnerExceptieToe(##class(TECH.Exceptions.enu.Schaal).Major())
+	Do $$$AssertEquals(..Exception.GeefSchaal(),##class(TECH.Exceptions.enu.Schaal).Major())
+]]></Implementation>
+</Method>
+
+<Method name="TestVoegMinorInnerExceptieToeAanMajorExceptionxExceptionIsEenMajorException">
+<Implementation><![CDATA[
+	Do ..VoegInnerExceptieToe(##class(TECH.Exceptions.enu.Schaal).Minor())
+	Do $$$AssertEquals(..Exception.GeefSchaal(),##class(TECH.Exceptions.enu.Schaal).Major())
+]]></Implementation>
+</Method>
+
+<Method name="TestVoegMinorInnerExceptieToeAanMinorExceptionxExceptionIsEenMajorException">
+<Implementation><![CDATA[
+	;Schaal van een Exceptie staat standaard op Major
+	Do ..Exception.ZetSchaal(##class(TECH.Exceptions.enu.Schaal).Minor())
+	
+	Do ..VoegInnerExceptieToe(##class(TECH.Exceptions.enu.Schaal).Minor())
+	Do $$$AssertEquals(..Exception.GeefSchaal(),##class(TECH.Exceptions.enu.Schaal).Minor())
+]]></Implementation>
+</Method>
+
+<Method name="VoegInnerExceptieToe">
+<FormalSpec>Schaal:TECH.Exceptions.enu.Schaal</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim InnerExceptie As TECH.IException = ##class(TECH.Exceptions.BaseException).%New($$$DummyString, $$$DummyString)
+	Do InnerExceptie.ZetSchaal(Schaal)
+	Do ..Exception.VoegToeInnerExceptie(InnerExceptie)
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..Exception = ##class(TECH.Exceptions.BaseException).%New($$$DummyString, $$$DummyString)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/Tools/ExportKlasseEnum.cls.xml
===================================================================
diff -u
--- vhUnitTest/Tools/ExportKlasseEnum.cls.xml	(revision 0)
+++ vhUnitTest/Tools/ExportKlasseEnum.cls.xml	(revision 957)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Tools.ExportKlasseEnum">
+<ClassType>datatype</ClassType>
+<Super>%String</Super>
+
+<Parameter name="VALUELIST">
+<Default>;Waarde1;Waarde2</Default>
+</Parameter>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ListUtils/CollectionsAreEqual/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ListUtils/CollectionsAreEqual/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ListUtils/CollectionsAreEqual/Test.cls.xml	(revision 957)
@@ -0,0 +1,90 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ListUtils.CollectionsAreEqual.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestTweeLegeLijstenxxxGelijk">
+<Implementation><![CDATA[
+	set List1 = ##class(%ListOfDataTypes).%New()
+	set List2 = ##class(%ListOfDataTypes).%New()
+	
+	do $$$AssertTrue(##class(TECH.ListUtils).CollectionsAreEqual(List1,List2))
+]]></Implementation>
+</Method>
+
+<Method name="TestLijstenMetVerschillendAantalElementenxxxVerschillend">
+<Implementation><![CDATA[
+	#dim List1 As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes($$$DummyString)
+	set List2 = ##class(%ListOfDataTypes).%New()
+	
+	do $$$AssertFalse(##class(TECH.ListUtils).CollectionsAreEqual(List1,List2))
+]]></Implementation>
+</Method>
+
+<Method name="TestLijstenMetZelfdeAantalElementenMaarVerschillendeWaardenxxxVerschillend">
+<Implementation><![CDATA[
+	#dim List1 As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("A")
+	#dim List2 As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("B")
+	
+	do $$$AssertFalse(##class(TECH.ListUtils).CollectionsAreEqual(List1,List2))
+]]></Implementation>
+</Method>
+
+<Method name="TestLegeArraysxxxGelijk">
+<Implementation><![CDATA[
+	set List1 = ##class(%ArrayOfDataTypes).%New()
+	set List2 = ##class(%ArrayOfDataTypes).%New()
+	
+	do $$$AssertTrue(##class(TECH.ListUtils).CollectionsAreEqual(List1,List2))
+]]></Implementation>
+</Method>
+
+<Method name="TestArraysMetVerschillendAantalElementenxxxVerschillend">
+<Implementation><![CDATA[
+	set List1 = ##class(%ArrayOfDataTypes).%New()
+	do List1.SetAt("Value","Key")
+	set List2 = ##class(%ArrayOfDataTypes).%New()
+	
+	do $$$AssertFalse(##class(TECH.ListUtils).CollectionsAreEqual(List1,List2))
+]]></Implementation>
+</Method>
+
+<Method name="TestArraysMetZelfdeAantalElementenMaarVerschillendeWaardenxxxVerschillend">
+<Implementation><![CDATA[
+	set List1 = ##class(%ArrayOfDataTypes).%New() 
+	do List1.SetAt("Value1","Key")
+	
+	set List2 = ##class(%ArrayOfDataTypes).%New()
+	do List2.SetAt("Value2","Key")
+
+	do $$$AssertFalse(##class(TECH.ListUtils).CollectionsAreEqual(List1,List2))
+]]></Implementation>
+</Method>
+
+<Method name="TestArraysMetZelfdeAantalElementenMetGelijkeWaardenEnGelijkeKeysxxxGelijk">
+<Implementation><![CDATA[
+	set List1 = ##class(%ArrayOfDataTypes).%New() 
+	do List1.SetAt("Value","Key")
+	
+	set List2 = ##class(%ArrayOfDataTypes).%New()
+	do List2.SetAt("Value","Key")
+
+	do $$$AssertTrue(##class(TECH.ListUtils).CollectionsAreEqual(List1,List2))
+]]></Implementation>
+</Method>
+
+<Method name="TestArraysMetZelfdeAantalElementenMetGelijkeWaardenEnVerschillendeKeysxxxVerschillend">
+<Implementation><![CDATA[
+	set List1 = ##class(%ArrayOfDataTypes).%New() 
+	do List1.SetAt("Value","Key1")
+	
+	set List2 = ##class(%ArrayOfDataTypes).%New()
+	do List2.SetAt("Value","Key2")
+
+	do $$$AssertFalse(##class(TECH.ListUtils).CollectionsAreEqual(List1,List2))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ObjectUtils/WaardenKopieerder/Object.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ObjectUtils/WaardenKopieerder/Object.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ObjectUtils/WaardenKopieerder/Object.cls.xml	(revision 957)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ObjectUtils.WaardenKopieerder.Object">
+<Super>%RegisteredObject</Super>
+
+<Property name="aString">
+<Type>%String</Type>
+</Property>
+
+<Property name="aInteger">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="aBoolean">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="aListOfDataTypes">
+<Type>%String</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="aArrayOfDataTypes">
+<Type>%String</Type>
+<Collection>array</Collection>
+</Property>
+
+<Property name="aEmbeddedObject">
+<Type>vhUnitTest.TECH.ObjectUtils.WaardenKopieerder.EmbeddedObject</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/vhLib/WebServiceLogger/TestLogService.cls.xml
===================================================================
diff -u
--- vhUnitTest/vhLib/WebServiceLogger/TestLogService.cls.xml	(revision 0)
+++ vhUnitTest/vhLib/WebServiceLogger/TestLogService.cls.xml	(revision 957)
@@ -0,0 +1,107 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.vhLib.WebServiceLogger.TestLogService">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","vhLib.WebserviceLogger.TestLogService")</Description>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestLogWebservice">
+<Implementation><![CDATA[
+	Do $$$AssertFalse(##class(vhLib.WebServiceLogger.WebserviceLogSetting).%ExistsId("WS.UT"))
+		
+	Do ##class(vhLib.WebServiceLogger.LogService).LogWebservice("WS.UT",##class(vhLib.WebServiceLogger.enu.LogNiveau).Debug())
+	Do $$$AssertTrue(##class(vhLib.WebServiceLogger.WebserviceLogSetting).%ExistsId("WS.UT"))
+		
+	#dim WLS As vhLib.WebServiceLogger.WebserviceLogSetting = ##class(vhLib.WebServiceLogger.WebserviceLogSetting).OpenId("WS.UT")
+	Do $$$AssertEquals(WLS.WebserviceClassName,"WS.UT")
+	Do $$$AssertEquals(WLS.LogNiveau,##class(vhLib.WebServiceLogger.enu.LogNiveau).Debug())
+		
+	Do ##class(vhLib.WebServiceLogger.WebserviceLogSetting).DeleteId("WS.UT")
+	Do $$$AssertFalse(##class(vhLib.WebServiceLogger.WebserviceLogSetting).%ExistsId("WS.UT"))
+]]></Implementation>
+</Method>
+
+<Method name="TestVerwijderLogWebservice">
+<Implementation><![CDATA[
+	#dim WLS As vhLib.WebServiceLogger.WebserviceLogSetting = ##class(vhLib.WebServiceLogger.WebserviceLogSetting).%New("WS.UT")
+	Set WLS.LogNiveau = ##class(vhLib.WebServiceLogger.enu.LogNiveau).Debug()
+	Do WLS.Save()		
+	Do $$$AssertTrue(##class(vhLib.WebServiceLogger.WebserviceLogSetting).%ExistsId("WS.UT"))		
+	
+	Do ##class(vhLib.WebServiceLogger.LogService).VerwijderLogWebservice("WS.UT")
+	
+	Do $$$AssertFalse(##class(vhLib.WebServiceLogger.WebserviceLogSetting).%ExistsId("WS.UT"))
+]]></Implementation>
+</Method>
+
+<Method name="TestIsLoggingNodigNegative">
+<Implementation><![CDATA[	Do $$$AssertFalse(##class(vhLib.WebServiceLogger.LogService).IsLoggingNodig("WS.UTNegative","WebMethod"))
+]]></Implementation>
+</Method>
+
+<Method name="TestIsLoggingNodigNoWebmethod">
+<Implementation><![CDATA[
+	Do ##class(vhLib.WebServiceLogger.LogService).LogWebservice("WS.UTPositive",##class(vhLib.WebServiceLogger.enu.LogNiveau).Debug())
+	#dim IsFoutGeraised As %Boolean = 0
+	Try {
+		Do ##class(vhLib.WebServiceLogger.LogService).IsLoggingNodig("WS.UTPositive","")
+	}Catch{
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertEquals(Exception.GeefOmschrijving(),"WS.UTPositive : Webmethod vereist")
+		Set IsFoutGeraised = 1
+	}
+	Do $$$AssertTrue(IsFoutGeraised,"Fout is geraised omdat webmethod niet kon worden achterhaald.")
+	Do ##class(vhLib.WebServiceLogger.LogService).VerwijderLogWebservice("WS.UTPositive")
+]]></Implementation>
+</Method>
+
+<Method name="TestIsLoggingNodigPositive">
+<Implementation><![CDATA[
+	Do ##class(vhLib.WebServiceLogger.LogService).LogWebservice("WS.UTPositive",##class(vhLib.WebServiceLogger.enu.LogNiveau).Debug())
+	Do $$$AssertTrue(##class(vhLib.WebServiceLogger.LogService).IsLoggingNodig("WS.UTPositive","WebMethod"))
+	Do ##class(vhLib.WebServiceLogger.LogService).VerwijderLogWebservice("WS.UTPositive")
+]]></Implementation>
+</Method>
+
+<Method name="TestLogStream">
+<Implementation><![CDATA[
+	Do ##class(vhLib.WebServiceLogger.LogService).LogWebservice("WS.UTLog",##class(vhLib.WebServiceLogger.enu.LogNiveau).Debug())
+	
+	Do ##class(vhLib.WebServiceLogger.LogService).LogStream(..GeefStream(),"IN","WS.UTLog")
+	
+	If $$$AssertTrue($IsObject(%WSWebserviceLogger)) {
+		#dim Logger As vhUnitTest.vhLib.WebServiceLogger.impl.UTLogger = %WSWebserviceLogger
+		Do $$$AssertEquals(Logger.LogItems.Count(),1,"Aantal is correct.")
+		Do $$$AssertEquals(Logger.LogItems.GetAt(1),"Unit test input"_$C(13,10)_"Lijn 2","Tekst is correct.")
+	}
+		
+	Do ##class(vhLib.WebServiceLogger.LogService).VerwijderLogWebservice("WS.UTLog")
+]]></Implementation>
+</Method>
+
+<Method name="GeefStream">
+<Private>1</Private>
+<ReturnType>%Stream</ReturnType>
+<Implementation><![CDATA[
+	#dim CharStream As %Stream = ##class(%GlobalCharacterStream).%New()
+	Do CharStream.WriteLine("Unit test input")	
+	Do CharStream.WriteLine("Lijn 2")	
+	Quit CharStream
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhLib.WebServiceLogger.LogService).ZetLogger(##class(vhUnitTest.vhLib.WebServiceLogger.impl.UTLogger).%New())
+	
+	if ##class(vhLib.WebServiceLogger.WebserviceLogSetting).%ExistsId("WS.UT") {
+		Do ##class(vhLib.WebServiceLogger.WebserviceLogSetting).DeleteId("WS.UT")
+	}
+ 	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ListUtils/TestCopyArrayOfDataTypes.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ListUtils/TestCopyArrayOfDataTypes.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ListUtils/TestCopyArrayOfDataTypes.cls.xml	(revision 957)
@@ -0,0 +1,90 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ListUtils.TestCopyArrayOfDataTypes">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="StartWaardeHoofdlettersAscii">
+<Type>%Integer</Type>
+<Default>64</Default>
+</Parameter>
+
+<Method name="TestLegeArrayAsFunction">
+<Implementation><![CDATA[	do ..AssertArrayAsFunction(0)
+]]></Implementation>
+</Method>
+
+<Method name="TestLegeArrayAsProcedure">
+<Implementation><![CDATA[	do ..AssertArrayAsProcedure(0)
+]]></Implementation>
+</Method>
+
+<Method name="TestArray1ItemAsFunction">
+<Implementation><![CDATA[	do ..AssertArrayAsFunction(1)
+]]></Implementation>
+</Method>
+
+<Method name="TestArray1ItemAsProcedure">
+<Implementation><![CDATA[	do ..AssertArrayAsProcedure(1)
+]]></Implementation>
+</Method>
+
+<Method name="TestArray2ItemsAsFunction">
+<Implementation><![CDATA[	do ..AssertArrayAsFunction(2)
+]]></Implementation>
+</Method>
+
+<Method name="TestArray2ItemsAsProcedure">
+<Implementation><![CDATA[	do ..AssertArrayAsProcedure(2)
+]]></Implementation>
+</Method>
+
+<Method name="AssertArrayAsFunction">
+<FormalSpec>AantalItems:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Array As %ArrayOfDataTypes = ..GeefArray(AantalItems)
+	#dim NewArray As %ArrayOfDataTypes = ##class(TECH.ListUtils).CopyArrayOfDataTypes(Array)
+	
+	do ..AssertArray(NewArray,AantalItems)
+]]></Implementation>
+</Method>
+
+<Method name="AssertArrayAsProcedure">
+<FormalSpec>AantalItems:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Array As %ArrayOfDataTypes = ..GeefArray(AantalItems)
+	#dim NewArray As %ArrayOfDataTypes = ""
+	do ##class(TECH.ListUtils).CopyArrayOfDataTypes(Array,.NewArray)
+	do ..AssertArray(NewArray,AantalItems)
+]]></Implementation>
+</Method>
+
+<Method name="GeefArray">
+<FormalSpec>AantalItems:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set Array = ##class(%ArrayOfDataTypes).%New()
+	#dim Counter As %Integer
+	for Counter = 1 : 1 : AantalItems do Array.SetAt($char(..#StartWaardeHoofdlettersAscii+Counter),Counter)
+	quit Array
+]]></Implementation>
+</Method>
+
+<Method name="AssertArray">
+<FormalSpec>Array:%ArrayOfDataTypes,AantalItems:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	if $$$AssertEquals(Array.Count(),AantalItems) {
+		#dim Counter As %Integer
+		for Counter = 1 : 1 : AantalItems {
+			do $$$AssertEquals(Array.GetAt(Counter),$char(..#StartWaardeHoofdlettersAscii+Counter))	
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/Tools/ObjectDumper/Object.cls.xml
===================================================================
diff -u
--- vhUnitTest/Tools/ObjectDumper/Object.cls.xml	(revision 0)
+++ vhUnitTest/Tools/ObjectDumper/Object.cls.xml	(revision 957)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Tools.ObjectDumper.Object">
+<Super>%RegisteredObject</Super>
+
+<Property name="PropertyAsString">
+<Type>%String</Type>
+</Property>
+
+<Property name="PropertyAsInteger">
+<Type>%Integer</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Persistent/OnAfterSave/DummyTableMetErrorOnAfterSave.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Persistent/OnAfterSave/DummyTableMetErrorOnAfterSave.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Persistent/OnAfterSave/DummyTableMetErrorOnAfterSave.cls.xml	(revision 957)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Persistent.OnAfterSave.DummyTableMetErrorOnAfterSave">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="Dummy">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnAfterSave">
+<FormalSpec>insert:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	w 0/0
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^vhUnitTestF90D.DummyTableMet1ED</DataLocation>
+<DefaultData>DummyTableMetErrorOnAfterSaveDefaultData</DefaultData>
+<IdLocation>^vhUnitTestF90D.DummyTableMet1ED</IdLocation>
+<IndexLocation>^vhUnitTestF90D.DummyTableMet1EI</IndexLocation>
+<StreamLocation>^vhUnitTestF90D.DummyTableMet1ES</StreamLocation>
+<Data name="DummyTableMetErrorOnAfterSaveDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Dummy</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Algo/Boom/impl/Knoop.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/Boom/impl/Knoop.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/Boom/impl/Knoop.cls.xml	(revision 957)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Algo.Boom.impl.Knoop">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Algo.Boom.Knoop</Super>
+<Inheritance>right</Inheritance>
+
+<Property name="Value">
+<Type>%String</Type>
+</Property>
+
+<Property name="Kinderen">
+<Type>TECH.Algo.Boom.Knoop</Type>
+<Collection>list</Collection>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Value:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	 Set ..Value=$G(Value)
+	 Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeKind">
+<FormalSpec>Kindknoop:TECH.Algo.Boom.Knoop</FormalSpec>
+<Implementation><![CDATA[	Do ..Kinderen.Insert(Kindknoop)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKindIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..Kinderen)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/JSON/Parser/ParseJSON/Embedded.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/JSON/Parser/ParseJSON/Embedded.cls.xml	(revision 0)
+++ vhUnitTest/TECH/JSON/Parser/ParseJSON/Embedded.cls.xml	(revision 957)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.JSON.Parser.ParseJSON.Embedded">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Field1">
+<Type>%String</Type>
+</Property>
+
+<Property name="Field2">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Algo/Boom/TestBoom.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/Boom/TestBoom.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/Boom/TestBoom.cls.xml	(revision 957)
@@ -0,0 +1,127 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Algo.Boom.TestBoom">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","TECH.Algo.Boom.TestBoom")</Description>
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestBoom">
+<Implementation><![CDATA[
+	Set Wortel = ##class(vhUnitTest.TECH.Algo.Boom.impl.Knoop).%New()
+	Set Boom = ##class(TECH.Algo.Boom.Boom).%New(Wortel)
+	
+	Do $$$AssertEquals(Boom.GeefWortel(),Wortel,"De wortel wordt correct teruggegeven")
+]]></Implementation>
+</Method>
+
+<Method name="TestDiepteEerstBoomBuilder">
+<Implementation><![CDATA[
+	Set Wortel = ##class(vhUnitTest.TECH.Algo.Boom.impl.Knoop).%New()
+	Set Boom = ##class(TECH.Algo.Boom.Boom).%New(Wortel)
+	
+	Set DiepteEerstBoomBuilder = ##class(TECH.Algo.Boom.DiepteEerstBoomBuilder).%New(Boom)
+	
+	// We gaan volgende structuur maken
+	// 
+	// 		  Wortel
+	// 		   /  \
+	// 		 o1    o4
+	// 		/ \
+	// 	   o2  o3
+	
+	Set Knoop1 = ##class(vhUnitTest.TECH.Algo.Boom.impl.Knoop).%New(1)
+	Set Knoop2 = ##class(vhUnitTest.TECH.Algo.Boom.impl.Knoop).%New(2)
+	Set Knoop3 = ##class(vhUnitTest.TECH.Algo.Boom.impl.Knoop).%New(3)
+	Set Knoop4 = ##class(vhUnitTest.TECH.Algo.Boom.impl.Knoop).%New(4)
+	
+	Do DiepteEerstBoomBuilder.VoegToeKind(Knoop1)
+	Do DiepteEerstBoomBuilder.VoegToeKind(Knoop2)
+	Do DiepteEerstBoomBuilder.StijgNiveau()
+	Do DiepteEerstBoomBuilder.VoegToeKind(Knoop3)
+	Do DiepteEerstBoomBuilder.StijgNiveau()
+	Do DiepteEerstBoomBuilder.StijgNiveau()
+	Do DiepteEerstBoomBuilder.VoegToeKind(Knoop4)
+	
+	Do $$$AssertEquals(Wortel.Kinderen.GetAt(1),Knoop1,"Knoop 1")
+	Do $$$AssertEquals(Wortel.Kinderen.GetAt(2),Knoop4,"Knoop 4")
+	Do $$$AssertEquals(Knoop1.Kinderen.GetAt(1),Knoop2,"Knoop 2")
+	Do $$$AssertEquals(Knoop1.Kinderen.GetAt(2),Knoop3,"Knoop 3")
+]]></Implementation>
+</Method>
+
+<Method name="TestDiepteEerstIterator">
+<Implementation><![CDATA[
+	Set Wortel = ##class(vhUnitTest.TECH.Algo.Boom.impl.Knoop).%New(0)
+	Set Boom = ##class(TECH.Algo.Boom.Boom).%New(Wortel)
+	
+	Set DiepteEerstBoomBuilder = ##class(TECH.Algo.Boom.DiepteEerstBoomBuilder).%New(Boom)
+	
+	// We gaan volgende structuur maken
+	// 
+	// 		  Wortel
+	// 		   /  \
+	// 		 o1    o4
+	// 		/ \
+	// 	   o2  o3
+	
+	Set Knoop1 = ##class(vhUnitTest.TECH.Algo.Boom.impl.Knoop).%New(1)
+	Set Knoop2 = ##class(vhUnitTest.TECH.Algo.Boom.impl.Knoop).%New(2)
+	Set Knoop3 = ##class(vhUnitTest.TECH.Algo.Boom.impl.Knoop).%New(3)
+	Set Knoop4 = ##class(vhUnitTest.TECH.Algo.Boom.impl.Knoop).%New(4)
+	Set Knoop5 = ##class(vhUnitTest.TECH.Algo.Boom.impl.Knoop).%New(5)
+	Set Knoop6 = ##class(vhUnitTest.TECH.Algo.Boom.impl.Knoop).%New(6)
+	
+	Do DiepteEerstBoomBuilder.VoegToeKind(Knoop1)
+	Do DiepteEerstBoomBuilder.VoegToeKind(Knoop2)
+	Do DiepteEerstBoomBuilder.VoegToeKind(Knoop3)
+	Do DiepteEerstBoomBuilder.StijgNiveau()
+	Do DiepteEerstBoomBuilder.VoegToeKind(Knoop4)
+	Do DiepteEerstBoomBuilder.StijgNiveau()
+	Do DiepteEerstBoomBuilder.StijgNiveau()
+	Do DiepteEerstBoomBuilder.VoegToeKind(Knoop5)
+	Do DiepteEerstBoomBuilder.VoegToeKind(Knoop6)
+	
+	Set it=##class(TECH.Algo.Boom.DiepteEerstIterator).%New(Wortel)
+	Set Aantal=0
+	While it.HasNext()
+	{
+		Set Knoop=it.Next()
+		Set Aantal=Aantal+1
+	}
+	Do $$$AssertEquals(Aantal,7,"Aantal geitereerde knopen")
+]]></Implementation>
+</Method>
+
+<Method name="TestDiepteEerstIteratorAlleenWortel">
+<Implementation><![CDATA[
+	Set Wortel = ##class(vhUnitTest.TECH.Algo.Boom.impl.Knoop).%New(0)
+	
+	Set it=##class(TECH.Algo.Boom.DiepteEerstIterator).%New(Wortel)
+	Set Aantal=0
+	While it.HasNext()
+	{
+		Set Knoop=it.Next()
+		Set Aantal=Aantal+1
+	}
+	Do $$$AssertEquals(Aantal,1,"Aantal geitereerde knopen")
+]]></Implementation>
+</Method>
+
+<Method name="TestDiepteEerstIteratorZonderWortel">
+<Implementation><![CDATA[
+	Set it=##class(TECH.Algo.Boom.DiepteEerstIterator).%New("")
+	Set Aantal=0
+	While it.HasNext()
+	{
+		Set Knoop=it.Next()
+		Set Aantal=Aantal+1
+	}
+	Do $$$AssertEquals(Aantal,0,"Aantal geitereerde knopen")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/TestFileHandler.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/TestFileHandler.cls.xml	(revision 0)
+++ vhUnitTest/TECH/TestFileHandler.cls.xml	(revision 957)
@@ -0,0 +1,268 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.TestFileHandler">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","TECH.TestFileHandler")</Description>
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="TxtEersteLijn">
+<Type>%String</Type>
+<Default>Dit is de eerste lijn</Default>
+</Parameter>
+
+<Parameter name="TxtTweedeLijn">
+<Type>%String</Type>
+<Default>Dit is de tweede lijn</Default>
+</Parameter>
+
+<Method name="TestSchrijfImmediateFile">
+<Description>
+Testen om file onmiddelijk weg te schrijven</Description>
+<Implementation><![CDATA[
+	Set WriteImmediate = 1
+	Set TempDir = ##class(TECH.Config.ConfigMgr).Instance().GetString("vhDev.TempFilePath")	
+	Set Bestandsnaam = "TestBestandImmediate.txt"	
+	Set Bestand = ##class(TECH.Files).AppendFile(TempDir,Bestandsnaam)
+	
+	Do ..SchrijfNaarBestand(Bestand,WriteImmediate)
+	
+	Do $$$AssertTrue(##class(TECH.File).Exists(Bestand),"Het bestand is aangemaakt.")
+	Set FileReader = ##class(TECH.File.impl.FileReader).%New(Bestand)
+	Set EersteLijn = FileReader.ReadLine()
+	Set TweedeLijn = FileReader.ReadLine()
+	Do FileReader.Close()
+	
+	Do $$$AssertEquals(..#TxtEersteLijn,EersteLijn,"Eerste lijn goed uitgelezen.")
+	Do $$$AssertEquals(..#TxtTweedeLijn,TweedeLijn,"Tweede lijn goed uitgelezen.")
+	
+	Set Gelukt =  ##class(TECH.File).Delete(Bestand)
+	Do $$$AssertTrue(Gelukt,"Bestand is verwijderd.")
+]]></Implementation>
+</Method>
+
+<Method name="TestSchrijfTweeKeerNaElkaar">
+<Description>
+Testen om file onmiddelijk weg te schrijven</Description>
+<Implementation><![CDATA[
+	Set WriteImmediate = 1
+	Set TempDir = ##class(TECH.Config.ConfigMgr).Instance().GetString("vhDev.TempFilePath")	
+	Set Bestandsnaam = "TestBestandImmediate.txt"	
+	Set Bestand = ##class(TECH.Files).AppendFile(TempDir,Bestandsnaam)
+	
+	Do ..SchrijfNaarBestand(Bestand,WriteImmediate)
+	
+	Do $$$AssertTrue(##class(TECH.File).Exists(Bestand),"Het bestand is aangemaakt.")
+	Set FileReader = ##class(TECH.File.impl.FileReader).%New(Bestand)
+	Set EersteLijn = FileReader.ReadLine()
+	Set TweedeLijn = FileReader.ReadLine()
+	Do FileReader.Close()
+	
+	Do $$$AssertEquals(..#TxtEersteLijn,EersteLijn,"Eerste lijn goed uitgelezen.")
+	Do $$$AssertEquals(..#TxtTweedeLijn,TweedeLijn,"Tweede lijn goed uitgelezen.")
+	
+	
+	Set FileWriter = ##class(TECH.File.impl.FileWriter).%New()
+	Do FileWriter.Open(Bestand, WriteImmediate)
+	
+	Set TxtEersteLijn = "Dit is de eerste lijn_Nieuwe inhoud"
+	Set TxtTweedeLijn = "Dit is de tweede lijn_nieuwe inhoud"
+	
+	Do FileWriter.Write(TxtEersteLijn)
+	Do FileWriter.Write($C(13,10)_TxtTweedeLijn)	
+	Do FileWriter.Close()
+	
+	
+	Set Gelukt =  ##class(TECH.File).Delete(Bestand)
+	Do $$$AssertTrue(Gelukt,"Bestand is verwijderd.")
+]]></Implementation>
+</Method>
+
+<Method name="TestSchrijfFile">
+<Description>
+Testen om file eerst lokaal aan te maken en dan te kopieren over het netwerk.
+In UniTest blijf het op het lokaal systeem en niet over netwerk.</Description>
+<Implementation><![CDATA[
+	Set WriteImmediate = 0
+	Set TempDir = ##class(TECH.Config.ConfigMgr).Instance().GetString("vhDev.TempFilePath")	
+	Set Bestandsnaam = "TestBestand2.txt"	
+	Set Bestand = ##class(TECH.Files).AppendFile(TempDir,Bestandsnaam)
+	
+	Do ..SchrijfNaarBestand(Bestand,WriteImmediate)
+	
+	Do $$$AssertTrue(##class(TECH.File).Exists(Bestand),"Het bestand is aangemaakt.")
+	
+	Set FileReader = ##class(TECH.File.impl.FileReader).%New(Bestand)
+	Set EersteLijn = FileReader.ReadLine()
+	Set TweedeLijn = FileReader.ReadLine()
+	
+	Do $$$AssertEquals(..#TxtEersteLijn,EersteLijn,"Eerste lijn goed uitgelezen.")
+	Do $$$AssertEquals(..#TxtTweedeLijn,TweedeLijn,"Tweede lijn goed uitgelezen.")
+	Do FileReader.Close()
+	Set Gelukt =  ##class(TECH.File).Delete(Bestand)
+	Do $$$AssertTrue(Gelukt,"Bestand is verwijderd.")
+]]></Implementation>
+</Method>
+
+<Method name="TestSchrijfXMLFile">
+<Description>
+Testen om file eerst lokaal aan te maken en dan te kopieren over het netwerk.
+In UniTest blijf het op het lokaal systeem en niet over netwerk.</Description>
+<Implementation><![CDATA[
+	Set WriteImmediate = 1
+	Set TempDir = ##class(TECH.Config.ConfigMgr).Instance().GetString("vhDev.TempFilePath")	
+	Set Bestandsnaam = "TestBestand.xml"	
+	Set Bestand = ##class(TECH.Files).AppendFile(TempDir,Bestandsnaam)
+	
+	Set FileWriter = ##class(TECH.File.impl.FileWriter).%New()
+	Do FileWriter.Open(Bestand, WriteImmediate)
+	
+	Set XMLdto = ..GeefXMLdto()
+	
+	Do FileWriter.WriteXML(XMLdto)
+	
+	Do FileWriter.Close()
+	
+	Do $$$AssertTrue(##class(TECH.File).Exists(Bestand),"Het bestand is aangemaakt.")
+	
+	Set dtoHoofdObject = ""
+	Set XMLReader = ##class(%XML.Reader).%New()
+	Set Status=XMLReader.OpenFile(Bestand)
+	If $$$ISOK(Status){
+		Do XMLReader.Correlate("HoofdObject","vhUnitTest.TECH.File.dto.HoofdObject") 
+		Do XMLReader.Next(.Object,.sc)
+		Set dtoHoofdObject = Object
+	}
+	Do XMLReader.Close()
+	Set XMLReader = ""
+	
+	Do $$$AssertTrue($IsObject(dtoHoofdObject),"Dto is als object uitgelezen.")
+	
+	Do $$$AssertEquals(dtoHoofdObject.Eigenschap1,"Unit Test","Eerste property was goed ingevuld.")
+	Do $$$AssertEquals(dtoHoofdObject.Eigenschap2,123,"Tweede property was goed ingevuld.")
+	Do $$$AssertTrue($IsObject(dtoHoofdObject.SubObject),"SubDto is als object uitgelezen.")
+	Do $$$AssertEquals(dtoHoofdObject.SubObject.SubEigenschap,"Unit Test Sub","Eerste property van SubObject was goed ingevuld.")
+	
+	Set Gelukt =  ##class(TECH.File).Delete(Bestand)
+	Do $$$AssertTrue(Gelukt,"Bestand is verwijderd.")
+]]></Implementation>
+</Method>
+
+<Method name="TestSchrijfTweeKeerNaarFile">
+<Description>
+Schrijf vanuit hetzelfde proces twee maal naar zelfde file, terwijl de eerste nog open staat.</Description>
+<Implementation><![CDATA[
+	Set WriteImmediate = 0
+	Set TempDir = ##class(TECH.Config.ConfigMgr).Instance().GetString("vhDev.TempFilePath")	
+	Set Bestandsnaam = "TestBestandNetwerk.txt"	
+	Set Bestand = ##class(TECH.Files).AppendFile(TempDir,Bestandsnaam)
+	
+	Set FileWriter1 = ##class(TECH.File.impl.FileWriter).%New()
+	Do FileWriter1.Open(Bestand, WriteImmediate)
+
+	
+	Do FileWriter1.Write(..#TxtEersteLijn)
+	Set $ZTRAP = "CatchInGebruik"
+	Set IsInFoutGegaan = 0
+	Set FileWriter2 = ##class(TECH.File.impl.FileWriter).%New()
+	Do FileWriter2.Open(Bestand, WriteImmediate)
+	Do FileWriter2.Write(..#TxtEersteLijn_"ViaFileWriter2")
+	
+	Do FileWriter1.Write($C(13,10)_..#TxtTweedeLijn)	
+	GoTo Einde
+CatchInGebruik
+	Set Exception = ##class(TECH.ExceptionHandler).Catch("TECH.Exceptions.FileException")
+	Set IsInFoutGegaan = 1
+	Do $$$AssertTrue(Exception.GeefOmschrijving()["Er wordt reeds naar de file","Omschrijving ok.")
+Einde Set $ZTRAP = ""
+	Do FileWriter1.Close()	
+	Do $$$AssertTrue(IsInFoutGegaan,"FileHandler kon tweede keer bestand niet openen.")
+	
+	Set Gelukt =  ##class(TECH.File).Delete(Bestand)
+	Do $$$AssertTrue(Gelukt,"Bestand is verwijderd.")
+]]></Implementation>
+</Method>
+
+<Method name="TestSchrijfTweeKeerNaarFileJob">
+<Description>
+Schrijf vanuit een ander proces twee maal naar zelfde file, terwijl de eerste nog open staat.</Description>
+<Implementation><![CDATA[
+	Set WriteImmediate = 0
+	Set TempDir = ##class(TECH.Config.ConfigMgr).Instance().GetString("vhDev.TempFilePath")	
+	Set Bestandsnaam = "TestBestandJob.txt"	
+	Set Bestand = ##class(TECH.Files).AppendFile(TempDir,Bestandsnaam)
+	
+	Set FileWriter = ##class(TECH.File.impl.FileWriter).%New()
+	Do FileWriter.Open(Bestand, WriteImmediate)
+	
+	Do FileWriter.Write(..#TxtEersteLijn)
+	Set IsInFoutGegaan = 0
+	
+	Set ^IsInFoutGegaanBijJob = 0
+	JOB ClassMethod^vhLib("vhUnitTest.TECH.TestFileHandler","SchrijfIets",3,Bestand,WriteImmediate,"Vanuit tweede filehandler")
+	
+	Do FileWriter.Write($C(13,10)_..#TxtTweedeLijn)	
+	Do FileWriter.Close()	
+	
+	/// even wachten zodat job zeker is uitgevoerd.
+	h 1
+	Do $$$AssertTrue(^IsInFoutGegaanBijJob,"FileHandler kon tweede keer bestand niet openen in ander proces.")
+	Kill ^IsInFoutGegaanBijJob
+	
+	Set Gelukt =  ##class(TECH.File).Delete(Bestand)
+	Do $$$AssertTrue(Gelukt,"Bestand is verwijderd.")
+]]></Implementation>
+</Method>
+
+<Method name="SchrijfIets">
+<Description>
+[Previously private]</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Bestand:%String,WriteImmediate:%Boolean,Inhoud:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set $ZTRAP = "CatchInGebruik"
+	Set FileWriter = ##class(TECH.File.impl.FileWriter).%New()
+	Do FileWriter.Open(Bestand, WriteImmediate)
+	Do FileWriter.Write(Inhoud)
+	Do FileWriter.Close()
+	Quit
+CatchInGebruik
+	Set $ZTRAP = ""
+	Set ^IsInFoutGegaanBijJob = 1
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="SchrijfNaarBestand">
+<FormalSpec>Bestand:%String,WriteImmediate:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set FileWriter = ##class(TECH.File.impl.FileWriter).%New()
+	Do FileWriter.Open(Bestand, WriteImmediate)
+	
+	Set TxtEersteLijn = "Dit is de eerste lijn"
+	Set TxtTweedeLijn = "Dit is de tweede lijn"
+	
+	Do FileWriter.Write(TxtEersteLijn)
+	Do FileWriter.Write($C(13,10)_TxtTweedeLijn)	
+	Do FileWriter.Close()
+]]></Implementation>
+</Method>
+
+<Method name="GeefXMLdto">
+<Private>1</Private>
+<ReturnType>vhUnitTest.TECH.File.dto.HoofdObject</ReturnType>
+<Implementation><![CDATA[
+	Set dto = ##class(vhUnitTest.TECH.File.dto.HoofdObject).%New()
+	Set dto.Eigenschap1 = "Unit Test"
+	Set dto.Eigenschap2 = 123
+	Set dto.SubObject = ##class(vhUnitTest.TECH.File.dto.Object1).%New()
+	Set dto.SubObject.SubEigenschap = "Unit Test Sub"
+	Quit dto
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Concurrency/TestTransactie.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Concurrency/TestTransactie.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Concurrency/TestTransactie.cls.xml	(revision 957)
@@ -0,0 +1,254 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Concurrency.TestTransactie">
+<Description>
+Test locking door Transactie klasse (i.s.m. TxScope klasse).
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","TECH.Concurrency.TestTransactie")</Description>
+<Import>TECH.Concurrency,TECH.ExcHandling</Import>
+<Super>AbstractTxTest</Super>
+
+<Property name="TxScope">
+<Type>TECH.Concurrency.TxScope</Type>
+</Property>
+
+<Property name="Transactie">
+<Type>TECH.Concurrency.Transactie</Type>
+</Property>
+
+<Property name="VoorbeeldObject">
+<Type>VoorbeeldPersistent</Type>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+ 	do ##super(aTestName)
+ 	
+	Set ..VoorbeeldObject = ##class(VoorbeeldPersistent).%New()
+	Do ..VoorbeeldObject.Save()
+	
+	Set ..TxScope = ##class(TxScope).StartNieuwe()
+	Set ..Transactie = ..TxScope.GeefTransactie()
+]]></Implementation>
+</Method>
+
+<Method name="TestRegistreerLockEnCommit">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#define NotShared 0
+	Do ..VoorbeeldObject.%LockId(..VoorbeeldObject.%Id(), $$$NotShared)
+	Do ..TxScope.RegistreerExclusiveLock(..VoorbeeldObject)
+	Quit:'($$$AssertTrue(..VoorbeeldObject.IsExclusiveLocked()))
+	
+	Quit:'(..Assert1LockInTx(..TxScope, ..VoorbeeldObject, $$$NotShared))
+
+	Do ..TxScope.Commit()	
+	
+	Quit:'($$$AssertEquals(0, ..Transactie.GeefLocks().Count()))
+	Quit:'($$$AssertNotTrue(..VoorbeeldObject.IsLocked()))
+]]></Implementation>
+</Method>
+
+<Method name="TestVraagXLockEnCommit">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#define NotShared 0
+	Do ..TxScope.LockExclusive(..VoorbeeldObject)
+	Quit:'($$$AssertTrue(..VoorbeeldObject.IsExclusiveLocked()))
+	
+	Quit:'(..Assert1LockInTx(..TxScope, ..VoorbeeldObject, $$$NotShared))
+
+	Do ..TxScope.Commit()	
+	
+	Quit:'($$$AssertEquals(0, ..Transactie.GeefLocks().Count()))
+	Quit:'($$$AssertNotTrue(..VoorbeeldObject.IsLocked()))
+]]></Implementation>
+</Method>
+
+<Method name="TestVraagXLockViaSqlEnObjecten">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#define NotShared 0
+	
+	Do ##class(VoorbeeldPersistent).WijzigViaSql(..VoorbeeldObject.%Id(), "Wijziging via SQL")
+	Quit:'($$$AssertTrue(..VoorbeeldObject.IsExclusiveLocked()))
+	Do ..TxScope.LockExclusive(..VoorbeeldObject)
+	Quit:'($$$AssertTrue(..VoorbeeldObject.IsExclusiveLocked()))
+	
+	Quit:'(..Assert1LockInTx(..TxScope, ..VoorbeeldObject, $$$NotShared))
+
+	Do ..TxScope.Commit()	
+	
+	Quit:'($$$AssertEquals(0, ..Transactie.GeefLocks().Count()))
+	Quit:'($$$AssertNotTrue(..VoorbeeldObject.IsLocked()))
+]]></Implementation>
+</Method>
+
+<Method name="TestDubbeleXLock">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#define NotShared 0
+	Do ..VoorbeeldObject.%LockId(..VoorbeeldObject.%Id(), $$$NotShared)
+	Do ..TxScope.RegistreerExclusiveLock(..VoorbeeldObject)
+	Do ..TxScope.LockExclusive(..VoorbeeldObject)
+	Do ..TxScope.LockExclusive(..VoorbeeldObject)
+	Quit:'($$$AssertTrue(..VoorbeeldObject.IsExclusiveLocked()))
+	
+	Quit:'(..Assert1LockInTx(..TxScope, ..VoorbeeldObject, $$$NotShared))
+
+	Do ..TxScope.Rollback()	
+	
+	Quit:'($$$AssertEquals(0, ..Transactie.GeefLocks().Count()))
+	Quit:'($$$AssertNotTrue(..VoorbeeldObject.IsLocked()))
+]]></Implementation>
+</Method>
+
+<Method name="TestVraagSLockEnCommit">
+<Implementation><![CDATA[
+	#define Shared 1
+	Do ..TxScope.LockShared(..VoorbeeldObject)
+	Quit:'($$$AssertTrue(..VoorbeeldObject.IsSharedLocked()))
+	
+	Quit:'(..Assert1LockInTx(..TxScope, ..VoorbeeldObject, $$$Shared))
+
+	Do ..TxScope.Commit()	
+	
+	Quit:'($$$AssertEquals(0, ..Transactie.GeefLocks().Count()))
+	Quit:'($$$AssertNotTrue(..VoorbeeldObject.IsLocked()))
+]]></Implementation>
+</Method>
+
+<Method name="TestDubbeleSLock">
+<Implementation><![CDATA[
+	#define Shared 1
+	Do ..VoorbeeldObject.%LockId(..VoorbeeldObject.%Id(), $$$Shared)
+	Do ..TxScope.RegistreerSharedLock(..VoorbeeldObject)
+	Do ..TxScope.LockShared(..VoorbeeldObject)
+	Do ..TxScope.LockShared(..VoorbeeldObject)
+	Quit:'($$$AssertTrue(..VoorbeeldObject.IsSharedLocked()))
+	
+	Quit:'(..Assert1LockInTx(..TxScope, ..VoorbeeldObject, $$$Shared))
+
+	Do ..TxScope.Rollback()	
+	
+	Quit:'($$$AssertEquals(0, ..Transactie.GeefLocks().Count()))
+	Quit:'($$$AssertNotTrue(..VoorbeeldObject.IsLocked()))
+]]></Implementation>
+</Method>
+
+<Method name="TestVraagXLockEnRollback">
+<Implementation><![CDATA[
+	#define NotShared 0
+	Do ..TxScope.LockExclusive(..VoorbeeldObject)
+	Quit:'($$$AssertTrue(..VoorbeeldObject.IsExclusiveLocked()))
+	Set ..VoorbeeldObject.VoorbeeldData = "Gewijzigd voor rollback"
+	Do ..VoorbeeldObject.Save()
+	
+	Quit:'(..Assert1LockInTx(..TxScope, ..VoorbeeldObject, $$$NotShared))
+
+	Do ..TxScope.Rollback()	
+	
+	Quit:'($$$AssertEquals(0, ..Transactie.GeefLocks().Count()))
+	Quit:'($$$AssertNotTrue(..VoorbeeldObject.IsLocked()))
+	
+	Do ..VoorbeeldObject.%Reload()
+	Quit:'($$$AssertEquals("", ..VoorbeeldObject.VoorbeeldData))
+]]></Implementation>
+</Method>
+
+<Method name="TestVraagSLockEnRollback">
+<Implementation><![CDATA[
+	#define Shared 1
+	Do ..TxScope.LockShared(..VoorbeeldObject)
+	Quit:'($$$AssertTrue(..VoorbeeldObject.IsSharedLocked()))
+	
+	Quit:'(..Assert1LockInTx(..TxScope, ..VoorbeeldObject, $$$Shared))
+
+	Do ..TxScope.Rollback()	
+	
+	Quit:'($$$AssertEquals(0, ..Transactie.GeefLocks().Count()))
+	Quit:'($$$AssertNotTrue(..VoorbeeldObject.IsLocked()))
+]]></Implementation>
+</Method>
+
+<Method name="Assert1LockInTx">
+<FormalSpec>TxScope:TECH.Concurrency.TxScope,Object:%Persistent,Shared:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim HuidigeLocks As %ArrayOfObjects
+	Set HuidigeLocks = TxScope.GeefTransactie().GeefLocks()
+	Quit:'($$$AssertEquals(1, HuidigeLocks.Count())) 0
+	
+	#dim Lock As ObjectLock
+	Set Lock = HuidigeLocks.GetNext("")
+	#define FullClassName 1
+	Quit:'($$$AssertEquals(Object.%ClassName($$$FullClassName), Lock.KlasseNaam)) 0
+	Quit:'($$$AssertEquals(Object.%Id(), Lock.ObjectId)) 0
+	Quit:'($$$AssertEquals(Shared, Lock.Shared)) 0
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="TestChecksOpGestartStatusTijdensCommittedStatus">
+<Implementation><![CDATA[
+	Do ..TxScope.Commit()
+	
+	Do ..ChecksOpGestartStatus()
+]]></Implementation>
+</Method>
+
+<Method name="TestChecksOpGestartStatusTijdensRolledBackStatus">
+<Implementation><![CDATA[
+	Do ..TxScope.Rollback()
+	
+	Do ..ChecksOpGestartStatus()
+]]></Implementation>
+</Method>
+
+<Method name="ChecksOpGestartStatus">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#define VerwachteExceptionMelding "De Transactie is niet in status 'gestart'"
+	Do $$$AssertException( "LockShared", "TECH.Exceptions.GeneralErrorException", $$$VerwachteExceptionMelding )
+	Do $$$AssertException( "RegistreerExclusiveLock", "TECH.Exceptions.GeneralErrorException", $$$VerwachteExceptionMelding )
+	Do $$$AssertException( "Commit", "TECH.Exceptions.GeneralErrorException", $$$VerwachteExceptionMelding )
+	Do $$$AssertException( "Rollback", "TECH.Exceptions.GeneralErrorException", $$$VerwachteExceptionMelding )
+	Do $$$AssertException( "Start", "TECH.Exceptions.GeneralErrorException", $$$VerwachteExceptionMelding )
+]]></Implementation>
+</Method>
+
+<Method name="LockShared">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..Transactie.LockShared( ..VoorbeeldObject )
+]]></Implementation>
+</Method>
+
+<Method name="RegistreerExclusiveLock">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..Transactie.RegistreerExclusiveLock( ..VoorbeeldObject )
+]]></Implementation>
+</Method>
+
+<Method name="Commit">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..Transactie.Commit()
+]]></Implementation>
+</Method>
+
+<Method name="Rollback">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..Transactie.Rollback()
+]]></Implementation>
+</Method>
+
+<Method name="Start">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..Transactie.Start()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Exceptions/TestLogService.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Exceptions/TestLogService.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Exceptions/TestLogService.cls.xml	(revision 957)
@@ -0,0 +1,69 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Exceptions.TestLogService">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","TECH.Exceptions.TestLogService")</Description>
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestRegistreerLogItem">
+<Implementation><![CDATA[
+	Set ExceptionLogItem = ##class(APPS.common.dto.ClientExceptionLogItem).%New()
+	Set ExceptionLogItem.ClientSessieID = 123
+	Set ExceptionLogItem.GebruikerID = 14
+	Do ExceptionLogItem.Opmerkingen.Insert("Opmerking1")
+	Do ExceptionLogItem.StackTrace.Insert("StackTrace1")
+	Do ExceptionLogItem.LokaleVariabelen.Insert(##class(TECH.KeyValuePair).%New("Key","Value"))
+	Set ExceptionLogItem.MachineNaam = "De machinenaam"
+	Set ExceptionLogItem.OpstartTijdstipVhintra = ##class(TECH.DateTime).CurrentTimeStamp()
+	
+	Set Exception = ##class(APPS.common.dto.Exception).%New()
+	Set Exception.CorrelatieID = 456
+	Set Exception.Niveau = ##class(TECH.Exceptions.enu.Niveau).Error()
+	Set Exception.Sleutel = "De sleutel"
+	Set Exception.Tijdstip = ##class(TECH.DateTime).CurrentTimeStamp()
+	
+	Set ExceptionLogItem.Exception = Exception
+	
+	Set InnerException = ##class(APPS.common.dto.Exception).%New()
+	Set InnerException.CorrelatieID = 789
+	Set InnerException.Niveau = ##class(TECH.Exceptions.enu.Niveau).Waarschuwing()
+	Set InnerException.Sleutel = "De sleutel innerexceptie"
+	Set InnerException.Tijdstip = ##class(TECH.DateTime).CurrentTimeStamp()
+	
+	Set Exception.InnerException = InnerException
+	
+	Set LogService = ##class(APPS.common.ExceptionLogService).%New()
+	Set LogItem = LogService.RegistreerExceptionLogItem(ExceptionLogItem)
+	
+	Do $$$AssertTrue($IsObject(LogItem),"Het item is geregistreerd")
+	Do $$$AssertEquals(LogItem.GeefClientSessieID(),123)
+	Do $$$AssertEquals(LogItem.GeefGebruikerID(),14)
+	Do $$$AssertEquals(LogItem.GeefOpmerkingenIterator().Next(),"Opmerking1")
+	Do $$$AssertEquals(LogItem.GeefStackTraceIterator().Next(),"StackTrace1")
+	Do $$$AssertEquals(LogItem.GeefLokaleVariabelenIterator().Next(),"Value")
+	Do $$$AssertEquals(LogItem.GeefMachineNaam(),"De machinenaam")
+	Do $$$AssertEquals(LogItem.GeefOpstartTijdstipVhintra(),ExceptionLogItem.OpstartTijdstipVhintra)
+	
+	Set LoggedException = LogItem.GeefLoggedException()
+	Do $$$AssertTrue($IsObject(LoggedException),"De exceptie is opgeslagen")
+	Do $$$AssertEquals(LoggedException.GeefCorrelatieID(),456)
+	Do $$$AssertEquals(LoggedException.GeefNiveau(),##class(TECH.Exceptions.enu.Niveau).Error())
+	Do $$$AssertEquals(LoggedException.GeefSleutel(),"De sleutel")
+	Do $$$AssertEquals(LoggedException.GeefTijdstip(),Exception.Tijdstip)
+	
+	Set LoggedInnerException = LoggedException.GeefInnerException()
+	Do $$$AssertTrue($IsObject(LoggedInnerException),"De innerexceptie is opgeslagen")
+	Do $$$AssertEquals(LoggedInnerException.GeefCorrelatieID(),789)
+	Do $$$AssertEquals(LoggedInnerException.GeefNiveau(),##class(TECH.Exceptions.enu.Niveau).Waarschuwing())
+	Do $$$AssertEquals(LoggedInnerException.GeefSleutel(),"De sleutel innerexceptie")
+	Do $$$AssertEquals(LoggedInnerException.GeefTijdstip(),InnerException.Tijdstip)
+	
+	Do LogItem.Delete()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Algo/TestGroepVerdeler.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/TestGroepVerdeler.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/TestGroepVerdeler.cls.xml	(revision 957)
@@ -0,0 +1,113 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Algo.TestGroepVerdeler">
+<Description>
+d ##class(vhUnitTest.Manager).RunTest("/debug/display=all","TECH.Algo.TestGroepVerdeler")</Description>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestGelijkmatig">
+<Implementation><![CDATA[
+		Do ..Gelijkmatig(1,1,1,1,"1 elementen in 1 groepen, 1 volle groep met 1 elementen")
+		Do ..Gelijkmatig(1,2,1,1,"1 elementen in 2 groepen, 1 volle groep met 1 elementen")
+		Do ..Gelijkmatig(7,3,1,3,"7 elementen in 3 groepen, 1 volle groep met 3 elementen")
+		Do ..Gelijkmatig(50,7,1,8,"50 elementen in 7 groepen, 1 volle groep met 8 elementen")
+		Do ..Gelijkmatig(52,7,3,8,"52 elementen in 7 groepen, 3 volle groepen met 8 elementen")
+]]></Implementation>
+</Method>
+
+<Method name="TestMaximumInvullingPerGroepGreedy">
+<Implementation><![CDATA[
+		Do ..MaximumInvullingPerGroepGreedy(1,1,1,1,"1 elementen verdelen met max 1 per groep, 1 elementen in laatste groep.")
+		Do ..MaximumInvullingPerGroepGreedy(13,5,3,3,"13 elementen verdelen met max 5 per groep, 3 elementen in laatste groep.")
+		Do ..MaximumInvullingPerGroepGreedy(26,5,6,1,"26 elementen verdelen met max 5 per groep, 1 elementen in laatste groep.")
+		Do ..MaximumInvullingPerGroepGreedy(1024,37,28,25,"1024 elementen verdelen met max 37 per groep, 25 elementen in laatste groep.")
+		Do ..MaximumInvullingPerGroepGreedy(10,7,2,3,"10 elementen verdelen met max 7 per groep, 3 elementen in laatste groep.")
+]]></Implementation>
+</Method>
+
+<Method name="TestMaximumInvullingPerGroepNonGreedy">
+<Implementation><![CDATA[
+		Do ..MaximumInvullingPerGroepNonGreedy(1,1,1,1,1,"1 elementen verdelen met max 1 per groep")
+		Do ..MaximumInvullingPerGroepNonGreedy(13,5,4,1,3,"13 elementen verdelen met max 5 per groep")
+		Do ..MaximumInvullingPerGroepNonGreedy(17,5,4,1,4,"17 elementen verdelen met max 5 per groep")
+		Do ..MaximumInvullingPerGroepNonGreedy(1024,37,36,16,28,"1024 elementen verdelen met max 37 per groep")
+		Do ..MaximumInvullingPerGroepNonGreedy(10,7,5,0,2,"10 elementen verdelen met max 7 per groep, 5 elementen in laatste groep.")
+		Do ..MaximumInvullingPerGroepNonGreedy(22,12,11,0,2,"22 elementen verdelen met max 12 per groep, 11 elementen in laatste groep.")
+]]></Implementation>
+</Method>
+
+<Method name="MaximumInvullingPerGroepNonGreedy">
+<FormalSpec>AantalElementen:%Integer,MaximumInvulling:%Integer,AantalInNonGreedy:%Integer,AantalGroepenMetMaximum:%Integer,TotaalAantalGroepen:%Integer,Info:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+		Set GroepVerdeler = ##class(TECH.Algo.GroepVerdeler).%New()
+		#dim Verdeling As %ArrayOfDataTypes = GroepVerdeler.MaximumInvullingPerGroepNonGreedy(AantalElementen,MaximumInvulling)		
+		Set VerdelingIt = ##class(TECH.ListIterator).%New(Verdeling)
+		#dim Aantal As %Integer = 0
+		#dim TotaalAantal As %Integer = 0
+		#dim i As %Integer
+		For i=1:1:AantalGroepenMetMaximum {
+			Do $$$AssertTrue(VerdelingIt.HasNext(),Info)
+			Set Aantal = VerdelingIt.Next()
+			Set TotaalAantal = TotaalAantal + Aantal
+			Do $$$AssertEquals(Aantal,MaximumInvulling,Info)
+		}
+		For i=(AantalGroepenMetMaximum+1):1:TotaalAantalGroepen {
+			Do $$$AssertTrue(VerdelingIt.HasNext(),Info)
+			Set Aantal = VerdelingIt.Next()
+			Set TotaalAantal = TotaalAantal + Aantal
+			Do $$$AssertEquals(Aantal,AantalInNonGreedy,Info)
+		}
+		Do $$$AssertFalse(VerdelingIt.HasNext(),Info)
+		Do $$$AssertEquals(TotaalAantal,AantalElementen,Info)
+]]></Implementation>
+</Method>
+
+<Method name="MaximumInvullingPerGroepGreedy">
+<FormalSpec>AantalElementen:%Integer,MaximumInvulling:%Integer,TotaalAantalGroepen:%Integer,AantalLaatsteGroep:%Integer,Info:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+		Set GroepVerdeler = ##class(TECH.Algo.GroepVerdeler).%New()
+		#dim Verdeling As %ArrayOfDataTypes = GroepVerdeler.MaximumInvullingPerGroepGreedy(AantalElementen,MaximumInvulling)		
+		Set VerdelingIt = ##class(TECH.ListIterator).%New(Verdeling)
+		#dim Aantal As %Integer = 0
+		#dim TotaalAantal As %Integer = 0
+		#dim i As %Integer
+		For i=1:1:(TotaalAantalGroepen-1) {
+			Do $$$AssertTrue(VerdelingIt.HasNext(),Info)
+			Set Aantal = VerdelingIt.Next()
+			Set TotaalAantal = TotaalAantal + Aantal
+			Do $$$AssertEquals(Aantal,MaximumInvulling,Info)
+		}
+		
+		Do $$$AssertTrue(VerdelingIt.HasNext(),Info)
+		Set Aantal = VerdelingIt.Next()
+		Set TotaalAantal = TotaalAantal + Aantal
+		Do $$$AssertEquals(Aantal,AantalLaatsteGroep,Info)
+		
+		Do $$$AssertFalse(VerdelingIt.HasNext(),Info)
+		Do $$$AssertEquals(TotaalAantal,AantalElementen,Info)
+]]></Implementation>
+</Method>
+
+<Method name="Gelijkmatig">
+<FormalSpec>AantalElementen:%Integer,AantalGroepen:%Integer,AantalVolleGroepen:%Integer,AantalElementenInVolleGroep:%Integer,Info:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+		Set GroepVerdeler = ##class(TECH.Algo.GroepVerdeler).%New()
+		#dim Verdeling As %ArrayOfDataTypes = GroepVerdeler.GelijkmatigInGroepen(AantalElementen,AantalGroepen)		
+		Set VerdelingIt = ##class(TECH.ListIterator).%New(Verdeling)
+		For i=1:1:(AantalVolleGroepen){
+			Do $$$AssertTrue(VerdelingIt.HasNext(),Info)
+			Do $$$AssertEquals(VerdelingIt.Next(),AantalElementenInVolleGroep,Info)
+		}
+		For i=(AantalGroepen+1):1:AantalGroepen{
+			Do $$$AssertTrue(VerdelingIt.HasNext(),"Overige : "_Info)
+			Do $$$AssertEquals(VerdelingIt.Next(),(AantalElementenInVolleGroep-1),"Overige : "_Info)	
+		}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ObjectUtils/WaardenKopieerder/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ObjectUtils/WaardenKopieerder/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ObjectUtils/WaardenKopieerder/Test.cls.xml	(revision 957)
@@ -0,0 +1,199 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ObjectUtils.WaardenKopieerder.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="aString">
+<Default>aString</Default>
+</Parameter>
+
+<Parameter name="aInteger">
+<Default>10</Default>
+</Parameter>
+
+<Parameter name="aBoolean">
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="aDefaultString">
+<Default>aDefaultString</Default>
+</Parameter>
+
+<Parameter name="aDefaultInteger">
+<Default>5</Default>
+</Parameter>
+
+<Parameter name="aDefaultBoolean">
+<Default>0</Default>
+</Parameter>
+
+<Property name="WaardenToepasser">
+<Type>TECH.ObjectUtils.WaardenKopieerder</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	set ..WaardenToepasser = ..GeefWaardenToepasser()
+]]></Implementation>
+</Method>
+
+<Method name="GeefWaardenToepasser">
+<Private>1</Private>
+<ReturnType>TECH.ObjectUtils.WaardenKopieerder</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.ObjectUtils.impl.WaardenKopieerder).%New()
+]]></Implementation>
+</Method>
+
+<Method name="TestGelijkePropertiesZijnNietGewijzigd">
+<Implementation><![CDATA[
+	#define Overwrite 1 
+	
+	set Object1 = ##class(vhUnitTest.TECH.ObjectUtils.WaardenKopieerder.Object).%New()
+	set Object1.aString = "aString"
+	set Object1.aInteger = 1
+	set Object2 = ##class(vhUnitTest.TECH.ObjectUtils.WaardenKopieerder.Object).%New()
+	set Object2.aString = "aString"
+	set Object2.aInteger = 2
+	
+	#dim Resultaat As TECH.ObjectUtils.KopieerWaardenResultaat =  ..WaardenToepasser.KopieerWaarden(Object1,Object2,$$$Overwrite)
+		
+	do $$$AssertFalse(Resultaat.GewijzigdeProperties.Find("aString"))
+	do $$$AssertTrue(Resultaat.GewijzigdeProperties.Find("aInteger"))
+]]></Implementation>
+</Method>
+
+<Method name="TestLeegObject">
+<Implementation><![CDATA[
+	set Object = ##class(vhUnitTest.TECH.ObjectUtils.WaardenKopieerder.Object).%New()
+	#dim ObjectDefaults As vhUnitTest.TECH.ObjectUtils.WaardenKopieerder.Object = ..GeefObjectDefaults()
+	
+	do ..WaardenToepasser.KopieerWaarden(Object,ObjectDefaults)
+
+	do ..AssertDefaultValues(Object)
+]]></Implementation>
+</Method>
+
+<Method name="TestWaardenIngevuld">
+<Implementation><![CDATA[
+	#dim Object As vhUnitTest.TECH.ObjectUtils.WaardenKopieerder.Object = ..GeefObject()
+	#dim ObjectDefaults As vhUnitTest.TECH.ObjectUtils.WaardenKopieerder.Object = ..GeefObjectDefaults()
+	
+	do ..WaardenToepasser.KopieerWaarden(Object,ObjectDefaults)
+
+	do ..AssertValues(Object)
+]]></Implementation>
+</Method>
+
+<Method name="TestWaardenIngevuldOverschrijven">
+<Implementation><![CDATA[
+	#define Overwrite 1 
+	
+	#dim Object As vhUnitTest.TECH.ObjectUtils.WaardenKopieerder.Object = ..GeefObject()
+	#dim ObjectDefaults As vhUnitTest.TECH.ObjectUtils.WaardenKopieerder.Object = ..GeefObjectDefaults()
+	
+	do ..WaardenToepasser.KopieerWaarden(Object,ObjectDefaults,$$$Overwrite)
+
+	do ..AssertDefaultValues(Object)
+]]></Implementation>
+</Method>
+
+<Method name="AssertDefaultValues">
+<FormalSpec>Object:vhUnitTest.TECH.ObjectUtils.WaardenKopieerder.Object</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do $$$AssertEquals(Object.aString,..#aDefaultString)
+	do $$$AssertEquals(Object.aInteger,..#aDefaultInteger)
+	do $$$AssertEquals(Object.aBoolean,..#aDefaultBoolean)
+	do $$$AssertEquals(Object.aEmbeddedObject.aString,..#aDefaultString)
+	do $$$AssertEqualsList(Object.aListOfDataTypes,..GetListOfDataTypesDefaults())
+	do $$$AssertEqualsList(Object.aArrayOfDataTypes,..GetArrayOfDataTypesDefaults())
+]]></Implementation>
+</Method>
+
+<Method name="AssertValues">
+<FormalSpec>Object:vhUnitTest.TECH.ObjectUtils.WaardenKopieerder.Object</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do $$$AssertEquals(Object.aString,..#aString)
+	do $$$AssertEquals(Object.aInteger,..#aInteger)
+	do $$$AssertEquals(Object.aBoolean,..#aBoolean)
+	do $$$AssertEquals(Object.aEmbeddedObject.aString,..#aString)
+	do $$$AssertEqualsList(Object.aListOfDataTypes,..GetListOfDataTypes())
+	do $$$AssertEqualsList(Object.aArrayOfDataTypes,..GetArrayOfDataTypes())
+]]></Implementation>
+</Method>
+
+<Method name="GeefObject">
+<Private>1</Private>
+<ReturnType>vhUnitTest.TECH.ObjectUtils.WaardenKopieerder.Object</ReturnType>
+<Implementation><![CDATA[
+	set Object = ##class(vhUnitTest.TECH.ObjectUtils.WaardenKopieerder.Object).%New()
+	set Object.aString = ..#aString
+	set Object.aBoolean = ..#aBoolean
+	set Object.aInteger = ..#aInteger
+	set Object.aEmbeddedObject.aString = ..#aString
+	set Object.aListOfDataTypes = ..GetListOfDataTypes()
+	set Object.aArrayOfDataTypes = ..GetArrayOfDataTypes()
+	quit Object
+]]></Implementation>
+</Method>
+
+<Method name="GeefObjectDefaults">
+<Private>1</Private>
+<ReturnType>vhUnitTest.TECH.ObjectUtils.WaardenKopieerder.Object</ReturnType>
+<Implementation><![CDATA[
+	set ObjectDefaults = ##class(vhUnitTest.TECH.ObjectUtils.WaardenKopieerder.Object).%New()
+	set ObjectDefaults.aString = ..#aDefaultString
+	set ObjectDefaults.aInteger = ..#aDefaultInteger
+	set ObjectDefaults.aBoolean = ..#aDefaultBoolean
+	set ObjectDefaults.aEmbeddedObject.aString = ..#aDefaultString
+	set ObjectDefaults.aListOfDataTypes = ..GetListOfDataTypesDefaults()
+	set ObjectDefaults.aArrayOfDataTypes = ..GetArrayOfDataTypesDefaults()
+	quit ObjectDefaults
+]]></Implementation>
+</Method>
+
+<Method name="GetListOfDataTypes">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.ListUtils).CreateListOfDataTypes(1,2,3)
+]]></Implementation>
+</Method>
+
+<Method name="GetListOfDataTypesDefaults">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.ListUtils).CreateListOfDataTypes("A","B","C")
+]]></Implementation>
+</Method>
+
+<Method name="GetArrayOfDataTypes">
+<Private>1</Private>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
+	do ArrayOfDataTypes.SetAt(1,1)
+	do ArrayOfDataTypes.SetAt(2,2)
+	do ArrayOfDataTypes.SetAt(3,3)
+	quit ArrayOfDataTypes
+]]></Implementation>
+</Method>
+
+<Method name="GetArrayOfDataTypesDefaults">
+<Private>1</Private>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
+	do ArrayOfDataTypes.SetAt("A","A")
+	do ArrayOfDataTypes.SetAt("B","B")
+	do ArrayOfDataTypes.SetAt("C","C")
+	quit ArrayOfDataTypes
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/impl/PersistenteKlasse.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/impl/PersistenteKlasse.cls.xml	(revision 0)
+++ vhUnitTest/TECH/impl/PersistenteKlasse.cls.xml	(revision 957)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.impl.PersistenteKlasse">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="ThrowExceptie">
+<Type>%Boolean</Type>
+</Property>
+
+<Method name="%OnBeforeSave">
+<FormalSpec>insert:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	If (..ThrowExceptie)
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Dit is de foutmelding"))
+	}
+	Else
+	{
+		Quit $$$ERROR($$$GeneralError,"Een statusmelding")
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^vhUnitTestC21C.Persistente8C61D</DataLocation>
+<DefaultData>PersistenteKlasseDefaultData</DefaultData>
+<IdLocation>^vhUnitTestC21C.Persistente8C61D</IdLocation>
+<IndexLocation>^vhUnitTestC21C.Persistente8C61I</IndexLocation>
+<StreamLocation>^vhUnitTestC21C.Persistente8C61S</StreamLocation>
+<Data name="PersistenteKlasseDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>x1</Value>
+</Value>
+<Value name="3">
+<Value>ThrowExceptie</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/OBJ/Validator/ValidatorTest.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/OBJ/Validator/ValidatorTest.cls.xml	(revision 0)
+++ vhUnitTest/TECH/OBJ/Validator/ValidatorTest.cls.xml	(revision 957)
@@ -0,0 +1,127 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.OBJ.Validator.ValidatorTest">
+<Description>
+
+do ##class(vhUnitTest.Manager).RunTest("/Display=all","TECH.OBJ.Validator.Validator")</Description>
+<ClassType/>
+<IncludeCode>TECH.Error</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase,TECH.Error.ErrorAdaptor</Super>
+<Inheritance>right</Inheritance>
+
+<Property name="ResultTrap">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	do ##super()
+	$$$TECHErrorTrapOff
+]]></Implementation>
+</Method>
+
+<Method name="TestSuccesfullValidation">
+<Implementation><![CDATA[
+	set Object = ##class(Object).%New()
+	set Object.Property1 = 1
+	set Object.Property2 = 1
+	set ..ResultTrap = 0 
+	
+	set Logger = ##class(vhLib.Logger).%New("UnitTest")
+	set Validator = ##class(TECH.OBJ.Validator).%New(Logger)
+	
+	do Validator.ValidateObject(Object)
+	
+	do $$$AssertFalse(..ResultTrap,"Succesfull Validation")
+]]></Implementation>
+</Method>
+
+<Method name="TestFailedValidation">
+<Implementation><![CDATA[
+	$$$LocalErrorTrapOnLabeled("TestFailedValidation","")
+	
+	set Object = ##class(Object).%New()
+	set Object.Property1 = 1
+	
+	set ..ResultTrap = 0
+	
+	set Logger = ##class(vhLib.Logger).%New("UnitTest")
+	set Validator = ##class(TECH.OBJ.Validator).%New(Logger)
+	
+	set sc = Validator.ValidateObject(Object)
+	
+	do $$$AssertTrue(..ResultTrap,"Failed Validation")	
+	
+	$$$LocalErrorTrapOff
+	
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="TestSuccesfullReturnType">
+<Implementation><![CDATA[
+	set ..ResultTrap = 0
+	do ..SuccesfullReturnType()
+	do $$$AssertFalse(..ResultTrap,"Succesfull returntype validation")
+]]></Implementation>
+</Method>
+
+<Method name="SuccesfullReturnType">
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	set Logger = ##class(vhLib.Logger).%New("UnitTest")
+	do ##class(TECH.OBJ.Validator).%New().ValidateReturnType(1)
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="TestFailedReturnType">
+<Implementation><![CDATA[
+	$$$LocalErrorTrapOnLabeled("TestFailedReturnType","")
+	set ..ResultTrap = 0 
+	Set $ZTRAP = "Catch"
+	do ..FailedReturnType()
+Catch Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	do $$$AssertTrue(Exception.GeefOmschrijving()["Validate van %Library.Integer is niet gelukt.","Failed returntype validation")	
+
+	$$$LocalErrorTrapOff
+	
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="FailedReturnType">
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	set Logger = ##class(vhLib.Logger).%New("UnitTest")
+	do ##class(TECH.OBJ.Validator).%New().ValidateReturnType("A")
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="TrapHandler">
+<FormalSpec>Label,Options</FormalSpec>
+<Implementation><![CDATA[
+	if ( $ECODE["ObjectValidationFailed" ) && ( Label = "TestFailedValidation" ) {
+	  	$$$ClearError
+	}
+	elseif ( $ECODE["InvalidOutput" ) && ( Label = "TestFailedReturnType" ) {
+		$$$ClearError
+	}
+	else{
+		$$$StdHandling		
+	}
+	set ..ResultTrap = 1
+	quit
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Persistentie/TestGlobalNode.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Persistentie/TestGlobalNode.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Persistentie/TestGlobalNode.cls.xml	(revision 957)
@@ -0,0 +1,113 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Persistentie.TestGlobalNode">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Node">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/display=all","TECH.Persistentie")</Description>
+<Type>TECH.Persistentie.GlobalNode</Type>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ^vhUnitTestTECHGlobal(1, "a")="de eerste waarde\de tweede waarde\de derde waarde"
+	Set ..Node = ##class(TECH.Persistentie.GlobalPersistenceMgr).Instance().GeefNode("^vhUnitTestTECHGlobal", 1, "a")
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Kill ^vhUnitTestTECHGlobal(1, "a")
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefPiece">
+<Implementation><![CDATA[	Do $$$AssertEquals(..Node.GeefPiece(2), "de tweede waarde")
+]]></Implementation>
+</Method>
+
+<Method name="TestZetPiece">
+<Implementation><![CDATA[
+	Do ..Node.ZetPiece(2, "de tweede waarde is gewijzigd")
+	Do $$$AssertEquals(..Node.GeefPiece(2), "de tweede waarde is gewijzigd")
+]]></Implementation>
+</Method>
+
+<Method name="TestHeeftPiece">
+<Implementation><![CDATA[
+	Do $$$AssertTrue(..Node.HeeftPiece(1))
+	Do $$$AssertTrue(..Node.HeeftPiece(3))
+	Do $$$AssertFalse(..Node.HeeftPiece(4))
+	
+	Do ..Node.ZetPiece(5, "Piece 5")
+	Do $$$AssertFalse(..Node.HeeftPiece(4))
+	Do $$$AssertTrue(..Node.HeeftPiece(5))
+]]></Implementation>
+</Method>
+
+<Method name="TestIsGewijzigd">
+<Implementation><![CDATA[
+	#dim InitieeleWaarde = ..Node.GeefPiece(2)
+	Do $$$AssertFalse(..Node.IsGewijzigd(),"initieel waarde niet gewijzigd")
+	
+	Do ..Node.ZetPiece(2,InitieeleWaarde)
+	Do $$$AssertFalse(..Node.IsGewijzigd(),"initiele waarde overschreven met zichzelf geen wijziging")
+	
+	Do ..Node.ZetPiece(2, "de tweede waarde is gewijzigd")
+	Do $$$AssertTrue(..Node.IsGewijzigd())
+	
+	Do ..Node.ZetPiece(2,InitieeleWaarde)
+	Do $$$AssertFalse(..Node.IsGewijzigd(),"uiteindelijke waarde gelijk aan initiele waarde --> niet gewijzgigd")
+]]></Implementation>
+</Method>
+
+<Method name="TestSave">
+<Implementation><![CDATA[
+	Do ..Node.ZetPiece(2, "de tweede waarde is gewijzigd")
+	Do ..Node.Save()
+	Do $$$AssertEquals("de tweede waarde is gewijzigd", $Piece(^vhUnitTestTECHGlobal(1, "a"), "\", 2))
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefDelimitedString">
+<Implementation><![CDATA[
+	Do $$$AssertEquals("de eerste waarde\de tweede waarde\de derde waarde", ..Node.GeefDelimitedString())
+	
+	Do ..Node.ZetPiece(2, "de tweede waarde is gewijzigd")
+	Do $$$AssertEquals("de eerste waarde\de tweede waarde is gewijzigd\de derde waarde", ..Node.GeefDelimitedString())
+]]></Implementation>
+</Method>
+
+<Method name="TestIsLeeg">
+<Implementation><![CDATA[
+	Do $$$AssertFalse(..Node.IsLeeg())
+	
+	Do ..Node.ZetPiece(1, "")
+	Do ..Node.ZetPiece(2, "")
+	Do ..Node.ZetPiece(3, "")
+	Do ..Node.ZetPiece(4, "")
+	
+	Do $$$AssertTrue(..Node.IsLeeg())
+]]></Implementation>
+</Method>
+
+<Method name="TestDelete">
+<Implementation><![CDATA[
+	Do $$$AssertEquals(1, $Data(^vhUnitTestTECHGlobal(1, "a")))
+	Do ..Node.Delete()
+	Do $$$AssertEquals(0, $Data(^vhUnitTestTECHGlobal(1, "a")))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Algo/Stapeling/UT3DObject.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/Stapeling/UT3DObject.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/Stapeling/UT3DObject.cls.xml	(revision 957)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Algo.Stapeling.UT3DObject">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Algo.Stapeling.I3DObject</Super>
+<Inheritance>right</Inheritance>
+
+<Property name="Breedte">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Diepte">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Hoogte">
+<Type>%Integer</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Breedte:%Integer,Diepte:%Integer,Hoogte:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Breedte = Breedte
+	Set ..Diepte = Diepte
+	Set ..Hoogte = Hoogte
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefBreedte">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ..Breedte
+]]></Implementation>
+</Method>
+
+<Method name="GeefDiepte">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ..Diepte
+]]></Implementation>
+</Method>
+
+<Method name="GeefHoogte">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ..Hoogte
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Persistent/OnAfterSave/TestExceptions.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Persistent/OnAfterSave/TestExceptions.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Persistent/OnAfterSave/TestExceptions.cls.xml	(revision 957)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Persistent.OnAfterSave.TestExceptions">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestMetRuntimeException">
+<Implementation><![CDATA[	do $$$AssertException("BewaarMetRuntimeException", "TECH.Exceptions.SaveFailedException", "<DIVIDE>" )
+]]></Implementation>
+</Method>
+
+<Method name="BewaarMetRuntimeException">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set DummyData = ##class(vhUnitTest.TECH.Persistent.OnAfterSave.DummyTableMetErrorOnAfterSave).%New()
+	set DummyData.Dummy = "IK_TRIGGER_EEN_DATA_WIJZIGING"
+	Do DummyData.Save()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Exceptions/Exception/IsMajor/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Exceptions/Exception/IsMajor/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Exceptions/Exception/IsMajor/Test.cls.xml	(revision 957)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Exceptions.Exception.IsMajor.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestCreatieBaseExceptiexMajorError">
+<Implementation><![CDATA[
+	#dim Exceptie As TECH.Exceptions.BaseException = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(), $$$DummyString)
+	Do $$$AssertTrue(Exceptie.IsMajor())
+]]></Implementation>
+</Method>
+
+<Method name="TestBaseExceptieAangepastNaarMinorxMinorError">
+<Implementation><![CDATA[
+	#dim Exceptie As TECH.Exceptions.BaseException = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(), $$$DummyString)
+	Do Exceptie.ZetSchaal(##class(TECH.Exceptions.enu.Schaal).Minor())
+	Do $$$AssertFalse(Exceptie.IsMajor())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/CSP/TestRequest.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/CSP/TestRequest.cls.xml	(revision 0)
+++ vhUnitTest/TECH/CSP/TestRequest.cls.xml	(revision 957)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.CSP.TestRequest">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/display=all/debug","TECH.CSP.TestRequest")</Description>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestGeefGebruikerNaam">
+<Implementation><![CDATA[
+		Set CSPRequest = ##class(%CSP.Request).%New()
+		Set CSPRequest.CgiEnvs("REMOTE_USER") = "UnitTestGebruiker"
+		Set CSPRequest.CgiEnvs("AUTH_TYPE") = "NTLM"
+		Set Request = ##class(TECH.CSP.Request).%New(CSPRequest)
+		Do $$$AssertEquals(Request.GeefGebruikerNaam(),"UnitTestGebruiker","GebruikerNaam is correct.")
+]]></Implementation>
+</Method>
+
+<Method name="TestIsWindowsAuthenticatie">
+<Implementation><![CDATA[
+		Set CSPRequest = ##class(%CSP.Request).%New()
+		Set CSPRequest.CgiEnvs("AUTH_TYPE") = "NTLM"
+		Set Request = ##class(TECH.CSP.Request).%New(CSPRequest)
+		Do $$$AssertTrue(Request.IsWindowsAuthenticatie(),"Windows authenticatie is actief")	
+		
+		Set CSPRequest = ##class(%CSP.Request).%New()
+		Set CSPRequest.CgiEnvs("AUTH_TYPE") = "Negotiate"
+		Set Request = ##class(TECH.CSP.Request).%New(CSPRequest)
+		Do $$$AssertTrue(Request.IsWindowsAuthenticatie(),"Windows authenticatie is actief")
+		
+		Set CSPRequest = ##class(%CSP.Request).%New()
+		Set CSPRequest.CgiEnvs("AUTH_TYPE") = "GeenAuth"
+		Set Request = ##class(TECH.CSP.Request).%New(CSPRequest)
+		Do $$$AssertFalse(Request.IsWindowsAuthenticatie(),"Windows authenticatie is niet actief")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Concurrency/TestTxScopeGenestRequired.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Concurrency/TestTxScopeGenestRequired.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Concurrency/TestTxScopeGenestRequired.cls.xml	(revision 957)
@@ -0,0 +1,147 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Concurrency.TestTxScopeGenestRequired">
+<Description>
+Tests op geneste TxScope met optie "Required".</Description>
+<Import>TECH.Concurrency</Import>
+<Super>AbstractTxTest</Super>
+
+<Method name="TestNieuweRequiredScopeGenest">
+<Implementation><![CDATA[
+	#dim Scope As zTryout.PRA.Concurrency.TxScope
+	#dim RuimereScope As zTryout.PRA.Concurrency.TxScope
+	
+	Set RuimereScope = ##class(TxScope).StartNieuwe()
+	Set Scope = ##class(TxScope).StartNieuwe()
+
+	Quit:'($$$AssertEquals(RuimereScope.GeefTransactie(), Scope.GeefTransactie()))
+	Quit:'($$$AssertEquals(##class(TxStatus).Gestart(), Scope.GeefTransactie().GeefStatus()))
+	
+	Do Scope.Rollback()
+	Do RuimereScope.Rollback()
+]]></Implementation>
+</Method>
+
+<Method name="TestCommitRequiredScopeGenest">
+<Implementation><![CDATA[
+	#dim Scope As zTryout.PRA.Concurrency.TxScope
+	#dim RuimereScope As zTryout.PRA.Concurrency.TxScope
+	
+	Set RuimereScope = ##class(TxScope).StartNieuwe()
+	Set Scope = ##class(TxScope).StartNieuwe()
+	Do Scope.Commit()
+
+	Quit:'($$$AssertEquals(##class(TxStatus).Committed(), Scope.GeefStatus()))
+	Quit:'($$$AssertEquals(##class(TxStatus).Gestart(), Scope.GeefTransactie().GeefStatus()))
+	
+	Do RuimereScope.Rollback()
+]]></Implementation>
+</Method>
+
+<Method name="TestRollbackRequiredScopeGenest">
+<Implementation><![CDATA[
+	#dim Scope As zTryout.PRA.Concurrency.TxScope
+	#dim RuimereScope As zTryout.PRA.Concurrency.TxScope
+
+	Set RuimereScope = ##class(TxScope).StartNieuwe()
+	Set Scope = ##class(TxScope).StartNieuwe()
+	Do Scope.Rollback()
+
+	Quit:'($$$AssertEquals(##class(TxStatus).RolledBack(), Scope.GeefStatus()))
+	Quit:'($$$AssertEquals(##class(TxStatus).RolledBack(), Scope.GeefTransactie().GeefStatus()))
+	
+	Do RuimereScope.Rollback()
+]]></Implementation>
+</Method>
+
+<Method name="TestGenestMetRepeatableRead">
+<Implementation><![CDATA[
+	#dim Scope As zTryout.PRA.Concurrency.TxScope
+	#dim RuimereScope As zTryout.PRA.Concurrency.TxScope
+	
+	Set RuimereScope = ##class(TxScope).StartNieuwe()
+	
+	Try {
+		Set Scope = ##class(TxScope).StartNieuwe(##class(TxScopeOptie).Required(), ##class(TxIsolatieLevel).RepeatableRead())
+		Do $$$AssertTrue(0, "Nesten met ander isolation level is niet toegestaan.")
+		Do Scope.Rollback()
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertTrue(1)
+	}
+	
+	Do RuimereScope.Rollback()
+]]></Implementation>
+</Method>
+
+<Method name="TestGenestMetRepeatableReadOmgekeerd">
+<Implementation><![CDATA[
+	#dim Scope As zTryout.PRA.Concurrency.TxScope
+	#dim RuimereScope As zTryout.PRA.Concurrency.TxScope
+	
+	Set RuimereScope = ##class(TxScope).StartNieuwe(##class(TxScopeOptie).Required(), ##class(TxIsolatieLevel).RepeatableRead())
+	
+	Try {
+		Set Scope = ##class(TxScope).StartNieuwe(##class(TxScopeOptie).Required(), ##class(TxIsolatieLevel).ReadCommitted())
+		Do $$$AssertTrue(0, "Nesten met ander isolation level is niet toegestaan.")
+		Do Scope.Rollback()
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertTrue(1)
+	}
+	
+	Do RuimereScope.Rollback()
+]]></Implementation>
+</Method>
+
+<Method name="TestGenestMetRepeatableReadOngespecifieerd">
+<Implementation><![CDATA[
+	#dim Scope As zTryout.PRA.Concurrency.TxScope
+	#dim RuimereScope As zTryout.PRA.Concurrency.TxScope
+	
+	Set RuimereScope = ##class(TxScope).StartNieuwe(##class(TxScopeOptie).Required(), ##class(TxIsolatieLevel).RepeatableRead())
+	
+	Try {
+		Set Scope = ##class(TxScope).StartNieuwe(##class(TxScopeOptie).Required(), "")
+		Do $$$AssertEquals(##class(TxIsolatieLevel).RepeatableRead(), ##class(TxScope).Huidige().GeefTransactie().GeefIsolatieLevel())
+		Do Scope.Rollback()
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertTrue(0)
+	}
+	
+	Do RuimereScope.Rollback()
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[/* Deze test gaan we nodig hebben wanneer geneste transacties ondersteund worden. */
+]]></Content>
+</UDLText>
+
+<Method name="DisabledTestGenestMetRequiresNew">
+<Implementation><![CDATA[
+	#dim Scope As zTryout.PRA.Concurrency.TxScope
+	#dim RuimereScope As zTryout.PRA.Concurrency.TxScope
+	
+	Set RuimereScope = ##class(TxScope).StartNieuwe()
+	
+	Set Scope = ##class(TxScope).StartNieuwe(##class(TxScopeOptie).RequiresNew())
+	
+		#dim VoorbeeldObject As VoorbeeldPersistent
+		Set VoorbeeldObject = ##class(VoorbeeldPersistent).%New()
+		Do VoorbeeldObject.Save()
+		#dim VoorbeeldObjectId As %Integer
+		Set VoorbeeldObjectId = VoorbeeldObject.%Id()
+	
+	Do Scope.Rollback()
+	
+	Quit:'($$$AssertNotTrue(##class(VoorbeeldPersistent).%ExistsId(VoorbeeldObjectId)))
+	
+	Do RuimereScope.Rollback()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/Tools/ObjectDumper/BaseObject.cls.xml
===================================================================
diff -u
--- vhUnitTest/Tools/ObjectDumper/BaseObject.cls.xml	(revision 0)
+++ vhUnitTest/Tools/ObjectDumper/BaseObject.cls.xml	(revision 957)
@@ -0,0 +1,89 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Tools.ObjectDumper.BaseObject">
+<Super>%RegisteredObject</Super>
+
+<Property name="PrivateAsString">
+<Type>%String</Type>
+<InitialExpression>"string"</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="PropertyAsString">
+<Type>%String</Type>
+</Property>
+
+<Property name="PropertyAsInteger">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="PropertyAsBoolean">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="PropertyAsDecimal">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="PropertyAsList">
+<Type>%List</Type>
+</Property>
+
+<Property name="PropertyAsSerialObject">
+<Type>vhUnitTest.Tools.ObjectDumper.SerialObject</Type>
+</Property>
+
+<Property name="PropertyAsObject">
+<Type>vhUnitTest.Tools.ObjectDumper.Object</Type>
+</Property>
+
+<Property name="PropertyAsEnumeration">
+<Type>vhUnitTest.Tools.ObjectDumper.Enumeration</Type>
+</Property>
+
+<Property name="PropertyAsObjectZonderPackage">
+<Type>Object</Type>
+</Property>
+
+<Property name="PropertyAsListOfDataTypes">
+<Type>%String</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="PropertyAsListOfObjects">
+<Type>vhUnitTest.Tools.ObjectDumper.Object</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="PropertyAsArrayOfDataTypes">
+<Type>%String</Type>
+<Collection>array</Collection>
+</Property>
+
+<Property name="PropertyAsArrayOfObjects">
+<Type>vhUnitTest.Tools.ObjectDumper.Object</Type>
+<Collection>array</Collection>
+</Property>
+
+<Property name="PropertyAsMultiDim">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Property name="EmptyProperty">
+<Type>%String</Type>
+</Property>
+
+<Property name="EmptyObject">
+<Type>vhUnitTest.Tools.ObjectDumper.Object</Type>
+</Property>
+
+<Method name="GeefPrivateAsString">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..PrivateAsString
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/Tools/Mock/MockClassBase/VerwachtMethodCall/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/Tools/Mock/MockClassBase/VerwachtMethodCall/Test.cls.xml	(revision 0)
+++ vhUnitTest/Tools/Mock/MockClassBase/VerwachtMethodCall/Test.cls.xml	(revision 957)
@@ -0,0 +1,86 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestNietsIsVerwachtxxxVerifieerGeeftGeenFouten">
+<Implementation><![CDATA[
+	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock).%New()
+	Do Mock.IndienMethodCall("Methode")
+	Do Mock.Methode()
+	Do Mock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="TestMethodeAangeroepenxxxVerifieerVerwachtMethodeAanroep">
+<Implementation><![CDATA[
+	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock).%New()
+	Do Mock.VerwachtMethodCall("Methode")
+	Do Mock.Methode()
+	Do Mock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="TestMethodeNietAangeroepenxxxVerifieerGeeftExceptie">
+<Implementation><![CDATA[
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Methodcall 'Methode()' is niet opgeroepen.")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+
+	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock).%New()
+	Do Mock.VerwachtMethodCall("Methode")
+	Do Mock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="TestMethode2KeerAangeroepenxxxVerifieerVerwachteMethode2KeerAangeroepen">
+<Implementation><![CDATA[
+	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock).%New()
+	Do Mock.VerwachtMethodCall("Methode").ExactAantalKeer(2)
+	Do Mock.Methode()
+	Do Mock.Methode()
+	Do Mock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="TestMethode1KeerAangeroepenxxxVerifieerVerwachteMethode2KeerAangeroepenVerifieerGeeftExceptie">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Methodcall 'Methode()' is 1 keer opgeroepen, er was 2 keer verwacht")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+
+	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock).%New()
+	Do Mock.VerwachtMethodCall("Methode").ExactAantalKeer(2)
+	Do Mock.Methode()
+	Do Mock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="TestMethode2KeerAangeroepenxxxVerifieerVerwachteMethode1KeerAangeroepenVerifieerGeeftExceptie">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Methodcall 'Methode()' is 2 keer opgeroepen, er was 1 keer verwacht")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+
+	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock).%New()
+	Do Mock.VerwachtMethodCall("Methode").ExactAantalKeer(1)
+	Do Mock.Methode()
+	Do Mock.Methode()
+	Do Mock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="TestMethodeMetParamNietAangeroepenxxxVerifieerGeeftExceptie">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Methodcall 'MethodeMetParameter(A)' is niet opgeroepen")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+
+	Set Mock = ##class(vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock).%New()
+	Do Mock.VerwachtMethodCall("MethodeMetParameter","A").ExactAantalKeer(1)
+	Do Mock.VerwachtMethodCall("MethodeMetParameter","B").ExactAantalKeer(1)
+	Do Mock.MethodeMetParameter("B")
+	Do Mock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/MailUtils.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/MailUtils.cls.xml	(revision 0)
+++ vhUnitTest/TECH/MailUtils.cls.xml	(revision 957)
@@ -0,0 +1,71 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.MailUtils">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestEmailadressen">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/Display=all","TECH.MailUtils")</Description>
+<Implementation><![CDATA[
+	Set CacheNsLookUp = 1
+	Set NsLookUp = 1 
+	
+	
+	Set mail = "sjonslutter@xs4all.nl"
+	Do $$$AssertTrue(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")	
+	Set mail = "Joren.Blancquaert@skynet.12"
+	Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")	
+	Set mail = "Joren"
+	Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")
+	Set mail = "wv.vanhoecke@be"
+	Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")
+	Set mail = "JorenBlancquaert@"
+	Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")
+	Set mail = "Joren.Blancquaert@"
+	Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")
+	Set mail = "Joren_Blancquaert@ab.a"
+	Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")
+	Set mail = "Joren_Blancq%uaert@ab.a"
+	Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")
+	Set mail = "Joren.Blancquaert@ab.a"
+	Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")	
+	Set mail = "Joren.Blancquaert@ab_.a"
+	Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")
+	Set mail = ".Joren.Blancquaert@skynet.be"
+	Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")
+	Set mail = "Joren.Blancquaert.@skynet.be"
+	Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")	
+	Set mail = "Joren..Blancquaert@skynet.be"
+	Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")	
+	Set mail = "Joren.Blancquaert@skynet..be"
+	Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")
+	Set mail = "Joren.Blancquaert@skynet.be"
+	Do $$$AssertTrue(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")
+	Set mail = "Joren.Blancq.uaert@skynet.be"
+	Do $$$AssertTrue(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")
+	Set mail = "Joren.Blancq.uae123rt@skynet.be"
+	Do $$$AssertTrue(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")
+	Set mail = "Joren.Blancq.uae123rt@skynet.be.abc"
+	Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")
+	Set mail = "Joren  Blancquaert@skynet.be"
+	Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")
+	Set mail = "Joren Blancquaert@skynet.be"
+	Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")	
+	Set mail = "JorenBlancquaert@sky net.be"
+	Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")	
+	Set mail = "~Joren.Blancquaert@skynet.be"
+	Do $$$AssertTrue(##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")
+	Set mail = "Joren.Blancquaert@skynet.be@skynet.be"
+	Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")
+	Set mail = "Jorèn.Blancquaert@skynet.be@skynet.be"
+	Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")
+	Set mail = "Joren.Blancquäert@skynet.be@skynet.be"
+	Do $$$AssertTrue('##class(TECH.MailUtils).Check(mail,NsLookUp,CacheNsLookUp),"Emailadres "_mail_" is goed getest.")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Exceptions/KlasseA.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Exceptions/KlasseA.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Exceptions/KlasseA.cls.xml	(revision 957)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Exceptions.KlasseA">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Method name="ThrowException">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[		Do ##class(vhUnitTest.TECH.Exceptions.KlasseB).%New().ThrowException()
+]]></Implementation>
+</Method>
+
+<Method name="RaiseUndefined">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	
+		Do ##class(vhUnitTest.TECH.Exceptions.KlasseB).%New().RaiseUndefined()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Concurrency/TestDbUtils.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Concurrency/TestDbUtils.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Concurrency/TestDbUtils.cls.xml	(revision 957)
@@ -0,0 +1,130 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Concurrency.TestDbUtils">
+<Description>
+Test dat de juiste locks worden gevraagd aan de Transactie, afhankelijk van de isolation level.</Description>
+<Super>AbstractTxTest</Super>
+
+<Property name="VoorbeeldObject">
+<Type>VoorbeeldPersistent</Type>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+ 	do ##super(aTestName)
+ 	
+	Set ..VoorbeeldObject = ##class(VoorbeeldPersistent).%New()
+	Do ..VoorbeeldObject.Save()
+]]></Implementation>
+</Method>
+
+<Method name="TestSaveIndienGeenTx">
+<Implementation><![CDATA[	Quit:'($$$AssertNotTrue(..VoorbeeldObject.IsLocked()))
+]]></Implementation>
+</Method>
+
+<Method name="TestOpenIndienGeenTx">
+<Implementation><![CDATA[
+	#dim VoorbeeldObjectId As %String
+	Set VoorbeeldObjectId = ..VoorbeeldObject.%Id()
+	Do ..VoorbeeldObject.%Close()
+		
+	#dim HeropendObject As VoorbeeldPersistent
+	Set HeropendObject = ##class(VoorbeeldPersistent).OpenId(VoorbeeldObjectId)
+		
+	Quit:'($$$AssertNotTrue(HeropendObject.IsLocked()))
+]]></Implementation>
+</Method>
+
+<Method name="TestSaveIndienReadCommitted">
+<Implementation><![CDATA[
+	#dim Scope As zTryout.PRA.Concurrency.TxScope
+	Set Scope = ##class(TxScope).StartNieuwe()
+	
+	Set ..VoorbeeldObject.VoorbeeldData = "Gewijzigde data"
+	Do ..VoorbeeldObject.Save()
+	Quit:'($$$AssertTrue(..VoorbeeldObject.IsExclusiveLocked()))
+		
+	Do Scope.Rollback()
+]]></Implementation>
+</Method>
+
+<Method name="TestInsertIndienReadCommitted">
+<Implementation><![CDATA[
+	#dim Scope As zTryout.PRA.Concurrency.TxScope
+	Set Scope = ##class(TxScope).StartNieuwe()
+		
+	Set ..VoorbeeldObject = ##class(VoorbeeldPersistent).%New()
+	Do ..VoorbeeldObject.Save()
+	Quit:'($$$AssertTrue(..VoorbeeldObject.IsExclusiveLocked()))
+		
+	Do Scope.Rollback()
+]]></Implementation>
+</Method>
+
+<Method name="TestOpenIndienReadCommitted">
+<Implementation><![CDATA[
+	#dim VoorbeeldObjectId As %String
+	Set VoorbeeldObjectId = ..VoorbeeldObject.%Id()
+	Do ..VoorbeeldObject.%Close()
+		
+	#dim Scope As zTryout.PRA.Concurrency.TxScope
+	Set Scope = ##class(TxScope).StartNieuwe()
+		
+	#dim HeropendObject As VoorbeeldPersistent
+	Set HeropendObject = ##class(VoorbeeldPersistent).OpenId(VoorbeeldObjectId)
+		
+	Quit:'($$$AssertNotTrue(HeropendObject.IsLocked()))
+		
+	Do Scope.Rollback()
+]]></Implementation>
+</Method>
+
+<Method name="TestSaveIndienRepeatableRead">
+<Implementation><![CDATA[
+	#dim Scope As zTryout.PRA.Concurrency.TxScope
+	Set Scope = ##class(TxScope).StartNieuwe(##class(TxScopeOptie).Required(), ##class(TxIsolatieLevel).RepeatableRead())
+		
+	Set ..VoorbeeldObject.VoorbeeldData = "Gewijzigde data"
+	Do ..VoorbeeldObject.Save()
+	Quit:'($$$AssertTrue(..VoorbeeldObject.IsExclusiveLocked()))
+	
+	Do Scope.Rollback()
+]]></Implementation>
+</Method>
+
+<Method name="TestInsertIndienRepeatableRead">
+<Implementation><![CDATA[
+	#dim Scope As zTryout.PRA.Concurrency.TxScope
+	Set Scope = ##class(TxScope).StartNieuwe(##class(TxScopeOptie).Required(), ##class(TxIsolatieLevel).RepeatableRead())
+		
+	Set ..VoorbeeldObject = ##class(VoorbeeldPersistent).%New()
+	Do ..VoorbeeldObject.Save()
+	Quit:'($$$AssertTrue(..VoorbeeldObject.IsExclusiveLocked()))
+		
+	Do Scope.Rollback()
+]]></Implementation>
+</Method>
+
+<Method name="TestOpenIndienRepeatableRead">
+<Implementation><![CDATA[
+	#dim VoorbeeldObjectId As %String
+	Set VoorbeeldObjectId = ..VoorbeeldObject.%Id()
+	Do ..VoorbeeldObject.%Close()
+		
+	#dim Scope As zTryout.PRA.Concurrency.TxScope
+	Set Scope = ##class(TxScope).StartNieuwe(##class(TxScopeOptie).Required(), ##class(TxIsolatieLevel).RepeatableRead())
+		
+	#dim HeropendObject As VoorbeeldPersistent
+	Set HeropendObject = ##class(VoorbeeldPersistent).OpenId(VoorbeeldObjectId)
+		
+	Quit:'($$$AssertTrue(HeropendObject.IsSharedLocked()))
+		
+	Do Scope.Rollback()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Visitor/impl/VisitorsAccepteerder/Visitor2.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Visitor/impl/VisitorsAccepteerder/Visitor2.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Visitor/impl/VisitorsAccepteerder/Visitor2.cls.xml	(revision 957)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Visitor.impl.VisitorsAccepteerder.Visitor2">
+<Super>vhUnitTest.TECH.Visitor.impl.VisitorsAccepteerder.Visitor</Super>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ResultSet/CrazyQuery.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ResultSet/CrazyQuery.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ResultSet/CrazyQuery.cls.xml	(revision 957)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ResultSet.CrazyQuery">
+<Super>%RegisteredObject</Super>
+
+<Query name="CrazyQuery">
+<Type>%Query</Type>
+<Parameter name="ROWSPEC"/>
+</Query>
+
+<Method name="CrazyQueryExecute">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="CrazyQueryClose">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary]]></FormalSpec>
+<PlaceAfter>CrazyQueryExecute</PlaceAfter>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="CrazyQueryFetch">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary,&Row:%List,&AtEnd:%Integer=0]]></FormalSpec>
+<PlaceAfter>CrazyQueryExecute</PlaceAfter>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$ERROR($$$GeneralError,"CrazyQuery fetch-error")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Exceptions/Exception/VoegToeInnerExceptie/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Exceptions/Exception/VoegToeInnerExceptie/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Exceptions/Exception/VoegToeInnerExceptie/Test.cls.xml	(revision 957)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Exceptions.Exception.VoegToeInnerExceptie.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Exception">
+<Type>TECH.IException</Type>
+</Property>
+
+<Method name="TestVoegMajorInnerExceptieToeAanMajorExceptionxExceptionIsEenMajorException">
+<Implementation><![CDATA[
+	Do ..VoegInnerExceptieToe(##class(TECH.Exceptions.enu.Schaal).Major())
+	Do ..AssertSchaal(##class(TECH.Exceptions.enu.Schaal).Major())
+]]></Implementation>
+</Method>
+
+<Method name="TestVoegMinorInnerExceptieToeAanMajorExceptionxExceptionIsEenMajorException">
+<Implementation><![CDATA[
+	Do ..VoegInnerExceptieToe(##class(TECH.Exceptions.enu.Schaal).Minor())
+	Do ..AssertSchaal(##class(TECH.Exceptions.enu.Schaal).Major())
+]]></Implementation>
+</Method>
+
+<Method name="TestVoegMinorInnerExceptieToeAanMinorExceptionxExceptionIsEenMajorException">
+<Implementation><![CDATA[
+	;Schaal van een Exceptie staat standaard op Major
+	Do ..Exception.ZetSchaal(##class(TECH.Exceptions.enu.Schaal).Minor())
+	
+	Do ..VoegInnerExceptieToe(##class(TECH.Exceptions.enu.Schaal).Minor())
+	Do ..AssertSchaal(##class(TECH.Exceptions.enu.Schaal).Minor())
+]]></Implementation>
+</Method>
+
+<Method name="VoegInnerExceptieToe">
+<FormalSpec>Schaal:TECH.Exceptions.enu.Schaal</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim InnerExceptie As TECH.IException = ##class(TECH.Exceptions.BaseException).%New($$$DummyString, $$$DummyString)
+	Do InnerExceptie.ZetSchaal(Schaal)
+	Do ..Exception.VoegToeInnerExceptie(InnerExceptie)
+]]></Implementation>
+</Method>
+
+<Method name="AssertSchaal">
+<FormalSpec>Schaal:TECH.Exceptions.enu.Schaal</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do $$$AssertEquals(..Exception.GeefSchaal(),Schaal)
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..Exception = ##class(TECH.Exceptions.BaseException).%New($$$DummyString, $$$DummyString)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Exceptions.mac.rou
===================================================================
diff -u
--- vhUnitTest/TECH/Exceptions.mac.rou	(revision 0)
+++ vhUnitTest/TECH/Exceptions.mac.rou	(revision 957)
@@ -0,0 +1,8 @@
+ 
+ 
+RaiseUndefined()
+	set $ztrap="^%ETN"
+	Do ##class(vhUnitTest.TECH.Exceptions.KlasseA).RaiseUndefined()	
+	
+	Quit
+	
Index: vhUnitTest/TECH/Files.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Files.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Files.cls.xml	(revision 957)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Files">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Tests">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest(,"vhUnitTest.TECH.Files")</Description>
+<Implementation><![CDATA[
+	do $$$AssertEquals(##class(TECH.Files).AppendFile("c:\test\","test.txt"),"c:\test\test.txt","")
+	do $$$AssertEquals(##class(TECH.Files).AppendFile("c:\test","\test.txt"),"c:\test\test.txt","")
+	do $$$AssertEquals(##class(TECH.Files).AppendFile("c:\test\","\test.txt"),"c:\test\test.txt","")
+	do $$$AssertEquals(##class(TECH.Files).AppendFile("c:\test","test.txt"),"c:\test\test.txt","")
+	do $$$AssertEquals(##class(TECH.Files).AppendFile("http://www.google.be","test.html"),"http://www.google.be/test.html")
+	do $$$AssertEquals(##class(TECH.Files).AppendFile("http://www.google.be","/test.html"),"http://www.google.be/test.html")
+	do $$$AssertEquals(##class(TECH.Files).AppendFile("http://www.google.be/","/test.html"),"http://www.google.be/test.html")
+	do $$$AssertEquals(##class(TECH.Files).AppendFile("http://www.google.be/","test.html"),"http://www.google.be/test.html")
+]]></Implementation>
+</Method>
+
+<Method name="TestAppendSubPathLangerDan100">
+<Implementation><![CDATA[
+	#dim Resultaat As %String= ##class(TECH.Files).AppendSubPath("C:\dit\is\een\directory\structuur\die\heel\lang\is","en\we\plaatsen\er\nog\een\stuk\achter\om\meer\dan\honderd\karakters\te\hebben")
+	#dim VerwachtResultaat = "C:\dit\is\een\directory\structuur\die\heel\lang\is\en\we\plaatsen\er\nog\een\stuk\achter\om\meer\dan\honderd\karakters\te\hebben\"
+	do $$$AssertEquals(Resultaat,VerwachtResultaat)
+]]></Implementation>
+</Method>
+
+<Method name="TestAppendFileLangerDan100">
+<Implementation><![CDATA[
+	#dim Resultaat As %String= ##class(TECH.Files).AppendFile("c:\dit\is\een\directory\structuur\die\heel\lang\is\en\we\voegen\er\nog\een\bestand\aan\te\om\meer\dan\honderd\karakters\te\hebben","bestand.txt")
+	#dim VerwachtResultaat = "c:\dit\is\een\directory\structuur\die\heel\lang\is\en\we\voegen\er\nog\een\bestand\aan\te\om\meer\dan\honderd\karakters\te\hebben\bestand.txt"
+	do $$$AssertEquals(Resultaat,VerwachtResultaat)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/Tools/ObjectDumper/Enumeration.cls.xml
===================================================================
diff -u
--- vhUnitTest/Tools/ObjectDumper/Enumeration.cls.xml	(revision 0)
+++ vhUnitTest/Tools/ObjectDumper/Enumeration.cls.xml	(revision 957)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Tools.ObjectDumper.Enumeration">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Default>;1;2</Default>
+</Parameter>
+
+<Method name="Een">
+<ClassMethod>1</ClassMethod>
+<ReturnType>vhUnitTest.Tools.ObjectDumper.Enumeration</ReturnType>
+<Implementation><![CDATA[	quit "1"
+]]></Implementation>
+</Method>
+
+<Method name="Twee">
+<ClassMethod>1</ClassMethod>
+<ReturnType>vhUnitTest.Tools.ObjectDumper.Enumeration</ReturnType>
+<Implementation><![CDATA[	quit "2"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Concurrency/TestOperationScope.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Concurrency/TestOperationScope.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Concurrency/TestOperationScope.cls.xml	(revision 957)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Concurrency.TestOperationScope">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","TECH.Concurrency.TestOperationScope")</Description>
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TECH.Concurrency.AbstractTxTest</Super>
+
+<Property name="ObjectID">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Set Object = ##class(vhUnitTest.TECH.Concurrency.VoorbeeldPersistent).%New("Gegevens")
+	Do Object.%Save()
+	Set ..ObjectID = Object.%Id()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[	Do ##class(vhUnitTest.TECH.Concurrency.VoorbeeldPersistent).%DeleteExtent()
+]]></Implementation>
+</Method>
+
+<Method name="TestConstructClone">
+<Implementation><![CDATA[
+	
+	Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
+	
+	Set $ZTRAP = "Catch"
+	
+	Set Object = ##class(vhUnitTest.TECH.Concurrency.VoorbeeldPersistent).OpenId(..ObjectID)
+	Set NewObject = Object.%ConstructClone(0)
+	Set NewObject.VoorbeeldData = "NieuweGegevens"
+	Do NewObject.Save()
+	
+	Do OperatieScope.Gelukt()
+	Quit $$$OK	
+	
+Catch Set $ZTRAP = ""
+	Do OperatieScope.Gefaald("Operatie met %ConstructClone niet gelukt. "_$ECODE)
+	Quit $ECODE
+]]></Implementation>
+</Method>
+
+<Method name="TestConstructClone2">
+<Implementation><![CDATA[
+	 
+	Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
+	
+	Set $ZTRAP = "Catch"		
+	
+	Set objFrom=##class(Prod.Kenmerk.DataDefinitie).OpenId("64864||OL||FotoSorteerSleutel3")
+	Do objFrom.Save()
+	
+	Set sc=##class(Prod.Kenmerk.DataDefinitie).CopyViaUnID("563121","563121.5",$LB("OL"),1,"")
+	
+	Do OperatieScope.Gelukt()
+	Quit $$$OK	
+	
+Catch Set $ZTRAP = ""
+	Do OperatieScope.Gefaald("Operatie met %ConstructClone niet gelukt. "_$ECODE)
+	Quit $ECODE
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ListUtils/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ListUtils/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ListUtils/Test.cls.xml	(revision 957)
@@ -0,0 +1,421 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ListUtils.Test">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestListToListbuild">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/Display=all","TECH.ListUtil")</Description>
+<Implementation><![CDATA[
+	set List = ##class(%ListOfDataTypes).%New()
+	do List.Insert("Item1")
+	do List.Insert("Item2")
+	do List.Insert("Item3")
+	
+	set Listbuild = ##class(TECH.ListUtils).ListToListbuild(List)
+	
+	do $$$AssertEquals(Listbuild,$listbuild("Item1","Item2","Item3"),"Test listbuild")
+]]></Implementation>
+</Method>
+
+<Method name="TestListbuildToList">
+<Implementation><![CDATA[
+	set Listbuild = $listbuild("Item1","Item2","Item3")
+	set List = ##class(TECH.ListUtils).ListbuildToList(Listbuild)
+	
+	do $$$AssertEquals(List.Size,3,"Test list")
+	do $$$AssertEquals(List.GetAt(1),"Item1","Test listitem1")
+	do $$$AssertEquals(List.GetAt(2),"Item2","Test listitem2")
+	do $$$AssertEquals(List.GetAt(3),"Item3","Test listitem3")
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="TestPiecesToList">
+<Implementation><![CDATA[
+	#dim List As %ListOfDataTypes 
+	#dim Counter As %Integer
+	
+	set List = ##class(TECH.ListUtils).PiecesToList("Item1,Item2,Item3",",")
+	do $$$AssertEquals(List.Size,3,"Er moeten drie items teruggeven worden")
+	for Counter = 1 : 1 : 3 do $$$AssertEquals(List.GetAt(Counter),"Item"_Counter)
+		
+	set List = ##class(TECH.ListUtils).PiecesToList("",",")
+	do $$$AssertEquals(List.Size,0,"Een lege string = een lege lijst")
+]]></Implementation>
+</Method>
+
+<Method name="TestMultiDimensionalToListOfDataTypesxLeeg">
+<Implementation><![CDATA[
+	#dim MultiDim As %String = 0	
+	#dim List As %ListOfDataTypes = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes( .MultiDim )
+	do $$$AssertEquals( 0, List.Count() )
+]]></Implementation>
+</Method>
+
+<Method name="TestMultiDimensionalToListOfDataTypesx1Item">
+<Implementation><![CDATA[
+	#dim MultiDim As %String = 1
+	set MultiDim(1)="Item1"
+	#dim List As %ListOfDataTypes = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes( .MultiDim )
+	do $$$AssertEquals( 1, List.Count() )
+	do $$$AssertEquals( List.GetAt(1), "Item1" )
+]]></Implementation>
+</Method>
+
+<Method name="TestMultiDimensionalToListOfDataTypesx2Items">
+<Implementation><![CDATA[
+	#dim MultiDim As %String = 2
+	set MultiDim(1)="Item1"
+	set MultiDim(2)="Item2"
+	set List = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes( .MultiDim )
+	do $$$AssertEquals( 2, List.Count() )
+	do $$$AssertEquals( List.GetAt(1), "Item1" )
+	do $$$AssertEquals( List.GetAt(2), "Item2" )
+]]></Implementation>
+</Method>
+
+<Method name="TestMultiDimensionalToListOfDataTypesxObject">
+<Implementation><![CDATA[
+	#dim MultiDim As %String = 1
+	set ObjectItem = ##class(%ListOfObjects).%New()
+	set MultiDim(1)=ObjectItem
+	#dim List As %ListOfDataTypes = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes( .MultiDim )
+	do $$$AssertEquals( 1, List.Count() )
+	do $$$AssertEquals( List.GetAt(1), ObjectItem )
+]]></Implementation>
+</Method>
+
+<Method name="TestIteratorToListbuildx0Items">
+<Implementation><![CDATA[
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListbuildIterator).%New( "" )
+	
+	#dim ListBuild As %List = ##class(TECH.ListUtils).IteratorToListbuild( Iterator )
+	
+	Do $$$AssertEquals( 0, $ListLength(ListBuild) )
+]]></Implementation>
+</Method>
+
+<Method name="TestIteratorToListbuildx1Items">
+<Implementation><![CDATA[
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListbuildIterator).%New( $ListBuild("A") )
+	
+	#dim ListBuild As %List = ##class(TECH.ListUtils).IteratorToListbuild( Iterator )
+	
+	Do $$$AssertEquals( 1, $ListLength(ListBuild) )
+	Do $$$AssertEquals( "A", $ListGet(ListBuild, 1) )
+]]></Implementation>
+</Method>
+
+<Method name="TestIteratorToListbuildx2Items">
+<Implementation><![CDATA[
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListbuildIterator).%New( $ListBuild("A", "B") )
+	
+	#dim ListBuild As %List = ##class(TECH.ListUtils).IteratorToListbuild( Iterator )
+	
+	Do $$$AssertEquals( 2, $ListLength(ListBuild) )
+	Do $$$AssertEquals( "A", $ListGet(ListBuild, 1) )
+	Do $$$AssertEquals( "B", $ListGet(ListBuild, 2) )
+]]></Implementation>
+</Method>
+
+<Method name="TestCopyListOfObject">
+<Implementation><![CDATA[
+	set List = ##class(%ListOfObjects).%New()
+	
+	set Object1 = ##class(vhUnitTest.TECH.ListUtils.Object).%New()
+	set Object2 = ##class(vhUnitTest.TECH.ListUtils.Object).%New()
+	set Object3 = ##class(vhUnitTest.TECH.ListUtils.Object).%New()
+	
+	do List.Insert(Object1)
+	do List.Insert(Object2)
+	do List.Insert(Object3)
+	
+	set NewList = ##class(%ListOfObjects).%New()
+	
+	do ##class(TECH.ListUtils).CopyListOfObjects(List,NewList)
+	
+	do $$$AssertEquals(NewList.Size,3,"3 stuks gekopieerd naar de nieuwe lijst")
+	do $$$AssertEquals(NewList.GetAt(1),Object1,"Het gewenste object zit op de juiste plaats")
+	do $$$AssertEquals(NewList.GetAt(2),Object2,"Het gewenste object zit op de juiste plaats")
+	do $$$AssertEquals(NewList.GetAt(3),Object3,"Het gewenste object zit op de juiste plaats")
+	
+	do ##class(TECH.ListUtils).CopyListOfObjects(List,NewList)
+	do $$$AssertEquals(NewList.Size,6,"3 extra stuks gekopieerd naar de bestaande lijst")
+	do $$$AssertEquals(NewList.GetAt(4),Object1,"Het gewenste object zit op de juiste plaats")
+	do $$$AssertEquals(NewList.GetAt(5),Object2,"Het gewenste object zit op de juiste plaats")
+	do $$$AssertEquals(NewList.GetAt(6),Object3,"Het gewenste object zit op de juiste plaats")
+	
+	
+	do ##class(TECH.ListUtils).CopyListOfObjects(##class(%ListOfObjects).%New(),NewList)
+	do $$$AssertEquals(NewList.Size,6,"een lege lijst toevoegen aan een bestaande lijst")
+]]></Implementation>
+</Method>
+
+<Method name="TestRemoveItemFromListObject">
+<Implementation><![CDATA[
+	set List = ##class(%ListOfObjects).%New()
+	set Object1 = ##class(vhUnitTest.TECH.ListUtils.Object).%New()
+	set Object2 = ##class(vhUnitTest.TECH.ListUtils.Object).%New()
+	set Object3 = ##class(vhUnitTest.TECH.ListUtils.Object).%New()
+	do List.Insert(Object1)
+	do List.Insert(Object1)
+	do List.Insert(Object2)
+	do List.Insert(Object3)
+	
+	#define RemoveFirst 	0
+	
+	do ##class(TECH.ListUtils).RemoveItemFromList(Object1,List,$$$RemoveFirst)
+	
+	do $$$AssertEquals(List.Size,3,"Test list")
+	do $$$AssertEquals(List.GetAt(1),Object1,"Test listitem1")
+	do $$$AssertEquals(List.GetAt(2),Object2,"Test listitem2")
+	
+	do List.Clear()
+	do List.Insert(Object1)
+	do List.Insert(Object1)
+	do List.Insert(Object2)
+	do List.Insert(Object3)
+	
+	#define RemoveAll	1
+	
+	do ##class(TECH.ListUtils).RemoveItemFromList(Object1,List,$$$RemoveAll)
+	do $$$AssertEquals(List.Size,2,"Test list")
+	do $$$AssertEquals(List.GetAt(1),Object2,"Test listitem1")
+	do $$$AssertEquals(List.GetAt(2),Object3,"Test listitem2")
+]]></Implementation>
+</Method>
+
+<Method name="TestUnion">
+<Implementation><![CDATA[
+	Set List1 = ##class(%ListOfDataTypes).%New()
+	Do List1.Insert("Item1")
+	Do List1.Insert("Item2")
+	Do List1.Insert("Item3")
+	
+	Set List2 = ##class(%ListOfDataTypes).%New()
+	Do List2.Insert("Item1")
+	Do List2.Insert("Item3")
+	Do List2.Insert("Item5")
+	
+	#dim Doorsnede As %ListOfDataTypes = ##class(TECH.ListUtils).Doorsnede(List1,List2)
+	
+	do $$$AssertTrue(Doorsnede.Find("Item1"),"Item1 zit in de doorsnede")
+	do $$$AssertTrue(Doorsnede.Find("Item3"),"Item3 zit in de doorsnede")
+	do $$$AssertFalse(Doorsnede.Find("Item2"),"Item2 zit niet in de doorsnede")
+	do $$$AssertFalse(Doorsnede.Find("Item5"),"Item1 zit niet in de doorsnede")
+]]></Implementation>
+</Method>
+
+<Method name="TestExitsPropertyWithValue">
+<Implementation><![CDATA[
+	set List = ##class(%ListOfObjects).%New()
+	
+	set Object = ##class(vhUnitTest.TECH.ListUtils.Object).%New()
+	set Object.Data = "1"
+	do List.Insert(Object)
+	
+	set Object = ##class(vhUnitTest.TECH.ListUtils.Object).%New()
+	set Object.Data = "2"
+	do List.Insert(Object)
+	
+	do $$$AssertTrue(##class(TECH.ListUtils).ExistsPropertyWithValue(List,"Data",1),"waarde 1 moet gevonden worden")
+	do $$$AssertTrue(##class(TECH.ListUtils).ExistsPropertyWithValue(List,"Data",2),"waarde 2 moet gevonden worden")
+	do $$$AssertFalse(##class(TECH.ListUtils).ExistsPropertyWithValue(List,"Data",3),"waarde 3 mag niet gevonden worden")
+]]></Implementation>
+</Method>
+
+<Method name="TestIsValueInIterator">
+<Implementation><![CDATA[
+	#dim Multidim As %String = ""
+	set Multidim(1)="Waarde in MultiDim"
+	set itMultiDim = ##class(TECH.ArrayOneDimIterator).%New(.Multidim)
+	do $$$AssertTrue(##class(TECH.ListUtils).IsValueInIterator("Waarde in MultiDim",itMultiDim))
+	do $$$AssertFalse(##class(TECH.ListUtils).IsValueInIterator("Waarde niet in MultiDim",itMultiDim))
+	
+	
+	#dim List As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	do List.Insert("Waarde in List")
+	set itList = ##class(TECH.ListIterator).%New(List)
+	do $$$AssertTrue(##class(TECH.ListUtils).IsValueInIterator("Waarde in List",itList))
+	do $$$AssertFalse(##class(TECH.ListUtils).IsValueInIterator("Waarde niet in List",itList))
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefMaximum">
+<Implementation><![CDATA[
+	Set Lijst = ##class(%ListOfDataTypes).%New()	
+	Do Lijst.Insert(5)
+	Do Lijst.Insert(9)
+	Do Lijst.Insert(-1)
+	Do Lijst.Insert(20)
+	Do Lijst.Insert(3)
+	Do Lijst.Insert(8)
+	
+	#dim Maximum = ##class(TECH.ListUtils).GeefMaximum(Lijst,##class(TECH.Comparator.IntegerComparator).%New())
+	Do $$$AssertEquals(Maximum,20,"Maximum is correct.")
+	
+	
+	Set Lijst = ##class(%ListOfDataTypes).%New()	
+	Do Lijst.Insert(5)
+	Do Lijst.Insert(9)
+	Do Lijst.Insert(-1)
+	Do Lijst.Insert(20)
+	Do Lijst.Insert(3)
+	Do Lijst.Insert(30)
+	
+	Set Maximum = ##class(TECH.ListUtils).GeefMaximum(Lijst,##class(TECH.Comparator.IntegerComparator).%New())
+	Do $$$AssertEquals(Maximum,30,"Maximum is correct.")
+	
+	Set Lijst = ##class(%ListOfDataTypes).%New()	
+	Do Lijst.Insert(-1)
+	Do Lijst.Insert(-20)
+	Do Lijst.Insert(-30)
+	Do Lijst.Insert(-5)
+	Do Lijst.Insert(-2)
+	Do Lijst.Insert(-90)
+	
+	Set Maximum = ##class(TECH.ListUtils).GeefMaximum(Lijst,##class(TECH.Comparator.IntegerComparator).%New())
+	Do $$$AssertEquals(Maximum,-1,"Maximum is correct.")
+]]></Implementation>
+</Method>
+
+<Method name="TestReplaceValuesInListOfDataTypeSingle">
+<Implementation><![CDATA[
+	set List = ##class(%ListOfDataTypes).%New()
+	
+	do List.Insert("A")
+	do List.Insert("B")
+	do List.Insert("C")
+		
+	set Array = ##class(%ArrayOfDataTypes).%New()
+	do Array.SetAt("B","A")
+	do Array.SetAt("E","B")
+	do Array.SetAt("F","C")
+	
+	set List = ##class(TECH.ListUtils).ReplaceValuesInListOfDataTypes(List,Array)
+	
+	do $$$AssertEquals(List.Size,3)
+	do $$$AssertEquals(List.GetAt(1),"B")
+	do $$$AssertEquals(List.GetAt(2),"E")
+	do $$$AssertEquals(List.GetAt(3),"F")
+]]></Implementation>
+</Method>
+
+<Method name="TestReplaceValuesInListOfDataTypeMultiple">
+<Implementation><![CDATA[
+	set List = ##class(%ListOfDataTypes).%New()
+	
+	do List.Insert("A")
+	do List.Insert("B")
+	do List.Insert("A")
+		
+	set Array = ##class(%ArrayOfDataTypes).%New()
+	do Array.SetAt("C","A")
+	do Array.SetAt("F","B")
+	
+	set List = ##class(TECH.ListUtils).ReplaceValuesInListOfDataTypes(List,Array)
+	
+	do $$$AssertEquals(List.Size,3)
+	do $$$AssertEquals(List.GetAt(1),"C")
+	do $$$AssertEquals(List.GetAt(2),"F")
+	do $$$AssertEquals(List.GetAt(3),"C")
+]]></Implementation>
+</Method>
+
+<Method name="TestIsDeelverzamelingVan">
+<Implementation><![CDATA[
+	Set Lijst1 = ##class(%ListOfDataTypes).%New()
+	Do Lijst1.Insert(1)
+	Do Lijst1.Insert(2)
+	Do Lijst1.Insert(3)
+	
+	Set Lijst2 = ##class(%ListOfDataTypes).%New()
+	Do Lijst2.Insert(1)
+	Do Lijst2.Insert(2)
+	Do Lijst2.Insert(3)
+	
+	Do $$$AssertTrue(##class(TECH.ListUtils).IsDeelverzamelingVan(Lijst2,Lijst1))
+	
+	Set Lijst2 = ##class(%ListOfDataTypes).%New()
+	Do Lijst2.Insert(1)
+	Do Lijst2.Insert(2)
+	Do Lijst2.Insert(4)
+	
+	Do $$$AssertFalse(##class(TECH.ListUtils).IsDeelverzamelingVan(Lijst2,Lijst1))
+	
+	Set Lijst2 = ##class(%ListOfDataTypes).%New()
+	Do Lijst2.Insert(1)
+	Do Lijst2.Insert(3)
+	Do Lijst2.Insert(2)
+	
+	Do $$$AssertTrue(##class(TECH.ListUtils).IsDeelverzamelingVan(Lijst2,Lijst1))
+	
+	Set Lijst2 = ##class(%ListOfDataTypes).%New()
+	Do Lijst2.Insert(3)
+	Do Lijst2.Insert(2)
+	
+	Do $$$AssertTrue(##class(TECH.ListUtils).IsDeelverzamelingVan(Lijst2,Lijst1))
+	
+	Set Lijst2 = ##class(%ListOfDataTypes).%New()
+	
+	Do $$$AssertTrue(##class(TECH.ListUtils).IsDeelverzamelingVan(Lijst2,Lijst1))
+]]></Implementation>
+</Method>
+
+<Method name="TestListToMultiDimensional">
+<Implementation><![CDATA[
+	set Lijst = ##class(%ListOfDataTypes).%New()
+	do Lijst.Insert("Lijn 1")
+	do Lijst.Insert("Lijn 2")
+	
+	#dim MultiDim As %String = ""
+	do ##class(TECH.ListUtils).ListToMultiDimensional(Lijst,.MultiDim)
+	
+	if $$$AssertEquals($order(MultiDim(""),-1),2) {
+		do $$$AssertEquals($order(MultiDim("")),1)
+		do $$$AssertEquals(MultiDim(1),"Lijn 1")
+		do $$$AssertEquals(MultiDim(2),"Lijn 2")
+	}
+	
+	kill MultiDim
+	
+	do ##class(TECH.ListUtils).ListToMultiDimensional(Lijst,.MultiDim,5)
+	if $$$AssertEquals($order(MultiDim(""),-1),6) {
+		do $$$AssertEquals($order(MultiDim("")),5)
+		do $$$AssertEquals(MultiDim(5),"Lijn 1")
+		do $$$AssertEquals(MultiDim(6),"Lijn 2")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="TestRemoveItemFromListbuild">
+<Implementation><![CDATA[
+	
+	#define RemoveAllOccurences 		 1
+	#define DoNotRemoveAllOccurences	 0
+	
+	#dim lb As %List 
+	
+	set lb=$listbuild("a","b","c","a")
+	do ..AssertList(##class(TECH.ListUtils).RemoveItemFromListbuild("a",lb),$listbuild("b","c"),"default behaviour")
+	do ..AssertList(##class(TECH.ListUtils).RemoveItemFromListbuild("a",lb,$$$RemoveAllOccurences),$listbuild("b","c"),"remove all occ")
+	do ..AssertList(##class(TECH.ListUtils).RemoveItemFromListbuild("a",lb,$$$DoNotRemoveAllOccurences),$listbuild("b","c","a"),"do not remove all occ")
+	
+	set lb = $listbuild("a","b",$listbuild("a"))
+	do ..AssertList(##class(TECH.ListUtils).RemoveItemFromListbuild("a",lb),$listbuild("b",$listbuild("a")),"verwijder string uit listbuild met listbuild")
+	do ..AssertList(##class(TECH.ListUtils).RemoveItemFromListbuild($listbuild("a"),lb),$listbuild("a","b"),"verwijder listbuild uit listbuild met listbuild")
+]]></Implementation>
+</Method>
+
+<Method name="AssertList">
+<FormalSpec>List:%List,RefList:%List,Commentaar:%String</FormalSpec>
+<Implementation><![CDATA[	do $$$AssertEquals($$$LCVT(List),$$$LCVT(RefList), Commentaar)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/Tools/ObjectDumper/TestDumper.cls.xml
===================================================================
diff -u
--- vhUnitTest/Tools/ObjectDumper/TestDumper.cls.xml	(revision 0)
+++ vhUnitTest/Tools/ObjectDumper/TestDumper.cls.xml	(revision 957)
@@ -0,0 +1,116 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Tools.ObjectDumper.TestDumper">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="AssertCounter">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="DumpResult">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	#dim Object = ##class(vhUnitTest.Tools.ObjectDumper.ObjectCreator).GetObject()
+	
+	set ..DumpResult = ##class(Tools.ObjectDumper.Dumper).%New(Object).GetResult()
+
+	do ..WijzigObjectReferenceNummers("nn")
+	
+	do ..AssertValue("EmptyObject = ")
+	do ..AssertValue("EmptyProperty = """"")
+	
+	do ..AssertValue("PrivateAsString = string")
+	
+	do ..AssertValue("PropertyAsBoolean = 0")
+	do ..AssertValue("PropertyAsDecimal = 1.5")	
+	do ..AssertValue("PropertyAsInteger = 1")
+	do ..AssertValue("PropertyAsString = string")
+	
+	do ..AssertValue("PropertyAsListOfDataTypes = nn@%Collection.ListOfDT")
+	do ..AssertValue("PropertyAsListOfDataTypes[1] = Item1")
+	do ..AssertValue("PropertyAsListOfDataTypes[2] = Item2")
+	
+	do ..AssertValue("PropertyAsArrayOfDataTypes = nn@%Collection.ArrayOfDT")
+	do ..AssertValue("PropertyAsArrayOfDataTypes[Key1] = Item1")
+	do ..AssertValue("PropertyAsArrayOfDataTypes[Key2] = Item2")
+	
+	do ..AssertValue("PropertyAsObject = nn@vhUnitTest.Tools.ObjectDumper.Object")
+	do ..AssertValue("PropertyAsObject.PropertyAsInteger = 1")
+	do ..AssertValue("PropertyAsObject.PropertyAsString = string")
+	
+	do ..AssertValue("PropertyAsObjectZonderPackage = nn@vhUnitTest.Tools.ObjectDumper.Object")
+	do ..AssertValue("PropertyAsObjectZonderPackage.PropertyAsInteger = 1")
+	do ..AssertValue("PropertyAsObjectZonderPackage.PropertyAsString = string")
+
+	do ..AssertValue("PropertyAsArrayOfObjects = nn@%Collection.ArrayOfObj")
+	do ..AssertValue("PropertyAsArrayOfObjects[Key1].PropertyAsInteger = 1")
+	do ..AssertValue("PropertyAsArrayOfObjects[Key1].PropertyAsString = string")
+	do ..AssertValue("PropertyAsArrayOfObjects[Key2].PropertyAsInteger = 1")
+	do ..AssertValue("PropertyAsArrayOfObjects[Key2].PropertyAsString = string")
+	
+	do ..AssertValue("PropertyAsListOfObjects = nn@%Collection.ListOfObj")
+	do ..AssertValue("PropertyAsListOfObjects[1].PropertyAsInteger = 1")
+	do ..AssertValue("PropertyAsListOfObjects[1].PropertyAsString = string")
+	do ..AssertValue("PropertyAsListOfObjects[2].PropertyAsInteger = 1")
+	do ..AssertValue("PropertyAsListOfObjects[2].PropertyAsString = string")
+	
+	do ..AssertValue("PropertyAsList = (""Item1"", (""Item2.1"", ""Item2.2""))")
+	
+	do ..AssertValue("PropertyAsMultiDim(1) = 1")
+	do ..AssertValue("PropertyAsMultiDim(1,2) = 1,2")
+	do ..AssertValue("PropertyAsMultiDim(2,2) = 2,2")
+	
+	do ..AssertValue("PropertyAsEnumeration = 1")
+	
+	do $$$AssertEquals(..DumpResult.Count(),..AssertCounter,"aantal gecontroleerd is gelijk aan verwacht")
+]]></Implementation>
+</Method>
+
+<Method name="AssertValue">
+<FormalSpec>Value:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do $$$AssertTrue(..DumpResult.Find(Value),Value)
+	set ..AssertCounter = ..AssertCounter + 1
+]]></Implementation>
+</Method>
+
+<Method name="WijzigObjectReferenceNummers">
+<FormalSpec>Waarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#define TextBefore "= "
+	#define TextAfter "@"
+	set NewList = ##class(%ListOfDataTypes).%New()
+	
+	Set Iterator = ##class(TECH.ListIterator).%New(..DumpResult)
+	while Iterator.HasNext() {
+		#dim ListItem As %String = Iterator.Next()
+		if ..BevatObjectReferenceNummer(ListItem) {
+			#dim ObjectReferenceNummer As %String = $$$TextBetween(ListItem,$$$TextBefore,$$$TextAfter)
+			set ListItem = ##class(TECH.StringUtils).Replace(ListItem,$$$TextBefore_ObjectReferenceNummer_$$$TextAfter,$$$TextBefore_Waarde_$$$TextAfter)
+		}
+		do NewList.Insert(ListItem)
+	}	
+	
+	set ..DumpResult = NewList
+]]></Implementation>
+</Method>
+
+<Method name="BevatObjectReferenceNummer">
+<FormalSpec>Waarde:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit Waarde?.E." = "1.5N1"@".E
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Algo/Boom/TestBinaireZoekBoom.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/Boom/TestBinaireZoekBoom.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/Boom/TestBinaireZoekBoom.cls.xml	(revision 957)
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Algo.Boom.TestBinaireZoekBoom">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestBoom">
+<Implementation><![CDATA[
+	Set Wortel = ##class(vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoop).%New(0)
+	Set Boom = ##class(TECH.Algo.Boom.Boom).%New(Wortel)
+	
+	Do $$$AssertEquals(Boom.GeefWortel(),Wortel,"De wortel wordt correct teruggegeven")
+]]></Implementation>
+</Method>
+
+<Method name="TestBinaireBoomToevoegen">
+<Implementation><![CDATA[
+	Set Wortel = ##class(vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoop).%New(0)
+	Set Boom = ##class(TECH.Algo.Boom.Boom).%New(Wortel)
+	
+	Set Knoop1 = ##class(vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoop).%New(1)
+	Set Knoop2 = ##class(vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoop).%New(2)
+	Set Knoop3 = ##class(vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoop).%New(3)
+	Set Knoop4 = ##class(vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoop).%New(4)
+	Set Knoop5 = ##class(vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoop).%New(5)
+	Set DubbeleKnoop3 = ##class(vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoop).%New(3)
+	
+	Do Wortel.VoegToeKind(Knoop1)
+	Do Wortel.VoegToeKind(Knoop5)
+	Do Wortel.VoegToeKind(Knoop3)
+	Do Wortel.VoegToeKind(Knoop2)
+	Do Wortel.VoegToeKind(Knoop4)
+	Do Wortel.VoegToeKind(DubbeleKnoop3)
+	
+	/// Test opbouw van de boom
+	/*
+				Wortel0
+				/	  \
+					Knoop1
+					/	 \
+						Knoop5
+						/	 \
+					 Knoop3
+					/	   \
+				 Knoop2	  Knoop4
+	*/
+	
+	Do $$$AssertEquals(Wortel,Wortel,"Wortel 0")
+	Do $$$AssertFalse($IsObject(Wortel.LinkseKnoop))
+	Do $$$AssertEquals(Wortel.RechtseKnoop,Knoop1)
+	
+	Do $$$AssertFalse(Knoop1.LinkseKnoop)
+	Do $$$AssertEquals(Knoop1.RechtseKnoop,Knoop5)
+		
+	Do $$$AssertEquals(Knoop5.LinkseKnoop,Knoop3)
+	Do $$$AssertFalse(Knoop5.RechtseKnoop)
+	
+	Do $$$AssertEquals(Knoop3.LinkseKnoop,Knoop2)
+	Do $$$AssertEquals(Knoop3.RechtseKnoop,Knoop4)
+	
+	#dim Kinderen As %ListOfObjects = Wortel.GeefKinderenInclusiefZichzelf()
+	
+	Do $$$AssertEquals(Kinderen.GetAt(1),Wortel,"Wortel 0")
+	Do $$$AssertEquals(Kinderen.GetAt(2),Knoop1,"Knoop 1")
+	Do $$$AssertEquals(Kinderen.GetAt(3),Knoop2,"Knoop 2")
+	Do $$$AssertEquals(Kinderen.GetAt(4),Knoop3,"Knoop 3")
+	Do $$$AssertEquals(Kinderen.GetAt(5),Knoop4,"Knoop 4")
+	Do $$$AssertEquals(Kinderen.GetAt(6),Knoop5,"Knoop 5")
+	Do $$$AssertFalse($IsObject(Kinderen.GetAt(7)),"Geen knopen meer, ook niet DubbeleKnoop3")
+	
+	#dim KindIt As TECH.Iterator = Wortel.GeefKindIterator()
+	#dim Waarde As %Integer = 0
+	While KindIt.HasNext(){
+		Do $$$AssertEquals(KindIt.Next().Waarde,Waarde)
+		Set Waarde = Waarde + 1
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ClassUtilsExtra.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ClassUtilsExtra.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ClassUtilsExtra.cls.xml	(revision 957)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ClassUtilsExtra">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Method name="OtherClassMethodTest">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.ClassUtils).GetCurrentMethod()
+]]></Implementation>
+</Method>
+
+<Method name="OtherMethodTest">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.ClassUtils).GetCurrentMethod()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Graph/TestDependencyGraph.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Graph/TestDependencyGraph.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Graph/TestDependencyGraph.cls.xml	(revision 957)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Graph.TestDependencyGraph">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","TECH.Graph.TestDependencyGraph")</Description>
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestVolgorde">
+<Implementation><![CDATA[
+	Set Graph = ##class(TECH.Algo.Graph.DependencyGraph).%New()
+	Set Node1 = ##class(TECH.Algo.Graph.Node).%New("1",1)
+	Do Graph.AddNode(Node1)
+	Set Node2 = ##class(TECH.Algo.Graph.Node).%New("2",1)
+	Do Graph.AddNode(Node2)
+	Set Node3 = ##class(TECH.Algo.Graph.Node).%New("3",1)
+	Do Graph.AddNode(Node3)
+	Set Node4 = ##class(TECH.Algo.Graph.Node).%New("4",1)
+	Do Graph.AddNode(Node4)
+	Set Node5 = ##class(TECH.Algo.Graph.Node).%New("5",1)
+	Do Graph.AddNode(Node5)
+	Set Node6 = ##class(TECH.Algo.Graph.Node).%New("6",1)
+	Do Graph.AddNode(Node6)
+	Set Node7 = ##class(TECH.Algo.Graph.Node).%New("7",1)
+	Do Graph.AddNode(Node7)
+	Set Node8 = ##class(TECH.Algo.Graph.Node).%New("8",1)
+	Do Graph.AddNode(Node8)
+	Set Node9 = ##class(TECH.Algo.Graph.Node).%New("9",1)
+	Do Graph.AddNode(Node9)
+	
+	Do Graph.AddDependency(Node3,Node1)   ; Node3 is afhankelijk van Node 1 
+	Do Graph.AddDependency(Node3,Node2)   ; Node3 is afhankelijk van Node 2 
+	Do Graph.AddDependency(Node5,Node7)
+	Do Graph.AddDependency(Node7,Node3)
+	Do Graph.AddDependency(Node6,Node3)
+	Do Graph.AddDependency(Node4,Node5)
+	Do Graph.AddDependency(Node4,Node6)	
+	
+	Set Iterator = ##class(TECH.ListIterator).%New(Graph.GetDependencyQueue())
+	Set lbSequence=""
+	While(Iterator.HasNext())
+	{
+		Set lbSequence=lbSequence_$LB(Iterator.Next().Name)
+	}
+	Do $$$AssertEquals($$$LCVT(lbSequence),$$$LCVT($LB(1, 2, 3, 7, 5, 6, 4, 8, 9)),"De volgorde is correct")
+	Do $$$AssertTrue('Graph.HasCycle(),"De graaf heeft geen lussen")
+	
+	Do Graph.AddDependency(Node1,Node6)
+	
+	Do $$$AssertTrue(Graph.HasCycle(),"De graaf heeft wel lussen")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Concurrency/impl/Klasse2.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Concurrency/impl/Klasse2.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Concurrency/impl/Klasse2.cls.xml	(revision 957)
@@ -0,0 +1,86 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Concurrency.impl.Klasse2">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Concurrency.VhPersistent</Super>
+
+<Property name="Naam">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="Klasse1">
+<Type>vhUnitTest.TECH.Concurrency.impl.Klasse1</Type>
+</Property>
+
+<Property name="Klasse3">
+<Type>vhUnitTest.TECH.Concurrency.impl.Klasse3</Type>
+</Property>
+
+<Property name="ParentKlasse1">
+<Type>vhUnitTest.TECH.Concurrency.impl.Klasse1</Type>
+</Property>
+
+<Property name="Iets">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OnDefineDependentConcurrency">
+<Implementation><![CDATA[
+	Do ..MarkDependentConcurrency(..Klasse1)
+	Do ..MarkDependentConcurrency(..ParentKlasse1)
+	Do ..MarkDependentConcurrency(..Klasse3)
+]]></Implementation>
+</Method>
+
+<Method name="ToString">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..%ClassName()_": "_..Naam
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^zTryout.CSC.Klasse2D</DataLocation>
+<DefaultData>Klasse2DefaultData</DefaultData>
+<IdLocation>^zTryout.CSC.Klasse2D</IdLocation>
+<IndexLocation>^zTryout.CSC.Klasse2I</IndexLocation>
+<StreamLocation>^zTryout.CSC.Klasse2S</StreamLocation>
+<Data name="Klasse2DefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Iets</Value>
+</Value>
+<Value name="3">
+<Value>InstanceVersion</Value>
+</Value>
+<Value name="4">
+<Value>Klasse1</Value>
+</Value>
+<Value name="5">
+<Value>Naam</Value>
+</Value>
+<Value name="6">
+<Value>ParentKlasse1</Value>
+</Value>
+<Value name="7">
+<Value>Klasse3</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Algo/SQL/SelectBuilder/Base.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/SQL/SelectBuilder/Base.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/SQL/SelectBuilder/Base.cls.xml	(revision 957)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Algo.SQL.SelectBuilder.Base">
+<Abstract>1</Abstract>
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="QueryBuilderImpl">
+<Type>TECH.Algo.SQL.SelectBuilder.SelectBuilder</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefStandaardParameters">
+<Private>1</Private>
+<ReturnType>vhUnitTest.TECH.Algo.SQL.SelectBuilder.Genereer.InputParameters</ReturnType>
+<Implementation><![CDATA[
+	set InputParameters = ##class(vhUnitTest.TECH.Algo.SQL.SelectBuilder.Genereer.InputParameters).%New()
+	quit InputParameters
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	set ..QueryBuilderImpl = ##class(TECH.Algo.SQL.SelectBuilder.SelectBuilder).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Persistent/OnAfterSave/DummyTableMetOnAfterEvent.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Persistent/OnAfterSave/DummyTableMetOnAfterEvent.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Persistent/OnAfterSave/DummyTableMetOnAfterEvent.cls.xml	(revision 957)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Persistent.OnAfterSave.DummyTableMetOnAfterEvent">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent,%Populate</Super>
+
+<Property name="Dummy">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnAfterSave">
+<FormalSpec>insert:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set EventData = ##class(TECH.PubSub.EventData).%New("")
+	Set Event = ##class(vhUnitTest.TECH.Persistent.OnAfterSave.OnAfterSaveEvent).%New(EventData)
+	Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^vhUnitTest.TECHF90D.DummyTableD</DataLocation>
+<DefaultData>DummyTableDefaultData</DefaultData>
+<IdLocation>^vhUnitTest.TECHF90D.DummyTableD</IdLocation>
+<IndexLocation>^vhUnitTest.TECHF90D.DummyTableI</IndexLocation>
+<StreamLocation>^vhUnitTest.TECHF90D.DummyTableS</StreamLocation>
+<Data name="DummyTableDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Dummy</Value>
+</Value>
+</Data>
+<Property name="%%CLASSNAME">
+</Property>
+<Property name="Dummy">
+</Property>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/MethodDefinition/DummyClass2.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/MethodDefinition/DummyClass2.cls.xml	(revision 0)
+++ vhUnitTest/TECH/MethodDefinition/DummyClass2.cls.xml	(revision 957)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.MethodDefinition.DummyClass2">
+<Super>%Persistent</Super>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^vhUnitTest.TEC8CD9.DummyClass2D</DataLocation>
+<DefaultData>DummyClass2DefaultData</DefaultData>
+<IdLocation>^vhUnitTest.TEC8CD9.DummyClass2D</IdLocation>
+<IndexLocation>^vhUnitTest.TEC8CD9.DummyClass2I</IndexLocation>
+<StreamLocation>^vhUnitTest.TEC8CD9.DummyClass2S</StreamLocation>
+<Data name="DummyClass2DefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Exceptions/TestExceptions.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Exceptions/TestExceptions.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Exceptions/TestExceptions.cls.xml	(revision 957)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Exceptions.TestExceptions">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","TECH.Exceptions.TestExceptions")</Description>
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestThrowException">
+<Implementation><![CDATA[
+	try {
+		Do ##class(vhUnitTest.TECH.Exceptions.KlasseA).ThrowException()	
+	}
+	catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertEquals(Exception.GeefOmschrijving(),"Klasse B detecteert exception.","Omschrijving van Exception is correct.")
+		Do $$$AssertTrue($IsObject(Exception.GeefInnerExcepties()),"InnerException is een object.")
+		Do $$$AssertEquals(Exception.GeefInnerExcepties().GetAt(1).GeefOmschrijving()," [Exception, gethrowed in Klasse C.]","Omschrijving van Exception is correct.")
+		Do $$$AssertFalse('$IsObject(Exception.GeefInnerExcepties()),"InnerException van InnerException bestaat niet.")		
+	}
+]]></Implementation>
+</Method>
+
+<Method name="TestRaiseUndefined">
+<Implementation><![CDATA[
+	try {
+		Do ##class(vhUnitTest.TECH.Exceptions.KlasseA).RaiseUndefined()	
+		Do $$$AssertTrue(0,"Er zou een error moeten gethrowed worden")
+	}
+	catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertEquals(Exception.GeefOmschrijving(),"Klasse B detecteert undefined.","Omschrijving van Exception is correct.")
+		Do $$$AssertTrue($IsObject(Exception.GeefInnerExcepties()),"InnerException is een object.")
+		Do $$$AssertTrue(Exception.GeefInnerExcepties().GetAt(1).GeefOmschrijving()["Runtime exception","Omschrijving van Exception is correct.")
+		Do $$$AssertFalse('$IsObject(Exception.GeefInnerExcepties()),"InnerException van InnerException bestaat niet.")
+	}
+		Quit
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Integer/TestValueList.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Integer/TestValueList.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Integer/TestValueList.cls.xml	(revision 957)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Integer.TestValueList">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Mock">
+<Type>vhUnitTest.TECH.Integer.MockClass</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="TestOnevenWaarde">
+<Implementation><![CDATA[
+	set ..Mock.IntegerEvenValueList = 1
+	do $$$AssertFalse(..Mock.%ValidateObject())
+]]></Implementation>
+</Method>
+
+<Method name="TestEvenWaarde">
+<Implementation><![CDATA[
+	set ..Mock.IntegerEvenValueList = 2
+	do $$$AssertTrue(..Mock.%ValidateObject())
+]]></Implementation>
+</Method>
+
+<Method name="TestLegeWaarde">
+<Implementation><![CDATA[
+	set ..Mock.IntegerEvenValueList = ""
+	do $$$AssertTrue(..Mock.%ValidateObject())
+]]></Implementation>
+</Method>
+
+<Method name="TestGeenInteger">
+<Implementation><![CDATA[
+	set ..Mock.IntegerEvenValueList = 1.5
+	do $$$AssertFalse(..Mock.%ValidateObject())
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	set ..Mock = ##class(vhUnitTest.TECH.Integer.MockClass).%New()
+	do ##super(aTestName)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/PeriodeComparator/TestComparator.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/PeriodeComparator/TestComparator.cls.xml	(revision 0)
+++ vhUnitTest/TECH/PeriodeComparator/TestComparator.cls.xml	(revision 957)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.PeriodeComparator.TestComparator">
+<Description>
+d ##class(vhUnitTest.Manager).RunTest("/display=all/debug","TECH.PeriodeComparator.TestComparator")</Description>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+		Set Comparator = ##class(TECH.PeriodeComparator).%New()
+		Do $$$AssertFalse(Comparator.IsKleinerDan("2012.02","2012.01"))
+		Do $$$AssertFalse(Comparator.IsKleinerDan("2011.12","2011.09"))
+		Do $$$AssertFalse(Comparator.IsKleinerDan("2012.01","2012.01"))
+		
+		Do $$$AssertTrue(Comparator.IsKleinerDan("2012.01","2012.03"))		
+		Do $$$AssertTrue(Comparator.IsKleinerDan("2011.12","2012.01"))
+		Do $$$AssertTrue(Comparator.IsKleinerDan("2012.10","2012.11"))		
+		Do $$$AssertTrue(Comparator.IsKleinerDan("1999.01","2000.01"))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Concurrency/impl/Klasse1.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Concurrency/impl/Klasse1.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Concurrency/impl/Klasse1.cls.xml	(revision 957)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Concurrency.impl.Klasse1">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Concurrency.VhPersistent</Super>
+
+<Property name="Naam">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="Klasse2">
+<Type>vhUnitTest.TECH.Concurrency.impl.Klasse2</Type>
+</Property>
+
+<Property name="Iets">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OnDefineDependentConcurrency">
+<Implementation><![CDATA[	Do ..MarkDependentConcurrency(..Klasse2)
+]]></Implementation>
+</Method>
+
+<Method name="ToString">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..%ClassName()_": "_..Naam
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^zTryout.CSC.Klasse1D</DataLocation>
+<DefaultData>Klasse1DefaultData</DefaultData>
+<IdLocation>^zTryout.CSC.Klasse1D</IdLocation>
+<IndexLocation>^zTryout.CSC.Klasse1I</IndexLocation>
+<StreamLocation>^zTryout.CSC.Klasse1S</StreamLocation>
+<Data name="Klasse1DefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>InstanceVersion</Value>
+</Value>
+<Value name="3">
+<Value>Klasse1</Value>
+</Value>
+<Value name="4">
+<Value>Klasse2</Value>
+</Value>
+<Value name="5">
+<Value>Iets</Value>
+</Value>
+<Value name="6">
+<Value>Naam</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Concurrency/VoorbeeldPersistent.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Concurrency/VoorbeeldPersistent.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Concurrency/VoorbeeldPersistent.cls.xml	(revision 957)
@@ -0,0 +1,110 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Concurrency.VoorbeeldPersistent">
+<Description>
+Voorbeeld klasse om locking e.d. op te testen.</Description>
+<ClassType>persistent</ClassType>
+<Import>TECH.Concurrency,TECH.ExcHandling</Import>
+<Super>TECH.Concurrency.VhPersistent</Super>
+
+<Property name="VoorbeeldData">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Data:%String=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..VoorbeeldData = Data
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="WijzigViaSql">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ID:%Integer,NieuweVoorbeeldData:%String</FormalSpec>
+<Implementation><![CDATA[
+	&Sql(UPDATE vhUnitTest_TECH_Concurrency.VoorbeeldPersistent SET VoorbeeldData=:NieuweVoorbeeldData WHERE ID=:ID)
+	If (0 = %ROWCOUNT) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Wijziging gefaald."))
+	}
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[/* TODO: Verhuizen naar TECH.? */
+]]></Content>
+</UDLText>
+
+<Method name="GeefLockSleutel">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "^vhUnitTestCA7.VoorbeeldPeDEC7D(" _ ..%Id() _ ")"
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/* Zoek op dit object lock'ed is.
+	Status kan deze waarden hebben:
+	- "" (= geen lock)
+	- "S" (= shared lock)
+	- "X" (= exclusive lock)
+   TODO: Verhuizen naar TECH.?
+*/
+]]></Content>
+</UDLText>
+
+<Method name="GeefLockStatus">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim LockStatus As %String
+	Set LockStatus = ^$LOCK(..GeefLockSleutel(), "MODE")
+
+	Quit LockStatus
+]]></Implementation>
+</Method>
+
+<Method name="IsLocked">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ("" '= ..GeefLockStatus())
+]]></Implementation>
+</Method>
+
+<Method name="IsSharedLocked">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ("S" = ..GeefLockStatus())
+]]></Implementation>
+</Method>
+
+<Method name="IsExclusiveLocked">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ("X" = ..GeefLockStatus())
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^vhUnitTestCA7.VoorbeeldPeDEC7D</DataLocation>
+<DefaultData>VoorbeeldPersistentDefaultData</DefaultData>
+<IdLocation>^vhUnitTestCA7.VoorbeeldPeDEC7D</IdLocation>
+<IndexLocation>^vhUnitTestCA7.VoorbeeldPeDEC7I</IndexLocation>
+<StreamLocation>^vhUnitTestCA7.VoorbeeldPeDEC7S</StreamLocation>
+<Data name="VoorbeeldPersistentDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>InstanceVersion</Value>
+</Value>
+<Value name="3">
+<Value>VoorbeeldData</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/Tools/Mock/MockVoorbeeld.cls.xml
===================================================================
diff -u
--- vhUnitTest/Tools/Mock/MockVoorbeeld.cls.xml	(revision 0)
+++ vhUnitTest/Tools/Mock/MockVoorbeeld.cls.xml	(revision 957)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Tools.Mock.MockVoorbeeld">
+<Super>Tools.Mock.MockClassBase</Super>
+
+<Method name="GeenParametersGeenReturn">
+<Implementation><![CDATA[		Do ..VerwerkMethodCall( "GeenParametersGeenReturn" )
+]]></Implementation>
+</Method>
+
+<Method name="GeenParametersDataTypeReturn">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[		Quit ..VerwerkMethodCall( "GeenParametersDataTypeReturn" )
+]]></Implementation>
+</Method>
+
+<Method name="GeenParameterObjectReturn">
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[		Quit ..VerwerkMethodCall( "GeenParameterObjectReturn" )
+]]></Implementation>
+</Method>
+
+<Method name="DataTypeParameterDataTypeReturn">
+<FormalSpec>Param1:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[		Quit ..VerwerkMethodCall( "DataTypeParameterDataTypeReturn", Param1 )
+]]></Implementation>
+</Method>
+
+<Method name="ObjectParameterDataTypeReturn">
+<FormalSpec>Param1:%ListOfDataTypes</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[		Quit ..VerwerkMethodCall( "ObjectParameterDataTypeReturn", Param1 )
+]]></Implementation>
+</Method>
+
+<Method name="TweeParametersDataTypeReturn">
+<FormalSpec>Param1:%ListOfDataTypes,Param2:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[		Quit ..VerwerkMethodCall( "TweeParametersDataTypeReturn", Param1, Param2 )
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/Tools/TestCacheJavaExport.cls.xml
===================================================================
diff -u
--- vhUnitTest/Tools/TestCacheJavaExport.cls.xml	(revision 0)
+++ vhUnitTest/Tools/TestCacheJavaExport.cls.xml	(revision 957)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Tools.TestCacheJavaExport">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","Tools.TestCacheJavaExport")</Description>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestPropertyExporter">
+<Implementation><![CDATA[
+	Set Stream = ##class(%Library.GlobalCharacterStream).%New()
+	Set PropertyExporter = ##class(Tools.impl.JavaExport.PropertyExporter).%New()
+	
+	Set Klasse = ##class(%Dictionary.CompiledClass).%OpenId("vhUnitTest.Tools.ExportKlasseDto")
+	
+	/* EnumProperty */
+	
+	#dim Property As %Dictionary.CompiledProperty = Klasse.Properties.GetAt(2)
+	Do $$$AssertEquals(Property.Name,"EnumProperty")
+	Do PropertyExporter.WriteGetterAndSetter(Property, Stream)
+	Do Stream.Rewind()
+	
+	Do $$$AssertEquals(Stream.ReadLine(),"    @ExternalizedProperty")
+	Do $$$AssertEquals(Stream.ReadLine(),"    public vhUnitTest.Tools.ExportKlasseEnum getEnumProperty()  throws com.intersys.objects.CacheException {")
+	Do $$$AssertEquals(Stream.ReadLine(),"       com.intersys.cache.Dataholder dh = mInternal.getProperty(""EnumProperty"",false);")
+	Do $$$AssertEquals(Stream.ReadLine(),"       return vhUnitTest.Tools.ExportKlasseEnum.valueOf(dh.getString());")
+	Do $$$AssertEquals(Stream.ReadLine(),"    }")
+	Do $$$AssertEquals(Stream.ReadLine(),"")
+	Do $$$AssertEquals(Stream.ReadLine(),"    public void setEnumProperty(vhUnitTest.Tools.ExportKlasseEnum value)  throws com.intersys.objects.CacheException {")
+	Do $$$AssertEquals(Stream.ReadLine(),"       com.intersys.cache.Dataholder dh = new com.intersys.cache.Dataholder (value.toString());")
+	Do $$$AssertEquals(Stream.ReadLine(),"       mInternal.setProperty(""EnumProperty"", dh);")
+	Do $$$AssertEquals(Stream.ReadLine(),"       return;")
+	Do $$$AssertEquals(Stream.ReadLine(),"    }")
+	
+	Do Stream.Clear()
+	
+	/* StringProperty */
+	
+	Set Property = Klasse.Properties.GetAt(3)
+	Do $$$AssertEquals(Property.Name,"StringProperty")
+	Do PropertyExporter.WriteGetterAndSetter(Property, Stream)
+	Do Stream.Rewind()
+	
+	Do $$$AssertEquals(Stream.ReadLine(),"    @ExternalizedProperty")
+    Do $$$AssertEquals(Stream.ReadLine(),"    public java.lang.String getStringProperty()  throws com.intersys.objects.CacheException {")
+    Do $$$AssertEquals(Stream.ReadLine(),"       com.intersys.cache.Dataholder dh = mInternal.getProperty(""StringProperty"",false);")
+    Do $$$AssertEquals(Stream.ReadLine(),"       return dh.getString();")
+    Do $$$AssertEquals(Stream.ReadLine(),"    }")
+	Do $$$AssertEquals(Stream.ReadLine(),"")
+    Do $$$AssertEquals(Stream.ReadLine(),"    public void setStringProperty(java.lang.String value)  throws com.intersys.objects.CacheException {")
+    Do $$$AssertEquals(Stream.ReadLine(),"       com.intersys.cache.Dataholder dh = new com.intersys.cache.Dataholder (value);")
+    Do $$$AssertEquals(Stream.ReadLine(),"       mInternal.setProperty(""StringProperty"", dh);")
+    Do $$$AssertEquals(Stream.ReadLine(),"       return;")
+    Do $$$AssertEquals(Stream.ReadLine(),"    }")
+    
+    Do Stream.Clear()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Algo/SQL/SelectBuilder/Genereer/InputParameters.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/SQL/SelectBuilder/Genereer/InputParameters.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/SQL/SelectBuilder/Genereer/InputParameters.cls.xml	(revision 957)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Algo.SQL.SelectBuilder.Genereer.InputParameters">
+<Super>TECH.Algo.SQL.SelectBuilder.SelectieCriteria</Super>
+
+<Parameter name="TabelNaam">
+<Type>%String</Type>
+<Default>TABEL</Default>
+</Parameter>
+
+<Property name="Property1">
+<Type>TECH.Algo.SQL.SelectBuilder.Criteria</Type>
+</Property>
+
+<Property name="Property2">
+<Type>TECH.Algo.SQL.SelectBuilder.Criteria</Type>
+</Property>
+
+<Storage name="Custom">
+<Type>%Library.CompleteCustomStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Algo/Boom/impl/BinaireKnoopComparator.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/Boom/impl/BinaireKnoopComparator.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/Boom/impl/BinaireKnoopComparator.cls.xml	(revision 957)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoopComparator">
+<Super>%RegisteredObject,TECH.Comparator.IComparator</Super>
+
+<Method name="IsKleinerDan">
+<FormalSpec>Waarde1:vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoop,Waarde2:vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoop</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit Waarde1.Waarde < Waarde2.Waarde
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Algo/SQL/QueryEngine/TestQueryEngine.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/SQL/QueryEngine/TestQueryEngine.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/SQL/QueryEngine/TestQueryEngine.cls.xml	(revision 957)
@@ -0,0 +1,130 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Algo.SQL.QueryEngine.TestQueryEngine">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","TECH.Algo.SQL.QueryEngine.TestQueryEngine")</Description>
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestEenvoudigeSelectie">
+<Implementation><![CDATA[
+	Set QueryBuilder = ##class(TECH.Algo.SQL.QueryEngine.QueryBuilder).%New()
+	
+	Set TabelA = ##class(TECH.Algo.SQL.QueryEngine.Tabel).%New("TabelA")
+	Do QueryBuilder.VoegToeTabel(TabelA)
+	Do QueryBuilder.SelecteerVeldVanTabel("VeldA",TabelA)
+	
+	Do $$$AssertEquals(QueryBuilder.GeefQueryString(),"SELECT TabelA.VeldA FROM TabelA","De query string")
+]]></Implementation>
+</Method>
+
+<Method name="TestCombinatieConditieMetMaar1ConditiexxxGeenHaakjes">
+<Implementation><![CDATA[
+	Set QueryBuilder = ##class(TECH.Algo.SQL.QueryEngine.QueryBuilder).%New()
+	
+	Set TabelA = ##class(TECH.Algo.SQL.QueryEngine.Tabel).%New("TabelA")
+	Do QueryBuilder.VoegToeTabel(TabelA)
+	Do QueryBuilder.SelecteerVeldVanTabel("VeldA",TabelA)
+	
+	Set WhereConditie = ##class(TECH.Algo.SQL.QueryEngine.CombinatieConditie).%New(##class(TECH.Algo.SQL.QueryEngine.enu.CombinatieConditieOperator).En())
+	Set CombinatieConditie = ##class(TECH.Algo.SQL.QueryEngine.CombinatieConditie).%New(##class(TECH.Algo.SQL.QueryEngine.enu.CombinatieConditieOperator).Of())
+	Do CombinatieConditie.VoegToeSubconditie(##class(TECH.Algo.SQL.QueryEngine.EnkelvoudigeConditie).%New("TabelA.VeldB = 'IetsB'"))
+	Do WhereConditie.VoegToeSubconditie(CombinatieConditie)
+	Do QueryBuilder.ZetWhereConditie(WhereConditie)
+	
+	Do $$$AssertEquals(QueryBuilder.GeefQueryString(),"SELECT TabelA.VeldA FROM TabelA WHERE TabelA.VeldB = 'IetsB'","De query string")
+]]></Implementation>
+</Method>
+
+<Method name="TestCombinatieConditiesMetLegeConditiesxxxGeenWhereClausule">
+<Implementation><![CDATA[
+	Set QueryBuilder = ##class(TECH.Algo.SQL.QueryEngine.QueryBuilder).%New()
+	
+	Set TabelA = ##class(TECH.Algo.SQL.QueryEngine.Tabel).%New("TabelA")
+	Do QueryBuilder.VoegToeTabel(TabelA)
+	Do QueryBuilder.SelecteerVeldVanTabel("VeldA",TabelA)
+	
+	Set WhereConditie = ##class(TECH.Algo.SQL.QueryEngine.CombinatieConditie).%New(##class(TECH.Algo.SQL.QueryEngine.enu.CombinatieConditieOperator).En())
+	Set CombinatieConditie = ##class(TECH.Algo.SQL.QueryEngine.CombinatieConditie).%New(##class(TECH.Algo.SQL.QueryEngine.enu.CombinatieConditieOperator).Of())
+	Do WhereConditie.VoegToeSubconditie(CombinatieConditie)
+	Do QueryBuilder.ZetWhereConditie(WhereConditie)
+	
+	Do $$$AssertEquals(QueryBuilder.GeefQueryString(),"SELECT TabelA.VeldA FROM TabelA")
+]]></Implementation>
+</Method>
+
+<Method name="TestWhereConditie">
+<Implementation><![CDATA[
+	Set QueryBuilder = ##class(TECH.Algo.SQL.QueryEngine.QueryBuilder).%New()
+	
+	Set TabelA = ##class(TECH.Algo.SQL.QueryEngine.Tabel).%New("TabelA")
+	Do QueryBuilder.VoegToeTabel(TabelA)
+	Do QueryBuilder.SelecteerVeldVanTabel("VeldA",TabelA)
+	
+	Set WhereConditie = ##class(TECH.Algo.SQL.QueryEngine.CombinatieConditie).%New(##class(TECH.Algo.SQL.QueryEngine.enu.CombinatieConditieOperator).En())
+	Do WhereConditie.VoegToeSubconditie(##class(TECH.Algo.SQL.QueryEngine.EnkelvoudigeConditie).%New("TabelA.VeldA = 'IetsA'"))
+	Set CombinatieConditie = ##class(TECH.Algo.SQL.QueryEngine.CombinatieConditie).%New(##class(TECH.Algo.SQL.QueryEngine.enu.CombinatieConditieOperator).Of())
+	Do CombinatieConditie.VoegToeSubconditie(##class(TECH.Algo.SQL.QueryEngine.EnkelvoudigeConditie).%New("TabelA.VeldB = 'IetsB'"))
+	Do CombinatieConditie.VoegToeSubconditie(##class(TECH.Algo.SQL.QueryEngine.EnkelvoudigeConditie).%New("TabelA.VeldC = 'IetsC'"))
+	Do WhereConditie.VoegToeSubconditie(CombinatieConditie)
+	Do WhereConditie.VoegToeSubconditie(##class(TECH.Algo.SQL.QueryEngine.EnkelvoudigeConditie).%New("TabelA.VeldD = 'IetsD'"))
+	
+	Do QueryBuilder.ZetWhereConditie(WhereConditie)
+	
+	Do $$$AssertEquals(QueryBuilder.GeefQueryString(),"SELECT TabelA.VeldA FROM TabelA WHERE (TabelA.VeldA = 'IetsA' AND (TabelA.VeldB = 'IetsB' OR TabelA.VeldC = 'IetsC') AND TabelA.VeldD = 'IetsD')","De query string")
+]]></Implementation>
+</Method>
+
+<Method name="TestJoinMeervoudigeParams">
+<Implementation><![CDATA[
+	Set QueryBuilder = ##class(TECH.Algo.SQL.QueryEngine.QueryBuilder).%New()
+	
+	Set TabelA = ##class(TECH.Algo.SQL.QueryEngine.Tabel).%New("TabelA")
+	Set TabelB = ##class(TECH.Algo.SQL.QueryEngine.Tabel).%New("TabelB")
+	
+	Do QueryBuilder.VoegToeTabel(TabelA)
+	Do QueryBuilder.VoegToeTabel(TabelB)
+	
+	Do QueryBuilder.SelecteerVeldVanTabel("VeldA",TabelA)
+	Do QueryBuilder.SelecteerVeldVanTabel("VeldB",TabelB)
+	
+	Set ForeignKey = ##class(TECH.Algo.SQL.QueryEngine.ForeignKey).%New("VeldB", TabelB, "VeldA", TabelA)
+	Do QueryBuilder.VoegToeForeignKey(ForeignKey)
+	Set ForeignKey = ##class(TECH.Algo.SQL.QueryEngine.ForeignKey).%New("VeldC", TabelB, "VeldB", TabelA)
+	Do QueryBuilder.VoegToeForeignKey(ForeignKey)
+	
+	Do $$$AssertEquals(QueryBuilder.GeefQueryString(),"SELECT TabelA.VeldA, TabelB.VeldB FROM TabelA JOIN TabelB ON TabelB.VeldB = TabelA.VeldA AND TabelB.VeldC = TabelA.VeldB","De query string")
+]]></Implementation>
+</Method>
+
+<Method name="TestMeervoudigeJoin">
+<Implementation><![CDATA[
+	Set QueryBuilder = ##class(TECH.Algo.SQL.QueryEngine.QueryBuilder).%New()
+	
+	Set TabelA = ##class(TECH.Algo.SQL.QueryEngine.Tabel).%New("TabelA")
+	Set TabelB = ##class(TECH.Algo.SQL.QueryEngine.Tabel).%New("TabelB")
+	Set TabelC = ##class(TECH.Algo.SQL.QueryEngine.Tabel).%New("TabelC")
+	
+	Do QueryBuilder.VoegToeTabel(TabelA)
+	Do QueryBuilder.VoegToeTabel(TabelB)
+	Do QueryBuilder.VoegToeTabel(TabelC)
+	
+	Do QueryBuilder.SelecteerVeldVanTabel("VeldA",TabelA)
+	Do QueryBuilder.SelecteerVeldVanTabel("VeldB",TabelB)
+	Do QueryBuilder.SelecteerVeldVanTabel("VeldC",TabelC)
+	
+	Set ForeignKey = ##class(TECH.Algo.SQL.QueryEngine.ForeignKey).%New("VeldB", TabelB, "VeldA", TabelA)
+	Do QueryBuilder.VoegToeForeignKey(ForeignKey)
+	Set ForeignKey = ##class(TECH.Algo.SQL.QueryEngine.ForeignKey).%New("VeldC", TabelB, "VeldB", TabelA)
+	Do QueryBuilder.VoegToeForeignKey(ForeignKey)
+	Set ForeignKey = ##class(TECH.Algo.SQL.QueryEngine.ForeignKey).%New("VeldD", TabelC, "VeldA", TabelA)
+	Do QueryBuilder.VoegToeForeignKey(ForeignKey)
+	
+	Do $$$AssertEquals(QueryBuilder.GeefQueryString(),"SELECT TabelA.VeldA, TabelB.VeldB, TabelC.VeldC FROM TabelA JOIN TabelB ON TabelB.VeldB = TabelA.VeldA AND TabelB.VeldC = TabelA.VeldB JOIN TabelC ON TabelC.VeldD = TabelA.VeldA","De query string")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ObjectUtils/WaardenKopieerder/EmbeddedObject.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ObjectUtils/WaardenKopieerder/EmbeddedObject.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ObjectUtils/WaardenKopieerder/EmbeddedObject.cls.xml	(revision 957)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ObjectUtils.WaardenKopieerder.EmbeddedObject">
+<Super>%SerialObject</Super>
+
+<Property name="aString">
+<Type>%String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>EmbeddedObjectState</State>
+<StreamLocation>^vhUnitTestA2A8.EmbeddedObjectS</StreamLocation>
+<Data name="EmbeddedObjectState">
+<Value name="1">
+<Value>aString</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Algo/TestSort.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/TestSort.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/TestSort.cls.xml	(revision 957)
@@ -0,0 +1,144 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Algo.TestSort">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","TECH.Algo.TestSort")</Description>
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestIntegerInsertionSort">
+<Implementation><![CDATA[
+	Set Lijst = ##class(%ListOfDataTypes).%New()
+	Do Lijst.Insert(10)
+	Do Lijst.Insert(9)
+	Do Lijst.Insert(8)
+	Do Lijst.Insert(7)
+	Do Lijst.Insert(6)
+	Do Lijst.Insert(5)
+	Do Lijst.Insert(4)
+	Do Lijst.Insert(3)
+	Do Lijst.Insert(2)
+	Do Lijst.Insert(1)
+	
+	Do ##class(TECH.Algo.Sort.InsertionSort).Sort(Lijst,##class(TECH.Comparator.IntegerComparator).%New())
+	Do $$$AssertTrue(..IsGesorteerd(Lijst),"De lijst is gesorteerd")
+	
+	Set Lijst = ##class(%ListOfDataTypes).%New()
+	Do Lijst.Insert(1)
+	Do Lijst.Insert(2)
+	Do Lijst.Insert(3)
+	Do Lijst.Insert(4)
+	Do Lijst.Insert(5)
+	Do Lijst.Insert(6)
+	Do Lijst.Insert(7)
+	Do Lijst.Insert(8)
+	Do Lijst.Insert(9)
+	Do Lijst.Insert(10)
+	
+	Do ##class(TECH.Algo.Sort.InsertionSort).Sort(Lijst,##class(TECH.Comparator.IntegerComparator).%New())
+	Do $$$AssertTrue(..IsGesorteerd(Lijst),"De lijst is gesorteerd")
+	
+	Set Lijst = ##class(%ListOfDataTypes).%New()
+	Do Lijst.Insert(6)
+	Do Lijst.Insert(1)
+	Do Lijst.Insert(7)
+	Do Lijst.Insert(2)
+	Do Lijst.Insert(3)
+	Do Lijst.Insert(5)
+	Do Lijst.Insert(8)
+	Do Lijst.Insert(9)
+	Do Lijst.Insert(4)
+	Do Lijst.Insert(10)
+	
+	Do ##class(TECH.Algo.Sort.InsertionSort).Sort(Lijst,##class(TECH.Comparator.IntegerComparator).%New())
+	Do $$$AssertTrue(..IsGesorteerd(Lijst),"De lijst is gesorteerd")
+]]></Implementation>
+</Method>
+
+<Method name="TestIntegerMergeSort">
+<Implementation><![CDATA[
+	Set Lijst = ##class(%ListOfDataTypes).%New()
+	Do Lijst.Insert(10)
+	Do Lijst.Insert(9)
+	Do Lijst.Insert(8)
+	Do Lijst.Insert(7)
+	Do Lijst.Insert(6)
+	Do Lijst.Insert(5)
+	Do Lijst.Insert(4)
+	Do Lijst.Insert(3)
+	Do Lijst.Insert(2)
+	Do Lijst.Insert(1)
+	
+	Do ##class(TECH.Algo.Sort.MergeSort).Sort(Lijst,##class(TECH.Comparator.IntegerComparator).%New())
+	Do $$$AssertTrue(..IsGesorteerd(Lijst),"De lijst is gesorteerd")
+	
+	Set Lijst = ##class(%ListOfDataTypes).%New()
+	Do Lijst.Insert(1)
+	Do Lijst.Insert(2)
+	Do Lijst.Insert(3)
+	Do Lijst.Insert(4)
+	Do Lijst.Insert(5)
+	Do Lijst.Insert(6)
+	Do Lijst.Insert(7)
+	Do Lijst.Insert(8)
+	Do Lijst.Insert(9)
+	Do Lijst.Insert(10)
+	
+	Do ##class(TECH.Algo.Sort.MergeSort).Sort(Lijst,##class(TECH.Comparator.IntegerComparator).%New())
+	Do $$$AssertTrue(..IsGesorteerd(Lijst),"De lijst is gesorteerd")
+	
+	Set Lijst = ##class(%ListOfDataTypes).%New()
+	Do Lijst.Insert(6)
+	Do Lijst.Insert(1)
+	Do Lijst.Insert(7)
+	Do Lijst.Insert(2)
+	Do Lijst.Insert(3)
+	Do Lijst.Insert(5)
+	Do Lijst.Insert(8)
+	Do Lijst.Insert(9)
+	Do Lijst.Insert(4)
+	Do Lijst.Insert(10)
+	
+	Do ##class(TECH.Algo.Sort.MergeSort).Sort(Lijst,##class(TECH.Comparator.IntegerComparator).%New())
+	Do $$$AssertTrue(..IsGesorteerd(Lijst),"De lijst is gesorteerd")
+]]></Implementation>
+</Method>
+
+<Method name="TestStringInsertionSort">
+<Implementation><![CDATA[
+	set Lijst = ##class(%ListOfDataTypes).%New()
+	
+	do Lijst.Insert("B")
+	do Lijst.Insert("D")
+	do Lijst.Insert("C")
+	do Lijst.Insert("A")
+
+	do ##class(TECH.Algo.Sort.InsertionSort).Sort(Lijst,##class(TECH.Comparator.StringComparator).%New())
+	
+	
+	if $$$AssertEquals(Lijst.Size,4,"aantal in de lijst klopt nog") {
+		do $$$AssertEquals(Lijst.GetAt(1),"A")
+		do $$$AssertEquals(Lijst.GetAt(2),"B")
+		do $$$AssertEquals(Lijst.GetAt(3),"C")
+		do $$$AssertEquals(Lijst.GetAt(4),"D")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsGesorteerd">
+<FormalSpec>Lijst:%ListOfDataTypes</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set i = 1
+	While ((i < Lijst.Count()) && (Lijst.GetAt(i) < Lijst.GetAt(i+1)))
+	{
+		Set i = i + 1
+	}
+	Quit i = Lijst.Count()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Exceptions/Exception/VoegToeInnerExcepties/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Exceptions/Exception/VoegToeInnerExcepties/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Exceptions/Exception/VoegToeInnerExcepties/Test.cls.xml	(revision 957)
@@ -0,0 +1,101 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Exceptions.Exception.VoegToeInnerExcepties.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestVoegMinorExceptieLijstVan3ToeAanMinorExceptieMetMinorInnerExceptiexxxExceptieIsMinorMet4InnerExcepties">
+<Implementation><![CDATA[
+	#dim Exceptie As TECH.Exceptions.Exception = ..MaakMinorExceptie()
+	Do Exceptie.VoegToeInnerExceptie(..MaakMinorExceptie())
+	
+	#dim ExceptieLijst As TECH.ExceptionList = ##class(TECH.ExceptionList).%New()
+	Do ExceptieLijst.Insert(..MaakMinorExceptie())
+	Do ExceptieLijst.Insert(..MaakMinorExceptie())
+	Do ExceptieLijst.Insert(..MaakMinorExceptie())
+	
+	Do Exceptie.VoegToeInnerExcepties(ExceptieLijst)
+	
+	Do $$$AssertEquals(Exceptie.GeefInnerExcepties().Count(),4)
+	Do $$$AssertTrue('Exceptie.IsMajor())
+]]></Implementation>
+</Method>
+
+<Method name="TestVoegMinorExceptieLijstVan3ToeAanMajorExceptieMetMajorInnerExceptiexxxExceptieIsMajorMet4InnerExcepties">
+<Implementation><![CDATA[
+	#dim Exceptie As TECH.Exceptions.Exception = ..MaakMajorExceptie()
+	Do Exceptie.VoegToeInnerExceptie(..MaakMajorExceptie())
+	
+	#dim ExceptieLijst As TECH.ExceptionList = ##class(TECH.ExceptionList).%New()
+	Do ExceptieLijst.Insert(..MaakMinorExceptie())
+	Do ExceptieLijst.Insert(..MaakMinorExceptie())
+	Do ExceptieLijst.Insert(..MaakMinorExceptie())
+	
+	Do Exceptie.VoegToeInnerExcepties(ExceptieLijst)
+	
+	Do $$$AssertEquals(Exceptie.GeefInnerExcepties().Count(),4)
+	Do $$$AssertTrue(Exceptie.IsMajor())
+]]></Implementation>
+</Method>
+
+<Method name="TestVoegExceptieLijstVan3Met1MajorExceptieToeAanMinorExceptieMetMinorInnerExceptiexxxExceptieIsMajorMet4InnerExcepties">
+<Implementation><![CDATA[
+	#dim Exceptie As TECH.Exceptions.Exception = ..MaakMinorExceptie()
+	Do Exceptie.VoegToeInnerExceptie(..MaakMinorExceptie())
+	
+	#dim ExceptieLijst As TECH.ExceptionList = ##class(TECH.ExceptionList).%New()
+	Do ExceptieLijst.Insert(..MaakMinorExceptie())
+	Do ExceptieLijst.Insert(..MaakMajorExceptie())
+	Do ExceptieLijst.Insert(..MaakMinorExceptie())
+	
+	Do Exceptie.VoegToeInnerExcepties(ExceptieLijst)
+	
+	Do $$$AssertEquals(Exceptie.GeefInnerExcepties().Count(),4)
+	Do $$$AssertTrue(Exceptie.IsMajor())
+]]></Implementation>
+</Method>
+
+<Method name="TestVoegMinorExceptieLijstVan3ToeAanMajorExceptieMetMinorInnerExceptiexxxExceptieIsMajorMet4InnerExcepties">
+<Implementation><![CDATA[
+	#dim Exceptie As TECH.Exceptions.Exception = ..MaakMajorExceptie()
+	Do Exceptie.VoegToeInnerExceptie(..MaakMinorExceptie())
+	
+	#dim ExceptieLijst As TECH.ExceptionList = ##class(TECH.ExceptionList).%New()
+	Do ExceptieLijst.Insert(..MaakMinorExceptie())
+	Do ExceptieLijst.Insert(..MaakMinorExceptie())
+	Do ExceptieLijst.Insert(..MaakMinorExceptie())
+	
+	Do Exceptie.VoegToeInnerExcepties(ExceptieLijst)
+	
+	Do $$$AssertEquals(Exceptie.GeefInnerExcepties().Count(),4)
+	Do $$$AssertTrue(Exceptie.IsMajor())
+]]></Implementation>
+</Method>
+
+<Method name="MaakMinorExceptie">
+<Private>1</Private>
+<ReturnType>TECH.Exceptions.Exception</ReturnType>
+<Implementation><![CDATA[	Quit ..MaakExceptieVolgensSchaal(##class(TECH.Exceptions.enu.Schaal).Minor())
+]]></Implementation>
+</Method>
+
+<Method name="MaakMajorExceptie">
+<Private>1</Private>
+<ReturnType>TECH.Exceptions.Exception</ReturnType>
+<Implementation><![CDATA[	Quit ..MaakExceptieVolgensSchaal(##class(TECH.Exceptions.enu.Schaal).Major())
+]]></Implementation>
+</Method>
+
+<Method name="MaakExceptieVolgensSchaal">
+<FormalSpec>Schaal:TECH.Exceptions.enu.Schaal</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Exceptions.Exception</ReturnType>
+<Implementation><![CDATA[
+	Set Exceptie = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(), $$$DummyString)
+	Do Exceptie.ZetSchaal(Schaal)
+	Quit Exceptie
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Algo/Boom/impl/BinaireKnoopMetDuplicaten.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/Boom/impl/BinaireKnoopMetDuplicaten.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/Boom/impl/BinaireKnoopMetDuplicaten.cls.xml	(revision 957)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoopMetDuplicaten">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Algo.Boom.BinaireKnoopMetDuplicaten</Super>
+<Inheritance>right</Inheritance>
+
+<Property name="Waarde">
+<Type>%Integer</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Waarde:%Integer</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	 Set ..Waarde = Waarde
+	 Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefComparator">
+<Private>1</Private>
+<ReturnType>TECH.Comparator.IComparator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoopComparator).%New()
+]]></Implementation>
+</Method>
+
+<Method name="IsGelijk">
+<FormalSpec>Knoop:vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoopMetDuplicaten</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (##this.Waarde = Knoop.Waarde)
+]]></Implementation>
+</Method>
+
+<Method name="LinksToevoegen">
+<Description>
+Random links en rechts toevoegen aan de boom, zo blijft de hoogte beperkt bij veel identieke items.</Description>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Exceptions/Exception/ToString/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Exceptions/Exception/ToString/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Exceptions/Exception/ToString/Test.cls.xml	(revision 957)
@@ -0,0 +1,131 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Exceptions.Exception.ToString.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test1InnerExceptie">
+<Implementation><![CDATA[
+	#dim Exception As TECH.Exceptions.GeneralErrorException = ##class(TECH.Exceptions.GeneralErrorException).%New($$$DummyString)
+	#dim InnerExceptie As TECH.Exceptions.BaseException = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"ExceptieString")
+	Do Exception.VoegToeInnerExceptie(InnerExceptie)
+
+	#dim VerwachteString As %String
+	Set VerwachteString = "Omschrijving: 	NIET VAN TOEPASSING"_$$$CRLF_
+								"ErrorCode: 	1000:GeneralError"_$$$CRLF_
+								"Tijdstip: 	2011-06-30 09:15:00"_$$$CRLF_
+								"InnerExceptie 1:"_$$$CRLF_
+								"***Omschrijving: 	ExceptieString"_$$$CRLF_
+								"***ErrorCode: 	1000:GeneralError"_$$$CRLF_
+								"***Tijdstip: 	2011-06-30 09:15:00"_$$$CRLF
+
+	do ..AssertException(..GeefExceptieString(Exception),VerwachteString)
+]]></Implementation>
+</Method>
+
+<Method name="Test2InnerExcepties">
+<Implementation><![CDATA[	Do ..AssertVoorAantalInnerExcepties(2)
+]]></Implementation>
+</Method>
+
+<Method name="Test10InnerExcepties">
+<Implementation><![CDATA[	Do ..AssertVoorAantalInnerExcepties(10)
+]]></Implementation>
+</Method>
+
+<Method name="Test100InnerExcepties">
+<Implementation><![CDATA[	Do ..AssertVoorAantalInnerExcepties(100)
+]]></Implementation>
+</Method>
+
+<Method name="Test1000InnerExceptiesXAfgekapteExceptie">
+<Implementation><![CDATA[
+	#dim Exceptie As TECH.Exceptions.GeneralErrorException = ..GeefExceptieMetOpgegevenAantalInnerExcepties(1000)
+	#dim Resultaat As %String = ..GeefExceptieString(Exceptie)
+	Do $$$AssertTrue(##class(TECH.StringUtils).EndsWith(Resultaat, "Rest van de Exceptie is afgekapt!!!"))
+]]></Implementation>
+</Method>
+
+<Method name="AssertVoorAantalInnerExcepties">
+<FormalSpec>Aantal:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Exceptie As TECH.Exceptions.Exceptie = ..GeefExceptieMetOpgegevenAantalInnerExcepties(Aantal)
+	#dim Resultaat As %String = ..GeefExceptieString(Exceptie)
+	#dim VerwachtResultaat As %String = ..GeefVerwachtResultaat(Aantal)
+	Do ..AssertException(Resultaat,VerwachtResultaat)
+]]></Implementation>
+</Method>
+
+<Method name="GeefExceptieMetOpgegevenAantalInnerExcepties">
+<FormalSpec>Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.IException</ReturnType>
+<Implementation><![CDATA[
+	#dim Exceptie As TECH.Exceptions.GeneralErrorException = ##class(TECH.Exceptions.GeneralErrorException).%New($$$DummyString)
+	#dim InnerExceptieLijst As List of TECH.Exceptions.Exception = ##class(%ListOfObjects).%New()
+	#dim i As %Integer
+	For i=1:1:Aantal {
+		Do InnerExceptieLijst.Insert(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"InnerExceptieString"_i))
+		Do Exceptie.VoegToeInnerExceptie(InnerExceptieLijst.GetAt(i))
+	}
+	Quit Exceptie
+]]></Implementation>
+</Method>
+
+<Method name="GeefExceptieString">
+<FormalSpec>Exceptie:TECH.IException</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim List As %String
+	try {
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	} catch {
+		#dim Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set List = Exception.ToString()
+	}
+	Quit List
+]]></Implementation>
+</Method>
+
+<Method name="AssertException">
+<FormalSpec>Resultaat:%String,VerwachtResultaat:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim List As %String = ##class(TECH.ListUtils).PiecesToList(Resultaat,$$$CRLF)
+	#dim ListVerwachtResultaat As %String  = ##class(TECH.ListUtils).PiecesToList(VerwachtResultaat,$$$CRLF)
+	Do $$$AssertEqualsList(List,ListVerwachtResultaat)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerwachtResultaat">
+<FormalSpec>Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Resultaat As %String
+	Set Resultaat = "Omschrijving: 	NIET VAN TOEPASSING"_$$$CRLF_
+						"ErrorCode: 	1000:GeneralError"_$$$CRLF_
+						"Tijdstip: 	2011-06-30 09:15:00"_$$$CRLF
+	#dim i As %Integer
+	For i=1:1:Aantal {
+		Set Resultaat = Resultaat _ "InnerExceptie "_i_":"_$$$CRLF_
+								"***Omschrijving: 	InnerExceptieString"_i_$$$CRLF_
+								"***ErrorCode: 	1000:GeneralError"_$$$CRLF_
+								"***Tijdstip: 	2011-06-30 09:15:00"_$$$CRLF
+	}
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	Do ##class(vhTest.Utils.FakeTECHDateTime).Activeer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Visitor/impl/VisitorsAccepteerder/Object.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Visitor/impl/VisitorsAccepteerder/Object.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Visitor/impl/VisitorsAccepteerder/Object.cls.xml	(revision 957)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Visitor.impl.VisitorsAccepteerder.Object">
+<Super>%RegisteredObject</Super>
+
+<Property name="VisitedBy">
+<Type>%String</Type>
+<Collection>list</Collection>
+</Property>
+
+<Method name="Accept">
+<FormalSpec>Visitor:vhUnitTest.TECH.Visitor.impl.VisitorsAccepteerder.Visitor</FormalSpec>
+<Implementation><![CDATA[	do Visitor.Verwerk($this)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/vhLib/DataTypes.cls.xml
===================================================================
diff -u
--- vhUnitTest/vhLib/DataTypes.cls.xml	(revision 0)
+++ vhUnitTest/vhLib/DataTypes.cls.xml	(revision 957)
@@ -0,0 +1,115 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.vhLib.DataTypes">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestExternNaarInternDatumFormaat">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/display=all","vhLib.DataTypes")</Description>
+<Implementation><![CDATA[
+		do ..ControleExternNaarInternDatumFormaat("01-02-03",,59201)
+		do ..ControleExternNaarInternDatumFormaat("39-02-03",,"")
+		do ..ControleExternNaarInternDatumFormaat("12-24-03",,"")
+		do ..ControleExternNaarInternDatumFormaat("01-02-03","DK",59201)
+		do ..ControleExternNaarInternDatumFormaat("39-02-03","DK",)
+		do ..ControleExternNaarInternDatumFormaat("12-24-03","DK",)
+		do ..ControleExternNaarInternDatumFormaat("AA-AA-03","DK",)
+		
+		do ..ControleExternNaarInternDatumFormaat("2003\02\01",,59201)
+		do ..ControleExternNaarInternDatumFormaat("2003\02\01","DS",59201)
+		do ..ControleExternNaarInternDatumFormaat("2003\13\01","DS","")
+		do ..ControleExternNaarInternDatumFormaat("2003\12\34","DS","")
+		
+		do ..ControleExternNaarInternDatumFormaat("20030201",,59201)
+		do ..ControleExternNaarInternDatumFormaat("20030201","DSN",59201)		
+				
+		do ..ControleExternNaarInternDatumFormaat("01-02-2003",,59201)
+		do ..ControleExternNaarInternDatumFormaat("01-02-2003","DK4",59201)
+		do ..ControleExternNaarInternDatumFormaat("01-02-20030","DK4","")
+		do ..ControleExternNaarInternDatumFormaat("01-02-20030",,"")
+		
+		do ..ControleExternNaarInternDatumFormaat("01.02.03",,59201)
+		do ..ControleExternNaarInternDatumFormaat("01.02.03","DKP",59201)
+		do ..ControleExternNaarInternDatumFormaat("01.14.03","DKP","")
+		do ..ControleExternNaarInternDatumFormaat("14.14.03","DKP","")
+		
+		do ..ControleExternNaarInternDatumFormaat("01-Feb-03","DL",59201)
+		do ..ControleExternNaarInternDatumFormaat("01-Feb-03",,59201)
+		
+		do ..ControleExternNaarInternDatumFormaat("30-Feb-03","DL","")
+		
+		do ..ControleExternNaarInternDatumFormaat("03-02",,59215)
+		do ..ControleExternNaarInternDatumFormaat("03.02",,59215)
+		do ..ControleExternNaarInternDatumFormaat("03-02","DM",59215)
+		do ..ControleExternNaarInternDatumFormaat("03.02","DM",59215)
+		
+		do ..ControleExternNaarInternDatumFormaat("Feb'03","DMC",59215)		; <
+		do ..ControleExternNaarInternDatumFormaat("Fea'03","DMC","")
+				
+		do ..ControleExternNaarInternDatumFormaat("2003.02",,59215)		
+		do ..ControleExternNaarInternDatumFormaat("2003.02","DM4",59215)
+		do ..ControleExternNaarInternDatumFormaat("2003.13","DM4","")
+		
+		do ..ControleExternNaarInternDatumFormaat("03/05","DW",59198)
+		do ..ControleExternNaarInternDatumFormaat("12/34","DW",62691)
+		
+		do ..ControleExternNaarInternDatumFormaat("2003/05","DW4",59198)				
+		do ..ControleExternNaarInternDatumFormaat("2003/13","DW4",59254)
+		do ..ControleExternNaarInternDatumFormaat("2003/54","DW4","")
+		
+		do ..ControleExternNaarInternDatumFormaat("3","J",59351)
+		do ..ControleExternNaarInternDatumFormaat("03","J",59351)
+		
+		do ..ControleExternNaarInternDatumFormaat("2003","J4",59351)
+]]></Implementation>
+</Method>
+
+<Method name="ControleExternNaarInternDatumFormaat">
+<FormalSpec>Ingave:%String,Type:%String="",Resultaat:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	#dim Tekst As %String = Ingave _ "_" _ Type_"_" _Resultaat
+	do $$$AssertEquals($$INTDATE^vhLib.DataTypes(Ingave,Type),Resultaat,Tekst)
+	do $$$AssertEquals($Length(Resultaat)>0,$$ValidateDateFormat^vhLib.DataTypes(Ingave ,Type),Tekst)
+]]></Implementation>
+</Method>
+
+<Method name="TestInternNaarExternDatumFormaat">
+<Implementation><![CDATA[
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DS"),"2003\02\01")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DS2"),"03\02\01")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DSN"),"20030201")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DSN2"),"030201")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DVS"),"02/01/03")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DVS4"),"02/01/2003")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201),"01-02-03")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DK"),"01-02-03")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DK4"),"01-02-2003")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DKN"),"010203")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DKN4"),"01022003")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DKP"),"01.02.03")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DKD"),"zat 01/02/2003")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DL"),"01-Feb-03")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DL4"),"01-Feb-2003")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DM"),"03-02")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DMC"),"Feb'03")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DM4"),"2003.02")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DW"),"03/05")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DW4"),"2003/05")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"BJ"),"2003")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"J"),"03")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"J4"),"2003")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DC"),"Zaterdag")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DCK"),"Zat")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"W"),"05")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"MN"),"02")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"MC"),"Feb")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"MCL"),"Februari")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DWN"),"6")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DMN"),"1")
+		do $$$AssertEquals($$EXTDATE^vhLib.DataTypes(59201,"DJN"),"32")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/Tools/ObjectDumper/ObjectCreator.cls.xml
===================================================================
diff -u
--- vhUnitTest/Tools/ObjectDumper/ObjectCreator.cls.xml	(revision 0)
+++ vhUnitTest/Tools/ObjectDumper/ObjectCreator.cls.xml	(revision 957)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Tools.ObjectDumper.ObjectCreator">
+<Super>%RegisteredObject</Super>
+
+<Method name="GetObject">
+<ClassMethod>1</ClassMethod>
+<ReturnType>vhUnitTest.Tools.ObjectDumper.BaseObject</ReturnType>
+<Implementation><![CDATA[
+	set Object = ##class(vhUnitTest.Tools.ObjectDumper.BaseObject).%New()
+	
+	set Object.PropertyAsString = "string"
+	set Object.PropertyAsInteger = 1
+	set Object.PropertyAsBoolean = 0
+	set Object.PropertyAsDecimal = 1.5
+	
+	set Object.PropertyAsList = $listbuild("Item1",$listbuild("Item2.1","Item2.2"))
+	
+	do Object.PropertyAsListOfDataTypes.Insert("Item1")
+	do Object.PropertyAsListOfDataTypes.Insert("Item2")
+	
+	do Object.PropertyAsArrayOfDataTypes.SetAt("Item1","Key1")
+	do Object.PropertyAsArrayOfDataTypes.SetAt("Item2","Key2")
+	
+	set Object.PropertyAsObject = ##class(vhUnitTest.Tools.ObjectDumper.Object).%New()
+	set Object.PropertyAsObject.PropertyAsInteger = 1
+	set Object.PropertyAsObject.PropertyAsString = "string"
+	
+	set Object.PropertyAsObjectZonderPackage = Object.PropertyAsObject
+	
+	do Object.PropertyAsArrayOfObjects.SetAt(Object.PropertyAsObject,"Key1")
+	do Object.PropertyAsArrayOfObjects.SetAt(Object.PropertyAsObject,"Key2")
+	
+	do Object.PropertyAsListOfObjects.Insert(Object.PropertyAsObject)
+	do Object.PropertyAsListOfObjects.Insert(Object.PropertyAsObject)
+	
+	set Object.PropertyAsMultiDim(1)="1"
+	set Object.PropertyAsMultiDim(1,2)="1,2"
+	set Object.PropertyAsMultiDim(2,2)="2,2"
+	
+	set Object.PropertyAsEnumeration = ##class(vhUnitTest.Tools.ObjectDumper.Enumeration).Een()
+	
+	quit Object
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Config/TestConfigMgr.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Config/TestConfigMgr.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Config/TestConfigMgr.cls.xml	(revision 957)
@@ -0,0 +1,87 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Config.TestConfigMgr">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug=1/display=all","TECH.Config")</Description>
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestStringCRUD">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set sleutel = "UnitTest string " _ $Zdatetime($zts)
+	Set waarde = sleutel _ "waarde"
+	Set nieuweWaarde = sleutel _ "nieuw"
+
+	Quit ..CheckCRUD(sleutel, waarde, nieuweWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="TestBooleanCRUD">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set sleutel = "UnitTest boolean " _ $Zdatetime($zts)
+	Set waarde = 1
+	Set nieuweWaarde = 0
+
+	Quit ..CheckCRUD(sleutel, waarde, nieuweWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="TestAppSpecifiek">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim Sleutel As %String = "UnitTest string app specifiek " _ $Zdatetime($zts)
+	#dim Waarde As %String = Sleutel _ "waarde"
+	#dim AppSpecifiekeWaarde As %String = Sleutel _ "app specifiek"
+	#dim Applicatie As %String = "TestAppSpecifiek"
+	#dim ConfigMgr As TECH.Config.ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
+	
+	Do ConfigMgr.SetString(Sleutel, Waarde)
+	Do ConfigMgr.SetString(Sleutel, AppSpecifiekeWaarde, Applicatie)
+
+	do ##class(TECH.Context.RuntimeContext).Instance().ZetApplicatie(Applicatie)
+	#dim appSpecifiekeWaardeGelezen As %Boolean = ConfigMgr.GetString(Sleutel)
+	quit:'($$$AssertEquals(AppSpecifiekeWaarde, appSpecifiekeWaardeGelezen, "De app specifieke waarde moet opgehaald kunnen worden."))
+	
+	do ##class(TECH.Context.RuntimeContext).Instance().ZetApplicatie("")
+	#dim waardeGelezen As %Boolean = ConfigMgr.GetString(Sleutel)
+	quit:'($$$AssertEquals(Waarde, waardeGelezen, "De NIET-app specifieke waarde moet opgehaald kunnen worden."))
+	
+	Do ConfigMgr.WisSleutel(Sleutel)
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="CheckCRUD">
+<FormalSpec>sleutel:%String,waarde:%String,nieuweWaarde:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set configMgr = ##class(TECH.Config.ConfigMgr).Instance()
+		
+	// Check BestaatSleutel
+	Set bestaat = configMgr.BestaatSleutel(sleutel)
+	Quit:'($$$AssertEquals(0, bestaat, "De sleutel mag nog niet bestaan."))
+		
+	// Check Create en Read
+	Do configMgr.SetString(sleutel, waarde)
+	Set waardeGelezen = configMgr.GetString(sleutel)
+	Quit:'($$$AssertEquals(waarde, waardeGelezen, "De bewaarde waarde moet opgehaald kunnen worden."))
+		
+		// Check Update
+	Do configMgr.SetString(sleutel, nieuweWaarde)
+	Set nieuweWaardeGelezen = configMgr.GetString(sleutel)
+	Quit:'($$$AssertEquals(nieuweWaarde, nieuweWaardeGelezen, "De gewijzigde waarde moet opgehaald kunnen worden."))
+		
+		// Check Delete
+	Do configMgr.WisSleutel(sleutel)
+		
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Persistent/OnAfterSave/OnAfterSaveEvent.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Persistent/OnAfterSave/OnAfterSaveEvent.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Persistent/OnAfterSave/OnAfterSaveEvent.cls.xml	(revision 957)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Persistent.OnAfterSave.OnAfterSaveEvent">
+<Super>TECH.PubSub.Event</Super>
+
+<Method name="%OnNew">
+<FormalSpec>Data:TECH.PubSub.EventData</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ 	Set ..Type = "vhUnitTestTECHPersistentOnAfterSaveEvent"
+	Quit ##super(Data)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/vhLib/TerminalDevice/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/vhLib/TerminalDevice/Test.cls.xml	(revision 0)
+++ vhUnitTest/vhLib/TerminalDevice/Test.cls.xml	(revision 957)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.vhLib.TerminalDevice.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestGeefIctGebruikerInitialenVanIP">
+<Implementation><![CDATA[
+	do $$$AssertEquals(##class(vhLib.TerminalDevice).GeefIctGebruikerInitialenVanIP("192.168.1.6"),"","ip van cache01")
+	do $$$AssertEquals(##class(vhLib.TerminalDevice).GeefIctGebruikerInitialenVanIP("192.168.1.15"),"pv")
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefIctGebruikerInitialenVanToestel">
+<Implementation><![CDATA[
+	do $$$AssertEquals(##class(vhLib.TerminalDevice).GeefIctGebruikerInitialenVanToestel("LVH-W7"),"","PVH zal wel nooit IT-er worden")
+	do $$$AssertEquals(##class(vhLib.TerminalDevice).GeefIctGebruikerInitialenVanToestel("|TNT|LVH-W7"),"")
+	do $$$AssertEquals(##class(vhLib.TerminalDevice).GeefIctGebruikerInitialenVanToestel("|TNT|PV-W7"),"pv")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ClassUtils/GeefProperties/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ClassUtils/GeefProperties/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ClassUtils/GeefProperties/Test.cls.xml	(revision 957)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ClassUtils.GeefProperties.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestOnbestaandeKlasse">
+<Implementation><![CDATA[
+	#dim List As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	do $$$AssertEqualsList(List,##class(TECH.ClassUtils).GeefProperties("vhUnitTest.TECH.ClassUtils.GeefProperties.OnbestaandeKlasse"))
+]]></Implementation>
+</Method>
+
+<Method name="TestLegeKlasse">
+<Implementation><![CDATA[
+	#dim List As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	do $$$AssertEqualsList(List,##class(TECH.ClassUtils).GeefProperties("vhUnitTest.TECH.ClassUtils.GeefProperties.LegeKlasse"))
+]]></Implementation>
+</Method>
+
+<Method name="TestAlleProperties">
+<Implementation><![CDATA[
+	#dim List As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("PrivateProperty1","PrivateProperty2","PublicProperty1","PublicProperty2")
+	do $$$AssertEqualsList(List,##class(TECH.ClassUtils).GeefProperties("vhUnitTest.TECH.ClassUtils.GeefProperties.Klasse"))
+]]></Implementation>
+</Method>
+
+<Method name="TestBeginnendMetFilter">
+<Implementation><![CDATA[
+	set Filter = ##class(TECH.ClassUtils.PropertyFilter).%New()
+	set Filter.BeginnendMet = "Private"
+	#dim List As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("PrivateProperty1","PrivateProperty2")
+	do $$$AssertEqualsList(List,##class(TECH.ClassUtils).GeefProperties("vhUnitTest.TECH.ClassUtils.GeefProperties.Klasse",Filter))
+]]></Implementation>
+</Method>
+
+<Method name="TestFilterPrivateMethods">
+<Implementation><![CDATA[
+	set Filter = ##class(TECH.ClassUtils.PropertyFilter).%New()
+	set Filter.SkipPrivate = 1
+	#dim List As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("PublicProperty1","PublicProperty2")
+	do $$$AssertEqualsList(List,##class(TECH.ClassUtils).GeefProperties("vhUnitTest.TECH.ClassUtils.GeefProperties.Klasse",Filter))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Mail/TestMailAPI.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Mail/TestMailAPI.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Mail/TestMailAPI.cls.xml	(revision 957)
@@ -0,0 +1,78 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Mail.TestMailAPI">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	Do ##class(TECH.Context).Instance().PushMailAPIClassName("vhUnitTest.TECH.Mail.impl.MailAPIMock")
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("MiniMail_VoegServerPrefixToe",1)
+]]></Implementation>
+</Method>
+
+<Method name="TestMaakNieuwMail">
+<Implementation><![CDATA[
+	#dim Mail As TECH.Mail.Mail = ##class(TECH.Context).Instance().GeefMailAPI().MaakNieuwMail()
+	
+	If $$$AssertTrue($IsObject(Mail),"Object Mail is aangemaakt."){
+		Do $$$AssertEquals(Mail.%ClassName(1),"TECH.Mail.impl.Mail")	
+		
+		Do Mail.ZetOnderwerp("Unittest onderwerp")
+		Do Mail.VoegToeOntvanger("ut@vanhoecke.be")
+		Do Mail.ZetInhoud("Een lijn als inhoud van de mail")
+		
+		#dim Message As %Net.MailMessage = Mail.GeefMailMessage()
+		Do $$$AssertEquals(Message.Subject,"["_$$$Server_"]"_" Unittest onderwerp")
+		Do $$$AssertContains(Message.To.GetAt(1),"@vanhoecke.be")
+		Do $$$AssertEquals(Message.TextData.ReadLine(),"Intended Recipients : (redirected by configitem vhLib.Mail_RedirectMailToDevelopment)")
+		Do $$$AssertEquals(Message.TextData.ReadLine(),"  To  : ut@vanhoecke.be")
+		Do $$$AssertEquals(Message.TextData.ReadLine(),"============================================================")
+		Do $$$AssertEquals(Message.TextData.ReadLine(),"")
+		Do $$$AssertEquals(Message.TextData.ReadLine(),"Een lijn als inhoud van de mail")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="TestVerstuurMail">
+<Implementation><![CDATA[
+	#dim MailAPI As vhUnitTest.TECH.Mail.impl.MailAPIMock = ##class(TECH.Context).Instance().GeefMailAPI()
+	#dim Mail1 As TECH.Mail.Mail = ..MaakNieuwMail("UT mail 1")
+	#dim Mail2 As TECH.Mail.Mail = ..MaakNieuwMail("UT mail 2")
+	
+	Do MailAPI.VerstuurMail(Mail1)
+	Do MailAPI.VerstuurMail(Mail2)
+	
+	Do $$$AssertEquals(MailAPI.GeefAantalVerzondenMails(),2)
+	#dim VerzondenMailIt As TECH.Iterator = MailAPI.GeefVerzondenMailIterator()
+	
+	If $$$AssertTrue(VerzondenMailIt.HasNext()){
+		#dim VerzondenMail1 As TECH.Mail.Mail = VerzondenMailIt.Next()
+		Do $$$AssertEquals(VerzondenMail1.GeefOnderwerp(),Mail1.GeefOnderwerp())			
+	}
+	If $$$AssertTrue(VerzondenMailIt.HasNext()){
+		#dim VerzondenMail2 As TECH.Mail.Mail = VerzondenMailIt.Next()
+		Do $$$AssertEquals(VerzondenMail2.GeefOnderwerp(),Mail2.GeefOnderwerp())			
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakNieuwMail">
+<FormalSpec>Onderwerp:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim MailAPI As TECH.Mail.MailAPI = ##class(TECH.Context).Instance().GeefMailAPI()
+	#dim Mail As TECH.Mail.Mail = MailAPI.MaakNieuwMail()
+	
+	Do Mail.ZetOnderwerp(Onderwerp)
+	Do Mail.VoegToeOntvanger("ut@vanhoecke.be")
+	Do Mail.ZetInhoud("Een lijn als inhoud van de mail")	
+	
+	Quit Mail
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ClassUtils/GeefProperties/Klasse.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ClassUtils/GeefProperties/Klasse.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ClassUtils/GeefProperties/Klasse.cls.xml	(revision 957)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ClassUtils.GeefProperties.Klasse">
+<Super>%RegisteredObject</Super>
+
+<Property name="PublicProperty1">
+<Type>%String</Type>
+</Property>
+
+<Property name="PublicProperty2">
+<Type>%String</Type>
+</Property>
+
+<Property name="PrivateProperty1">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PrivateProperty2">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/UTVhChangeInfo.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/UTVhChangeInfo.cls.xml	(revision 0)
+++ vhUnitTest/TECH/UTVhChangeInfo.cls.xml	(revision 957)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.UTVhChangeInfo">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.VhChangeInfo</Super>
+
+<Property name="TestProp">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^vhUnitTest.T570.UTVhChangeInfoD</DataLocation>
+<DefaultData>UTVhChangeInfoDefaultData</DefaultData>
+<IdLocation>^vhUnitTest.T570.UTVhChangeInfoD</IdLocation>
+<IndexLocation>^vhUnitTest.T570.UTVhChangeInfoI</IndexLocation>
+<StreamLocation>^vhUnitTest.T570.UTVhChangeInfoS</StreamLocation>
+<Data name="UTVhChangeInfoDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>AangemaaktDoor</Value>
+</Value>
+<Value name="3">
+<Value>AangemaaktOp</Value>
+</Value>
+<Value name="4">
+<Value>GewijzigdDoor</Value>
+</Value>
+<Value name="5">
+<Value>GewijzigdOp</Value>
+</Value>
+<Value name="6">
+<Value>InstanceVersion</Value>
+</Value>
+<Value name="7">
+<Value>TestProp</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/Tools/ObjectDumper/SerialObject.cls.xml
===================================================================
diff -u
--- vhUnitTest/Tools/ObjectDumper/SerialObject.cls.xml	(revision 0)
+++ vhUnitTest/Tools/ObjectDumper/SerialObject.cls.xml	(revision 957)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Tools.ObjectDumper.SerialObject">
+<Super>%SerialObject</Super>
+
+<Property name="PropertyAsString">
+<Type>%String</Type>
+</Property>
+
+<Property name="PropertyAsInteger">
+<Type>%Integer</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>SerialObjectState</State>
+<StreamLocation>^vhUnitTest.Too7AD.SerialObjectS</StreamLocation>
+<Data name="SerialObjectState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>PropertyAsString</Value>
+</Value>
+<Value name="2">
+<Value>PropertyAsInteger</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ReversedListIterator/DataObject.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ReversedListIterator/DataObject.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ReversedListIterator/DataObject.cls.xml	(revision 957)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ReversedListIterator.DataObject">
+<Super>%RegisteredObject</Super>
+
+<Property name="Property">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>PropertyValue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..Property = PropertyValue
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/TestPersistent.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/TestPersistent.cls.xml	(revision 0)
+++ vhUnitTest/TECH/TestPersistent.cls.xml	(revision 957)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.TestPersistent">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestFoutmeldingBijSaveExceptie">
+<Implementation><![CDATA[
+	Try
+	{
+		Set Klasse = ##class(vhUnitTest.TECH.impl.PersistenteKlasse).%New()
+		Set Klasse.ThrowExceptie = 1
+		Do Klasse.Save()
+		Do $$$AssertTrue(0,"Mag hier niet komen, save moet falen")
+	}
+	Catch e
+	{
+		Do $$$AssertEquals(##class(TECH.ExceptionHandler).Catch().GeefOmschrijving(),"Dit is de foutmelding")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="TestFoutmeldingBijSaveStatus">
+<Implementation><![CDATA[
+	Try
+	{
+		Set Klasse = ##class(vhUnitTest.TECH.impl.PersistenteKlasse).%New()
+		Set Klasse.ThrowExceptie = 0
+		Do Klasse.Save()
+		Do $$$AssertTrue(0,"Mag hier niet komen, save moet falen")
+	}
+	Catch e
+	{
+		Do $$$AssertContains(##class(TECH.ExceptionHandler).Catch().GeefOmschrijving(),"Kon object van type vhUnitTest.TECH.impl.PersistenteKlasse niet opslaan")
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/UTChangeInfo.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/UTChangeInfo.cls.xml	(revision 0)
+++ vhUnitTest/TECH/UTChangeInfo.cls.xml	(revision 957)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.UTChangeInfo">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.ChangeInfo</Super>
+
+<Property name="TestProp">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^vhUnitTest.TECH.UTChangeInfoD</DataLocation>
+<DefaultData>UTChangeInfoDefaultData</DefaultData>
+<IdLocation>^vhUnitTest.TECH.UTChangeInfoD</IdLocation>
+<IndexLocation>^vhUnitTest.TECH.UTChangeInfoI</IndexLocation>
+<StreamLocation>^vhUnitTest.TECH.UTChangeInfoS</StreamLocation>
+<Data name="UTChangeInfoDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>AangemaaktDoor</Value>
+</Value>
+<Value name="3">
+<Value>AangemaaktOp</Value>
+</Value>
+<Value name="4">
+<Value>GewijzigdDoor</Value>
+</Value>
+<Value name="5">
+<Value>GewijzigdOp</Value>
+</Value>
+<Value name="6">
+<Value>TestProp</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/MethodDefinition.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/MethodDefinition.cls.xml	(revision 0)
+++ vhUnitTest/TECH/MethodDefinition.cls.xml	(revision 957)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.MethodDefinition">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestUsedRoutines">
+<Implementation><![CDATA[
+	#dim MethodDefinition As %Dictionary.MethodDefinition = ##class(TECH.ClassDefinition).%New().GetMethodDefinition("vhUnitTest.TECH.MethodDefinition","DummyMethod")
+	
+	#dim UsedRoutineNames As %ListOfDataTypes = ##class(TECH.MethodDefinition).Instance().GetUsedRoutines(MethodDefinition)
+	
+	do $$$AssertEquals(UsedRoutineNames.Count(),2)
+	do $$$AssertTrue(UsedRoutineNames.Find("vhLib.Query"),"FromImplementation")
+	do $$$AssertFalse(UsedRoutineNames.Find("vhUnitTest.TECH.MethodDefinition.DummyRoutine1"),"FromImplementation")
+	do $$$AssertTrue(UsedRoutineNames.Find("vhUnitTest.TECH.MethodDefinition.DummyRoutine2"),"FromImplementation")
+]]></Implementation>
+</Method>
+
+<Method name="TestUsedClasses">
+<Implementation><![CDATA[
+	#dim MethodDefinition As %Dictionary.MethodDefinition = ##class(TECH.ClassDefinition).%New().GetMethodDefinition("vhUnitTest.TECH.MethodDefinition","DummyMethod")
+	
+	#dim UsedClassNames As %ListOfDataTypes = ##class(TECH.MethodDefinition).Instance().GetUsedClassNames(MethodDefinition)
+	
+	do $$$AssertEquals(UsedClassNames.Count(),6)
+	do $$$AssertTrue(UsedClassNames.Find("vhUnitTest.TestCase"),"FromFormalSpec")
+	do $$$AssertTrue(UsedClassNames.Find("vhUnitTest.Report"),"FromReturnType")
+	do $$$AssertTrue(UsedClassNames.Find("vhUnitTest.TECH.MethodDefinition"),"FromImplementation")
+	do $$$AssertTrue(UsedClassNames.Find("vhUnitTest.Manager"),"FromImplementation")
+	do $$$AssertTrue(UsedClassNames.Find("vhUnitTest.TECH.MethodDefinition.DummyClass1"),"FromImplementation")
+	do $$$AssertTrue(UsedClassNames.Find("vhUnitTest.TECH.MethodDefinition.DummyClass2"),"FromImplementation")
+]]></Implementation>
+</Method>
+
+<Method name="DummyMethod">
+<FormalSpec>Method:vhUnitTest.TestCase</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhUnitTest.Report</ReturnType>
+<Implementation><![CDATA[
+	#dim x As vhUnitTest.TECH.MethodDefinition = ##class(vhUnitTest.TECH.MethodDefinition.DummyClass1).OpenId(1)
+	do $$$AssertTrue(##class(vhUnitTest.Manager).RunTest("/display=",""))
+	
+	if $$ExecDynQuery^vhLib.Query("SELECT * FROM vhUnitTest_TECH_MethodDefinition.DummyClass2")
+	
+	set ^vhUnitTest.TECH.MethodDefinition.DummyRoutine1 = 1
+	kill ^vhUnitTest.TECH.MethodDefinition.DummyRoutine1
+	
+	do:x ^vhUnitTest.TECH.MethodDefinition.DummyRoutine2
+	
+	#dim String As %String = "vhUnitTest_TECH.MethodDefinition."_"NotExistingClass"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/MethodDefinition/vhUnitTest/TECH/MethodDefinition/DummyRoutine1.mac.rou
===================================================================
diff -u
--- vhUnitTest/TECH/MethodDefinition/vhUnitTest/TECH/MethodDefinition/DummyRoutine1.mac.rou	(revision 0)
+++ vhUnitTest/TECH/MethodDefinition/vhUnitTest/TECH/MethodDefinition/DummyRoutine1.mac.rou	(revision 957)
@@ -0,0 +1 @@
+TEST
Index: vhUnitTest/TECH/File/dto/Object1.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/File/dto/Object1.cls.xml	(revision 0)
+++ vhUnitTest/TECH/File/dto/Object1.cls.xml	(revision 957)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.File.dto.Object1">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<Inheritance>right</Inheritance>
+
+<Property name="SubEigenschap">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingEnkel.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingEnkel.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingEnkel.cls.xml	(revision 957)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Algo.Stapeling.NiveauSchikkingEnkel">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Algo.Stapeling.INiveauSchikking</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefMaxAantalObjecten">
+<Description>
+Geeft het maximaal aantal objecten dat deze schikking kan plaatsen</Description>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="GebruikObjecten">
+<Description>
+Krijgt een Stack van TECH.Algo.Stapeling.I3DObject binnen. Geeft het aantal 3D objecten terug die het zal gebruiken.</Description>
+<FormalSpec>I3DObjecten:TECH.Stack</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Do I3DObjecten.Pop()
+	Quit 1
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/OBJ/Validator/Object.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/OBJ/Validator/Object.cls.xml	(revision 0)
+++ vhUnitTest/TECH/OBJ/Validator/Object.cls.xml	(revision 957)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.OBJ.Validator.Object">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<Inheritance>right</Inheritance>
+
+<Property name="Property1">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+<Parameter name="VALUELIST" value=",1,2,3,4"/>
+</Property>
+
+<Property name="Property2">
+<Type>%String</Type>
+<Required>1</Required>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/DataTransferObjectUtils/DataTransferObject.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/DataTransferObjectUtils/DataTransferObject.cls.xml	(revision 0)
+++ vhUnitTest/TECH/DataTransferObjectUtils/DataTransferObject.cls.xml	(revision 957)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.DataTransferObjectUtils.DataTransferObject">
+<Super>TECH.DataTransferObject</Super>
+
+<Parameter name="XMLNAME">
+<Default>UT_DTO</Default>
+</Parameter>
+
+<Property name="Veld1">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="VELD1"/>
+</Property>
+
+<Property name="LeegVeld">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="LEEGVELD"/>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ListUtils/Doorsnede/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ListUtils/Doorsnede/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ListUtils/Doorsnede/Test.cls.xml	(revision 957)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ListUtils.Doorsnede.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestTweeLegeLijstenxxxLegeLijst">
+<Implementation><![CDATA[
+	#dim List1 As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes()
+	#dim List2 As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes()
+	
+	#dim Result As %ListOfDataTypes = ##class(TECH.ListUtils).Doorsnede(List1,List2)
+	
+	do $$$AssertEquals(Result.Count(),0)
+]]></Implementation>
+</Method>
+
+<Method name="TestEenLegeLijstxxxLegeLijst">
+<Implementation><![CDATA[
+	#dim List1 As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes()
+	#dim List2 As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(1)
+	
+	#dim Result As %ListOfDataTypes = ##class(TECH.ListUtils).Doorsnede(List1,List2)
+	
+	do $$$AssertEquals(Result.Count(),0)
+]]></Implementation>
+</Method>
+
+<Method name="TestGeenGemeenschappelijkeWaardexxxLegeLijst">
+<Implementation><![CDATA[
+	#dim List1 As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(1)
+	#dim List2 As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(2)
+	
+	#dim Result As %ListOfDataTypes = ##class(TECH.ListUtils).Doorsnede(List1,List2)
+	
+	do $$$AssertEquals(Result.Count(),0)
+]]></Implementation>
+</Method>
+
+<Method name="TestEenGemeenschappelijkeWaardexxxLegeLijst">
+<Implementation><![CDATA[
+	#dim List1 As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(1)
+	#dim List2 As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(1)
+	
+	#dim Result As %ListOfDataTypes = ##class(TECH.ListUtils).Doorsnede(List1,List2)
+	
+	if $$$AssertEquals(Result.Count(),1) {
+		do $$$AssertEquals(Result.GetAt(1),1)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/DateTime.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/DateTime.cls.xml	(revision 0)
+++ vhUnitTest/TECH/DateTime.cls.xml	(revision 957)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.DateTime">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestIsValidHorolog">
+<Implementation><![CDATA[
+	do $$$AssertTrue(##class(TECH.DateTime).IsValidHorolog("62528,58485"))
+	do $$$AssertTrue(##class(TECH.DateTime).IsValidHorolog("62528,00000"))
+	do $$$AssertTrue(##class(TECH.DateTime).IsValidHorolog("62528,11212"))
+	do $$$AssertTrue(##class(TECH.DateTime).IsValidHorolog("62528,99"))
+	do $$$AssertTrue(##class(TECH.DateTime).IsValidHorolog("00,00"))
+	do $$$AssertTrue(##class(TECH.DateTime).IsValidHorolog(""))
+	
+	do $$$AssertFalse(##class(TECH.DateTime).IsValidHorolog("-62528.100"))
+	do $$$AssertFalse(##class(TECH.DateTime).IsValidHorolog("-62528,100"))
+	do $$$AssertFalse(##class(TECH.DateTime).IsValidHorolog("62528.100"))
+	do $$$AssertFalse(##class(TECH.DateTime).IsValidHorolog("62528,-100"))
+	do $$$AssertFalse(##class(TECH.DateTime).IsValidHorolog("62528,9999999999"))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/JSON/Parser/ParseJSON/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/JSON/Parser/ParseJSON/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/JSON/Parser/ParseJSON/Test.cls.xml	(revision 957)
@@ -0,0 +1,91 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.JSON.Parser.ParseJSON.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestJSONStream">
+<Implementation><![CDATA[
+	#dim JSONStream As %GlobalCharacterStream = ##class(%GlobalCharacterStream).%New()
+	do JSONStream.Write("{ ""Field1"":""Field1Value"" }")
+	#dim Object As vhUnitTest.TECH.JSON.Parser.ParseJSON.Main = ..Parse(JSONStream)
+	do $$$AssertEquals(Object.Field1,"Field1Value")
+]]></Implementation>
+</Method>
+
+<Method name="TestJSONString">
+<Implementation><![CDATA[
+	#dim JSONString As %String = "{ ""Field1"":""Field1Value"" }"
+	#dim Object As vhUnitTest.TECH.JSON.Parser.ParseJSON.Main = ..Parse(JSONString)
+	do $$$AssertEquals(Object.Field1,"Field1Value")
+]]></Implementation>
+</Method>
+
+<Method name="TestJSONStringMetEmbeddedListEenItem">
+<Implementation><![CDATA[
+	#dim JSONString As %String = "{ ""Field1"":""Field1Value"" , ""Embedded"" :[{ ""Field1"":""EmbeddedField1Value""}] }"
+	
+	#dim Object As vhUnitTest.TECH.JSON.Parser.ParseJSON.Main = ..Parse(JSONString)
+	
+	do $$$AssertEquals(Object.Field1,"Field1Value")
+	if $$$AssertEquals(Object.Embedded.Count(),1) {
+		do $$$AssertEquals(Object.Embedded.GetAt(1).Field1,"EmbeddedField1Value")	
+		do $$$AssertEquals(Object.Embedded.GetAt(1).Field2,"")	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="TestJSONStringMetEmbeddedListMeerdereItems">
+<Implementation><![CDATA[
+	#dim JSONString As %String = "{ ""Field1"":""Field1Value"" , ""Embedded"" :[{ ""Field1"":""EmbeddedField1Value1""},{ ""Field1"":""EmbeddedField1Value2""}] }"
+	
+	#dim Object As vhUnitTest.TECH.JSON.Parser.ParseJSON.Main = ..Parse(JSONString)
+	
+	do $$$AssertEquals(Object.Field1,"Field1Value")
+	if $$$AssertEquals(Object.Embedded.Count(),2) {
+		do $$$AssertEquals(Object.Embedded.GetAt(1).Field1,"EmbeddedField1Value1")	
+		do $$$AssertEquals(Object.Embedded.GetAt(1).Field2,"")	
+		do $$$AssertEquals(Object.Embedded.GetAt(2).Field1,"EmbeddedField1Value2")	
+		do $$$AssertEquals(Object.Embedded.GetAt(2).Field2,"")	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="TestJSONStringMetEmbeddedListMeerdereItemsMeerdereVelden">
+<Implementation><![CDATA[
+	#dim JSONString As %String = "{ ""Field1"":""Field1Value"" , ""Embedded"" :[{ ""Field1"":""EmbeddedField1Value1"" , ""Field2"":""EmbeddedField2Value1""},{ ""Field1"":""EmbeddedField1Value2""}] }"
+	
+	#dim Object As vhUnitTest.TECH.JSON.Parser.ParseJSON.Main = ..Parse(JSONString)
+	
+	do $$$AssertEquals(Object.Field1,"Field1Value")
+	if $$$AssertEquals(Object.Embedded.Count(),2) {
+		do $$$AssertEquals(Object.Embedded.GetAt(1).Field1,"EmbeddedField1Value1")	
+		do $$$AssertEquals(Object.Embedded.GetAt(1).Field2,"EmbeddedField2Value1")	
+		do $$$AssertEquals(Object.Embedded.GetAt(2).Field1,"EmbeddedField1Value2")	
+		do $$$AssertEquals(Object.Embedded.GetAt(2).Field2,"")	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="TestJSONMetOnbestaandeVelden">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Parsing JSON file failed")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+	#dim JSONString As %String = "{ ""UnExistingField"":""Field1Value"" , ""Embedded"" :[{ ""Field1"":""EmbeddedField1Value""}] }"
+	#dim Object As vhUnitTest.TECH.JSON.Parser.ParseJSON.Main = ..Parse(JSONString)
+]]></Implementation>
+</Method>
+
+<Method name="Parse">
+<FormalSpec>JSONString:%String</FormalSpec>
+<ReturnType>vhUnitTest.TECH.JSON.Parser.ParseJSON.Main</ReturnType>
+<Implementation><![CDATA[
+	#dim ObjectClassName As %String = ##class(vhUnitTest.TECH.JSON.Parser.ParseJSON.Main).%ClassName(1)
+	#dim Object As vhUnitTest.TECH.JSON.Parser.ParseJSON.Main
+	do ##class(TECH.JSON.Parser).ParseJSON(JSONString,ObjectClassName,.Object)
+	quit Object
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ClassUtils.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ClassUtils.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ClassUtils.cls.xml	(revision 957)
@@ -0,0 +1,137 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ClassUtils">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestGetCurrentMethod">
+<Description>
+
+do ##class(vhUnitTest.Manager).RunTest("/Display=all","TECH.ClassUtils")</Description>
+<Implementation><![CDATA[
+	do $$$AssertEquals($$$LCVT($listbuild("vhUnitTest.TECH.ClassUtils","TestGetCurrentMethod")),$$$LCVT(##class(TECH.ClassUtils).GetCurrentMethod()))
+	do $$$AssertEquals($$$LCVT($listbuild("vhUnitTest.TECH.ClassUtils","PrivateCurrentMethodTest")),$$$LCVT(..PrivateCurrentMethodTest()))
+	do $$$AssertEquals($$$LCVT($listbuild("vhUnitTest.TECH.ClassUtilsExtra","OtherClassMethodTest")),$$$LCVT(..OtherClassMethodTest()))
+	do $$$AssertEquals($$$LCVT($listbuild("vhUnitTest.TECH.ClassUtilsExtra","OtherMethodTest")),$$$LCVT(..OtherMethodTest()))
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="TestGetCallingMethod">
+<Implementation><![CDATA[	do $$$AssertEquals($$$LCVT($listbuild("vhUnitTest.TECH.ClassUtils","TestGetCallingMethod")),$$$LCVT(..PrivateCallingMethodTest()))
+]]></Implementation>
+</Method>
+
+<Method name="TestGetMethodReturnType">
+<Implementation><![CDATA[
+	#dim ReturnType As %String
+	set ReturnType = ##class(TECH.ClassUtils).GetMethodReturnType("TECH.ClassUtils","GetMethodReturnType")
+	do $$$AssertEquals("%Library.String",ReturnType,"TECH.ClassUtils_GetMethodReturnType")
+	
+	set ReturnType = ##class(TECH.ClassUtils).GetMethodReturnType("vhUnitTest.TECH.ClassUtils","PrivateCurrentMethodTest")
+	do $$$AssertEquals("%Library.List",ReturnType,"vhUnitTest.TECH.ClassUtils_PrivateCurrentMethodTest")
+		
+	set ReturnType = ##class(TECH.ClassUtils).GetMethodReturnType("vhUnitTest.TECH.ClassUtilsChecks","FloatCheck")
+	do $$$AssertEquals("%Library.Float",ReturnType,"vhUnitTest.TECH.ClassUtilsChecks_FloatCheck")	
+		
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="TestGetMethodParameterType">
+<Implementation><![CDATA[
+	#dim ParameterType As %String = ##class(TECH.ClassUtils).GetMethodParameterType("TECH.ClassUtils","GetMethodParameterType","Parameter")
+	do $$$AssertEquals("%Library.String",ParameterType,"TECH.ClassUtils_GetMethodParameterType")
+]]></Implementation>
+</Method>
+
+<Method name="TestMethodReturnTypeValidation">
+<Implementation><![CDATA[
+	do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1,"vhUnitTest.TECH.ClassUtilsChecks","IntegerCheck"))
+	
+	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1.5,"vhUnitTest.TECH.ClassUtilsChecks","IntegerCheck"))
+	
+	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod("A","vhUnitTest.TECH.ClassUtilsChecks","IntegerCheck"))
+
+
+	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod("1-3","vhUnitTest.TECH.ClassUtilsChecks","IntegerCheck"))
+			
+	do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1,"vhUnitTest.TECH.ClassUtilsChecks","FloatCheck"))
+	
+	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod("A","vhUnitTest.TECH.ClassUtilsChecks","FloatCheck"))
+	
+	
+	do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1.5,"vhUnitTest.TECH.ClassUtilsChecks","FloatCheck"))
+	
+	set obj = ##class(vhUnitTest.TECH.ClassUtilsTestObject).%New()
+	set obj.Required = "required"
+	
+	do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(obj,"vhUnitTest.TECH.ClassUtilsChecks","ObjectCheck"),"obj Test 1")
+	
+	
+	set obj = ##class(vhUnitTest.TECH.ClassUtilsTestObject).%New()
+	set obj.ValueList=""
+	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(obj,"vhUnitTest.TECH.ClassUtilsChecks","ObjectCheck"),"obj Test 2")
+
+	set obj = ##class(vhUnitTest.TECH.ClassUtilsTestObject).%New()
+	set obj.Required="required"
+	set obj.ValueList="InvalidValue"
+	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(obj,"vhUnitTest.TECH.ClassUtilsChecks","ObjectCheck"),"obj Test 3")
+	
+	set obj = ##class(vhUnitTest.TECH.ClassUtilsTestObject).%New()
+	set obj.Required="required"
+	set obj.ValueList="ValidValue"
+	do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(obj,"vhUnitTest.TECH.ClassUtilsChecks","ObjectCheck"),"obj Test 4")
+
+	set obj = ##class(vhUnitTest.TECH.ClassUtilsTestObject).%New()
+	set obj.Required="required"
+	set obj.ValueList="ValidValue"
+	do obj.Array.SetAt(15,"GeldigeIntegerWaarde")
+	do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(obj,"vhUnitTest.TECH.ClassUtilsChecks","ObjectCheck"),"obj Test 5")
+
+	
+	set obj = ##class(vhUnitTest.TECH.ClassUtilsTestObject).%New()
+	set obj.Required="required"
+	set obj.ValueList="ValidValue"
+	do obj.Array.SetAt(15.5,"OnGeldigeIntegerWaarde")
+	do obj.Array.SetAt(15,"GeldigeIntegerWaarde")
+	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(obj,"vhUnitTest.TECH.ClassUtilsChecks","ObjectCheck"),"obj Test 6")
+	
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="PrivateCallingMethodTest">
+<Private>1</Private>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.ClassUtils).GetCallingMethod()
+]]></Implementation>
+</Method>
+
+<Method name="PrivateCurrentMethodTest">
+<Private>1</Private>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.ClassUtils).GetCurrentMethod()
+]]></Implementation>
+</Method>
+
+<Method name="OtherClassMethodTest">
+<Private>1</Private>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[	quit ##class(ClassUtilsExtra).OtherClassMethodTest()
+]]></Implementation>
+</Method>
+
+<Method name="OtherMethodTest">
+<Private>1</Private>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+	set obj = ##class(ClassUtilsExtra).%New()
+	quit obj.OtherMethodTest()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/Tools/ExportKlasseDto.cls.xml
===================================================================
diff -u
--- vhUnitTest/Tools/ExportKlasseDto.cls.xml	(revision 0)
+++ vhUnitTest/Tools/ExportKlasseDto.cls.xml	(revision 957)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Tools.ExportKlasseDto">
+<Super>%RegisteredObject</Super>
+
+<Property name="StringProperty">
+<Type>%String</Type>
+</Property>
+
+<Property name="EnumProperty">
+<Type>vhUnitTest.Tools.ExportKlasseEnum</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/File/dto/HoofdObject.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/File/dto/HoofdObject.cls.xml	(revision 0)
+++ vhUnitTest/TECH/File/dto/HoofdObject.cls.xml	(revision 957)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.File.dto.HoofdObject">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<Inheritance>right</Inheritance>
+
+<Property name="Eigenschap1">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="Eigenschap2">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="SubObject">
+<Type>vhUnitTest.TECH.File.dto.Object1</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Visitor/impl/VisitorsAccepteerder/Visitor.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Visitor/impl/VisitorsAccepteerder/Visitor.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Visitor/impl/VisitorsAccepteerder/Visitor.cls.xml	(revision 957)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Visitor.impl.VisitorsAccepteerder.Visitor">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Verwerk">
+<FormalSpec>Object:vhUnitTest.TECH.Visitor.impl.VisitorsAccepteerder.Object</FormalSpec>
+<Implementation><![CDATA[	do Object.VisitedBy.Insert(..%ClassName(1))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingDubbel.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingDubbel.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingDubbel.cls.xml	(revision 957)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Algo.Stapeling.NiveauSchikkingDubbel">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Algo.Stapeling.INiveauSchikking</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefMaxAantalObjecten">
+<Description>
+Geeft het maximaal aantal objecten dat deze schikking kan plaatsen</Description>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 2
+]]></Implementation>
+</Method>
+
+<Method name="GebruikObjecten">
+<Description>
+Krijgt een Stack van TECH.Algo.Stapeling.I3DObject binnen. Geeft het aantal 3D objecten terug die het zal gebruiken.</Description>
+<FormalSpec>I3DObjecten:TECH.Stack</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Do I3DObjecten.Pop()
+	Do I3DObjecten.Pop()
+	Quit 2
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Iterator/TestListIterator.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Iterator/TestListIterator.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Iterator/TestListIterator.cls.xml	(revision 957)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Iterator.TestListIterator">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestGewoonGeval">
+<Implementation><![CDATA[
+	Set Iterator = ##class(TECH.ListIterator).%New(##class(TECH.ListUtils).CreateListOfDataTypes("a","b"))
+	Do ..AssertIterator(Iterator)
+]]></Implementation>
+</Method>
+
+<Method name="TestReset">
+<Implementation><![CDATA[
+	Set Iterator = ##class(TECH.ListIterator).%New(##class(TECH.ListUtils).CreateListOfDataTypes("a","b"))
+	Do ..AssertIterator(Iterator)
+	Do Iterator.Reset()
+	Do ..AssertIterator(Iterator)
+]]></Implementation>
+</Method>
+
+<Method name="AssertIterator">
+<FormalSpec>Iterator:TECH.Iterator</FormalSpec>
+<Implementation><![CDATA[
+	If $$$AssertTrue(Iterator.HasNext()){
+		Do $$$AssertEquals(Iterator.Next(),"a")	
+		If $$$AssertTrue(Iterator.HasNext()){
+			Do $$$AssertEquals(Iterator.Next(),"b")		
+			Do $$$AssertFalse(Iterator.HasNext())
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/TestIO.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/TestIO.cls.xml	(revision 0)
+++ vhUnitTest/TECH/TestIO.cls.xml	(revision 957)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.TestIO">
+<Description>
+d ##class(vhUnitTest.Manager).RunTest("/debug/display=all","TECH.TestIO")</Description>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestIO">
+<Implementation><![CDATA[
+	Set IO = ##class(TECH.IO).%New()
+	Do IO.Redirect()
+	Write "INHOUD"
+	
+	Do IO.Reset()
+	#dim Stream As %FileCharacterStream = IO.GeefStream()
+	while 'Stream.AtEnd {
+		Do $$$AssertEquals(Stream.Read(),"INHOUD")
+	}
+		
+	Do $$$AssertTrue(IO.GeefLocatie()[ ##class(TECH.File).GetTempDir(), "Stream staat in tijdelijke map.")
+	Do $$$AssertTrue(##class(TECH.File).Exists(IO.GeefLocatie()),"Stream bestaat op de locatie")
+		
+	Do IO.KuisOp()
+		
+	Do $$$AssertFalse(##class(TECH.File).Exists(IO.GeefLocatie()),"Stream bestaat niet meer op de locatie")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Exceptions/Exception/ZetInnerExceptions/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Exceptions/Exception/ZetInnerExceptions/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Exceptions/Exception/ZetInnerExceptions/Test.cls.xml	(revision 957)
@@ -0,0 +1,90 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Exceptions.Exception.ZetInnerExceptions.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Exception">
+<Type>TECH.IException</Type>
+</Property>
+
+<Property name="ExceptieLijst">
+<Type>TECH.ExceptionList</Type>
+</Property>
+
+<Method name="TestVoeg5MinorInnerExceptiesToexExceptionIsEenMinorException">
+<Implementation><![CDATA[
+	#dim i As %Integer
+	For i= 1:1:4 {
+		Do ..VoegInnerExceptieToeAanExceptieLijst(##class(TECH.Exceptions.enu.Schaal).Minor())
+	}
+	Do ..VoegInnerExceptieToeAanExceptieLijst(##class(TECH.Exceptions.enu.Schaal).Minor())
+	
+	Do ..AssertSchaal(##class(TECH.Exceptions.enu.Schaal).Minor())
+]]></Implementation>
+</Method>
+
+<Method name="TestVoeg4MinorInnerExceptiesToeEn1MajorInnerExceptiexxxExceptionIsEenMajorException">
+<Implementation><![CDATA[
+	#dim i As %Integer
+	For i= 1:1:4 {
+		Do ..VoegInnerExceptieToeAanExceptieLijst(##class(TECH.Exceptions.enu.Schaal).Minor())
+	}
+	Do ..VoegInnerExceptieToeAanExceptieLijst(##class(TECH.Exceptions.enu.Schaal).Major())
+	
+	
+	Do ..AssertSchaal(##class(TECH.Exceptions.enu.Schaal).Major())
+]]></Implementation>
+</Method>
+
+<Method name="TestVoeg5MajorInnerExceptiesToexxxExceptionIsEenMajorException">
+<Implementation><![CDATA[
+	#dim i As %Integer
+	For i= 1:1:5 {
+		Do ..VoegInnerExceptieToeAanExceptieLijst(##class(TECH.Exceptions.enu.Schaal).Major())
+	}
+	
+	Do ..AssertSchaal(##class(TECH.Exceptions.enu.Schaal).Major())
+]]></Implementation>
+</Method>
+
+<Method name="TestVoegMajorMinorMajorMinorErrorsToexxxExceptionIsEenMajorException">
+<Implementation><![CDATA[
+	Do ..VoegInnerExceptieToeAanExceptieLijst(##class(TECH.Exceptions.enu.Schaal).Major())
+	Do ..VoegInnerExceptieToeAanExceptieLijst(##class(TECH.Exceptions.enu.Schaal).Minor())
+	Do ..VoegInnerExceptieToeAanExceptieLijst(##class(TECH.Exceptions.enu.Schaal).Major())
+	Do ..VoegInnerExceptieToeAanExceptieLijst(##class(TECH.Exceptions.enu.Schaal).Minor())
+	
+	Do ..AssertSchaal(##class(TECH.Exceptions.enu.Schaal).Major())
+]]></Implementation>
+</Method>
+
+<Method name="VoegInnerExceptieToeAanExceptieLijst">
+<FormalSpec>Schaal:TECH.Exceptions.enu.Schaal</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim InnerException As TECH.IException = ##class(TECH.Exceptions.BaseException).%New($$$DummyString, $$$DummyString)
+	Do InnerException.ZetSchaal(Schaal)
+	Do ..ExceptieLijst.Insert(InnerException)
+]]></Implementation>
+</Method>
+
+<Method name="AssertSchaal">
+<FormalSpec>Schaal:TECH.Exceptions.enu.Schaal</FormalSpec>
+<Implementation><![CDATA[
+	Do ..Exception.ZetInnerExcepties(..ExceptieLijst)
+	Do $$$AssertEquals(..Exception.GeefSchaal(),Schaal)
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..Exception = ##class(TECH.Exceptions.BaseException).%New($$$DummyString, $$$DummyString)
+	Set ..ExceptieLijst = ##class(TECH.ExceptionList).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/Tools/Mock/TestMock.cls.xml
===================================================================
diff -u
--- vhUnitTest/Tools/Mock/TestMock.cls.xml	(revision 0)
+++ vhUnitTest/Tools/Mock/TestMock.cls.xml	(revision 957)
@@ -0,0 +1,171 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Tools.Mock.TestMock">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","Tools.Mock.TestMock")</Description>
+<Super>vhUnitTest.TestCase,%RegisteredObject</Super>
+
+<Property name="MockVoorbeeld">
+<Type>vhUnitTest.Tools.Mock.MockVoorbeeld</Type>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..MockVoorbeeld = ##class(vhUnitTest.Tools.Mock.MockVoorbeeld).%New()
+	Quit ##super()
+]]></Implementation>
+</Method>
+
+<Method name="TestExceptionBijGeenIndien">
+<Implementation><![CDATA[		Do $$$AssertException("DoeExceptionBijGeenIndien","TECH.Exceptions.GeneralErrorException","is niet voorzien door de mock")
+]]></Implementation>
+</Method>
+
+<Method name="DoeExceptionBijGeenIndien">
+<Implementation><![CDATA[		Do ..MockVoorbeeld.GeenParametersGeenReturn()
+]]></Implementation>
+</Method>
+
+<Method name="TestGeenParametersGeenReturn">
+<Implementation><![CDATA[
+		Do ..MockVoorbeeld.IndienMethodCall("GeenParametersGeenReturn")
+		
+		Do ..MockVoorbeeld.GeenParametersGeenReturn()
+]]></Implementation>
+</Method>
+
+<Method name="TestGeenParametersDataTypeReturn">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+		Do ..MockVoorbeeld.IndienMethodCall("GeenParametersDataTypeReturn").DanReturn("A1")
+		
+		Do $$$AssertEquals( "A1", ..MockVoorbeeld.GeenParametersDataTypeReturn() )
+		Do $$$AssertEquals( "A1", ..MockVoorbeeld.GeenParametersDataTypeReturn() )
+]]></Implementation>
+</Method>
+
+<Method name="TestGeenParameterObjectReturn">
+<Implementation><![CDATA[
+		Set ReturnObject = ##class(%ListOfDataTypes).%New()
+		Do ..MockVoorbeeld.IndienMethodCall("GeenParameterObjectReturn").DanReturn( ReturnObject )
+		
+		Do $$$AssertEquals( ReturnObject, ..MockVoorbeeld.GeenParameterObjectReturn() )
+		Do $$$AssertEquals( ReturnObject, ..MockVoorbeeld.GeenParameterObjectReturn() )
+]]></Implementation>
+</Method>
+
+<Method name="TestDataTypeParameterDataTypeReturn">
+<Implementation><![CDATA[
+		Do ..MockVoorbeeld.IndienMethodCall("DataTypeParameterDataTypeReturn", "A" ).DanReturn( "1" )
+		Do ..MockVoorbeeld.IndienMethodCall("DataTypeParameterDataTypeReturn", "B" ).DanReturn( "2" )
+		
+		// Test ok indien juiste param
+		Do $$$AssertEquals( "1", ..MockVoorbeeld.DataTypeParameterDataTypeReturn("A") )
+		Do $$$AssertEquals( "2", ..MockVoorbeeld.DataTypeParameterDataTypeReturn("B") )
+		
+		// Test nogmaals ok indien juiste param
+		Do $$$AssertEquals( "1", ..MockVoorbeeld.DataTypeParameterDataTypeReturn("A") )
+		Do $$$AssertEquals( "2", ..MockVoorbeeld.DataTypeParameterDataTypeReturn("B") )
+				
+		// Test exc indien verkeerde param
+		try {
+			Do ..MockVoorbeeld.DataTypeParameterDataTypeReturn("C")
+			Do $$$AssertFalse(1, "Exception verwacht")
+		} catch E {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Do $$$AssertContains( Exception.ToString(), "is niet voorzien door de mock" )
+		}
+		
+		// Test exc indien verkeerde aantal params
+		try {
+			Do ..MockVoorbeeld.DataTypeParameterDataTypeReturn()
+			Do $$$AssertFalse(1, "Exception verwacht")
+		} catch E {
+			Do $$$AssertEquals( "<UNDEFINED>", E.Name )
+		}
+]]></Implementation>
+</Method>
+
+<Method name="TestObjectParameterDataTypeReturn">
+<Implementation><![CDATA[
+		Set ObjectA = ##class(%ListOfObjects).%New()
+		Set ObjectB = ##class(%ListOfObjects).%New()
+		
+		Do ..MockVoorbeeld.IndienMethodCall("ObjectParameterDataTypeReturn", ObjectA ).DanReturn( "1" )
+		Do ..MockVoorbeeld.IndienMethodCall("ObjectParameterDataTypeReturn", ObjectB ).DanReturn( "2" )
+		
+		// Test ok indien juiste param
+		Do $$$AssertEquals( "1", ..MockVoorbeeld.ObjectParameterDataTypeReturn( ObjectA ) )
+		Do $$$AssertEquals( "2", ..MockVoorbeeld.ObjectParameterDataTypeReturn( ObjectB ) )
+		
+		// Test nogmaals ok indien juiste param
+		Do $$$AssertEquals( "1", ..MockVoorbeeld.ObjectParameterDataTypeReturn( ObjectA ) )
+		Do $$$AssertEquals( "2", ..MockVoorbeeld.ObjectParameterDataTypeReturn( ObjectB ) )
+				
+		// Test exc indien verkeerde param
+		try {
+			Do ..MockVoorbeeld.DataTypeParameterDataTypeReturn("C")
+			Do $$$AssertFalse(1, "Exception verwacht")
+		} catch E {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Do $$$AssertContains( Exception.ToString(), "is niet voorzien door de mock" )
+		}
+		
+		// Test exc indien verkeerde aantal params
+		try {
+			Do ..MockVoorbeeld.DataTypeParameterDataTypeReturn()
+			Do $$$AssertFalse(1, "Exception verwacht")
+		} catch E {
+			Do $$$AssertEquals( "<UNDEFINED>", E.Name )
+		}
+]]></Implementation>
+</Method>
+
+<Method name="TestTweeParametersDataTypeReturn">
+<Implementation><![CDATA[
+		Set ObjectA = ##class(%ListOfObjects).%New()
+		Set ObjectB = ##class(%ListOfObjects).%New()
+		
+		Do ..MockVoorbeeld.IndienMethodCall("TweeParametersDataTypeReturn", ObjectA, 1 ).DanReturn( "1" )
+		Do ..MockVoorbeeld.IndienMethodCall("TweeParametersDataTypeReturn", 2, ObjectB ).DanReturn( "2" )
+		
+		// Test ok indien juiste param
+		Do $$$AssertEquals( "1", ..MockVoorbeeld.TweeParametersDataTypeReturn( ObjectA, 1 ) )
+		Do $$$AssertEquals( "2", ..MockVoorbeeld.TweeParametersDataTypeReturn( 2, ObjectB ) )
+		
+		// Test nogmaals ok indien juiste param
+		Do $$$AssertEquals( "1", ..MockVoorbeeld.TweeParametersDataTypeReturn( ObjectA, 1 ) )
+		Do $$$AssertEquals( "2", ..MockVoorbeeld.TweeParametersDataTypeReturn( 2, ObjectB ) )
+				
+		// Test exc indien verkeerde param
+		try {
+			Do ..MockVoorbeeld.TweeParametersDataTypeReturn( ObjectA, ObjectB )
+			Do $$$AssertFalse(1, "Exception verwacht")
+		} catch E {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Do $$$AssertContains( Exception.ToString(), "is niet voorzien door de mock" )
+		}
+		
+		try {
+			Do ..MockVoorbeeld.TweeParametersDataTypeReturn( 2, 1 )
+			Do $$$AssertFalse(1, "Exception verwacht")
+		} catch E {
+			Set Exception = ##class(TECH.ExceptionHandler).Catch()
+			Do $$$AssertContains( Exception.ToString(), "is niet voorzien door de mock" )
+		}
+		
+		// Test exc indien verkeerde aantal params
+		try {
+			Do ..MockVoorbeeld.TweeParametersDataTypeReturn( 2 )
+			Do $$$AssertFalse(1, "Exception verwacht")
+		} catch E {
+			Do $$$AssertEquals( "<UNDEFINED>", E.Name )
+		}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/StringUtils.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/StringUtils.cls.xml	(revision 0)
+++ vhUnitTest/TECH/StringUtils.cls.xml	(revision 957)
@@ -0,0 +1,220 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.StringUtils">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","TECH.StringUtils")</Description>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestWordWrapMetCRLF">
+<Implementation><![CDATA[
+	#dim Input As %String = "Deze zin heeft één"_$$$CRLF_"CRLF."
+	#dim Lijnen As %ListOfDataTypes = ##class(TECH.StringUtils).WordWrap(Input,50)
+	
+	do $$$AssertEquals(Lijnen.Count(),2,"Deze input is opgespitst in twee lijnen")
+	do $$$AssertEquals(Lijnen.GetAt(1),"Deze zin heeft één","Eerste lijn is correct.")
+	do $$$AssertEquals(Lijnen.GetAt(2),"CRLF.","Tweede lijn is correct.")
+	
+	set Input = "Deze zin heeft twee"_$$$CRLF_$$$CRLF_"CRLF's."
+	set Lijnen = ##class(TECH.StringUtils).WordWrap(Input,50)
+	
+	do $$$AssertEquals(Lijnen.Count(),3,"Deze input is opgespitst in twee lijnen")
+	do $$$AssertEquals(Lijnen.GetAt(1),"Deze zin heeft twee","Eerste lijn is correct.")
+	do $$$AssertEquals(Lijnen.GetAt(2),"","Tweede lijn is correct.")
+	do $$$AssertEquals(Lijnen.GetAt(3),"CRLF's.","Derde lijn is correct.")
+]]></Implementation>
+</Method>
+
+<Method name="TestWordWrapMetTab">
+<Implementation><![CDATA[
+	#dim Input As %String = "Deze zin heeft één"_$$$TAB_"tab."
+	#dim Lijnen As %ListOfDataTypes = ##class(TECH.StringUtils).WordWrap(Input,30)
+	
+	do $$$AssertEquals(Lijnen.Count(),1,"De input is niet opgespitst")
+	Do $$$AssertEquals(Lijnen.GetAt(1),"Deze zin heeft één   tab.","Eerste lijn is correct.")
+]]></Implementation>
+</Method>
+
+<Method name="TestWordWrapDrieLijnen">
+<Implementation><![CDATA[
+	#dim Input As %String = "Dit is een zin die zal worden afgekapt na 30 characters."
+	#dim Lijnen As %ListOfDataTypes = ##class(TECH.StringUtils).WordWrap(Input,30)
+	
+	Do $$$AssertEquals(Lijnen.Count(),3,"De input is opgesplitst over drie lijnen.")
+	Do $$$AssertEquals(Lijnen.GetAt(1),"Dit is een zin die zal ","Eerste lijn is correct.")
+	Do $$$AssertEquals(Lijnen.GetAt(2),"worden afgekapt na 30 ","Tweede lijn is correct.")
+	Do $$$AssertEquals(Lijnen.GetAt(3),"characters.","Derde lijn is correct.")
+]]></Implementation>
+</Method>
+
+<Method name="TestWordWrapEenLijn">
+<Implementation><![CDATA[
+	#dim Input As %String = "Zin niet opgesplitst."
+	#dim Lijnen As %ListOfDataTypes = ##class(TECH.StringUtils).WordWrap(Input,30)
+	
+	Do $$$AssertEquals(Lijnen.Count(),1,"De input is niet opgesplitst.")
+	Do $$$AssertEquals(Lijnen.GetAt(1),"Zin niet opgesplitst.","Eerste lijn is correct.")
+]]></Implementation>
+</Method>
+
+<Method name="TestAddChars">
+<Implementation><![CDATA[
+	do $$$AssertEquals(##class(TECH.StringUtils).AddLeadingChar("TEST"," ",5)," TEST","LeadingChar is ok")
+	do $$$AssertEquals(##class(TECH.StringUtils).AddLeadingSpace("TEST",5)," TEST","LeadingSpace is ok")
+	do $$$AssertEquals(##class(TECH.StringUtils).AddTrailingChar("TEST"," ",5),"TEST ","TrailingChar is ok")
+	do $$$AssertEquals(##class(TECH.StringUtils).AddTrailingSpace("TEST",5),"TEST ","TrailingSpace is ok")
+]]></Implementation>
+</Method>
+
+<Method name="TestBase64url">
+<Implementation><![CDATA[
+	Do $$$AssertEquals(##class(TECH.StringUtils).StandaardBase64NaarBase64url("+a+b+"), "-a-b-")
+	Do $$$AssertEquals(##class(TECH.StringUtils).StandaardBase64NaarBase64url("/a/b/"), "_a_b_")
+	Do $$$AssertEquals(##class(TECH.StringUtils).StandaardBase64NaarBase64url("ab=="), "ab")
+]]></Implementation>
+</Method>
+
+<Method name="TestInList">
+<Implementation><![CDATA[
+	
+	#dim List As %String = "Waarde1;Waarde2;Waarde3"
+	
+	Do $$$AssertTrue(##class(TECH.StringUtils).InList(List,"Waarde1"))
+	Do $$$AssertFalse(##class(TECH.StringUtils).InList(List,"Waarde"))
+	Do $$$AssertFalse(##class(TECH.StringUtils).InList(List,"Waarde1;Waarde2"))
+	Do $$$AssertTrue(##class(TECH.StringUtils).InList(List,"Waarde3"))
+]]></Implementation>
+</Method>
+
+<Method name="TestAppend">
+<Implementation><![CDATA[
+	// met default delimiter ";" 
+	do $$$AssertEquals(##class(TECH.StringUtils).Append("",""),"")
+	do $$$AssertEquals(##class(TECH.StringUtils).Append("","Waarde1"),"Waarde1")
+	do $$$AssertEquals(##class(TECH.StringUtils).Append("Waarde1",""),"Waarde1;")
+	do $$$AssertEquals(##class(TECH.StringUtils).Append("Waarde1","Waarde2"),"Waarde1;Waarde2")
+	do $$$AssertEquals(##class(TECH.StringUtils).Append("Waarde1;Waarde2","Waarde3"),"Waarde1;Waarde2;Waarde3")
+
+	// met andere delimiter (bvb. "**" ) 
+	do $$$AssertEquals(##class(TECH.StringUtils).Append("","",       "**"),"")
+	do $$$AssertEquals(##class(TECH.StringUtils).Append("","Waarde1","**"),"Waarde1")
+	do $$$AssertEquals(##class(TECH.StringUtils).Append("Waarde1","","**"),"Waarde1**")
+	do $$$AssertEquals(##class(TECH.StringUtils).Append("Waarde1","Waarde2","**"),"Waarde1**Waarde2")
+	do $$$AssertEquals(##class(TECH.StringUtils).Append("Waarde1**Waarde2","Waarde3","**"),"Waarde1**Waarde2**Waarde3")
+
+	// met lege delimiter ??? 
+	do $$$AssertEquals(##class(TECH.StringUtils).Append("Waarde1","Waarde2",""),"")   ; ??? Deze moet een exceptie gooien !!!
+]]></Implementation>
+</Method>
+
+<Method name="TestTrimWhitespaces">
+<Implementation><![CDATA[
+	#define hsp              $C(160)
+	
+	// Verwijdert spaties vooraan en achteraan, niet in het midden van de tekst 
+	Do $$$AssertEquals(##class(TECH.StringUtils).TrimWhitespaces("ABC"),"ABC")
+	Do $$$AssertEquals(##class(TECH.StringUtils).TrimWhitespaces("ABC  "),"ABC")
+	Do $$$AssertEquals(##class(TECH.StringUtils).TrimWhitespaces("  ABC"),"ABC")
+	Do $$$AssertEquals(##class(TECH.StringUtils).TrimWhitespaces("  ABC  "),"ABC")
+	Do $$$AssertEquals(##class(TECH.StringUtils).TrimWhitespaces("A B C"),"A B C")
+	Do $$$AssertEquals(##class(TECH.StringUtils).TrimWhitespaces("  A B C  "),"A B C")
+
+	// Verwijdert TABs vooraan en achteraan, niet in het midden van de tekst 
+	Do $$$AssertEquals(##class(TECH.StringUtils).TrimWhitespaces("ABC"),"ABC")
+	Do $$$AssertEquals(##class(TECH.StringUtils).TrimWhitespaces("ABC"_$$$TAB_$$$TAB),"ABC")
+	Do $$$AssertEquals(##class(TECH.StringUtils).TrimWhitespaces($$$TAB_$$$TAB_"ABC"),"ABC")
+	Do $$$AssertEquals(##class(TECH.StringUtils).TrimWhitespaces($$$TAB_$$$TAB_"ABC"_$$$TAB_$$$TAB),"ABC")
+	Do $$$AssertEquals(##class(TECH.StringUtils).TrimWhitespaces("A"_$$$TAB_"B"_$$$TAB_"C"),"A"_$$$TAB_"B"_$$$TAB_"C")
+	Do $$$AssertEquals(##class(TECH.StringUtils).TrimWhitespaces($$$TAB_$$$TAB_"A"_$$$TAB_"B"_$$$TAB_"C"_$$$TAB_$$$TAB),"A"_$$$TAB_"B"_$$$TAB_"C")
+
+	// Verwijdert harde spaties vooraan en achteraan, niet in het midden van de tekst 
+	Do $$$AssertEquals(##class(TECH.StringUtils).TrimWhitespaces("ABC"),"ABC")
+	Do $$$AssertEquals(##class(TECH.StringUtils).TrimWhitespaces("ABC"_$$$hsp_$$$hsp),"ABC")
+	Do $$$AssertEquals(##class(TECH.StringUtils).TrimWhitespaces($$$hsp_$$$hsp_"ABC"),"ABC")
+	Do $$$AssertEquals(##class(TECH.StringUtils).TrimWhitespaces($$$hsp_$$$hsp_"ABC"_$$$hsp_$$$hsp),"ABC")
+	Do $$$AssertEquals(##class(TECH.StringUtils).TrimWhitespaces("A"_$$$hsp_"B"_$$$hsp_"C"),"A"_$$$hsp_"B"_$$$hsp_"C")
+	Do $$$AssertEquals(##class(TECH.StringUtils).TrimWhitespaces($$$hsp_$$$hsp_"A"_$$$hsp_"B"_$$$hsp_"C"_$$$hsp_$$$hsp),"A"_$$$hsp_"B"_$$$hsp_"C")
+
+	// Verwijdert een mix van TABs en spaties vooraan en achteraan 
+	Do $$$AssertEquals(##class(TECH.StringUtils).TrimWhitespaces($$$TAB_"  "_$$$TAB_"AB C"_"  "_$$$TAB_"  "),"AB C")
+
+	// Verwijdert GEEN $$$CRLF 
+	Do $$$AssertEquals(##class(TECH.StringUtils).TrimWhitespaces($$$CRLF_"AB"_$$$CRLF_"C"_$$$CRLF),$$$CRLF_"AB"_$$$CRLF_"C"_$$$CRLF)
+
+	// Verwijdert GEEN Controle-karakters,  bijvoorbeeld $C(19) 
+	Do $$$AssertEquals(##class(TECH.StringUtils).TrimWhitespaces($C(19)_"AB"_$C(19)_"C"_$C(19)),$C(19)_"AB"_$C(19)_"C"_$C(19))
+]]></Implementation>
+</Method>
+
+<Method name="TestOccurrences">
+<Implementation><![CDATA[
+	do $$$AssertEquals(##class(TECH.StringUtils).Occurrences("BBBB","A"),0)
+	do $$$AssertEquals(##class(TECH.StringUtils).Occurrences("AAA","A"),3)
+	do $$$AssertEquals(##class(TECH.StringUtils).Occurrences("ABAB","AB"),2)
+	do $$$AssertEquals(##class(TECH.StringUtils).Occurrences("","A"),0)
+	do $$$AssertEquals(##class(TECH.StringUtils).Occurrences("AA",""),0)
+	do $$$AssertEquals(##class(TECH.StringUtils).Occurrences("",""),0)
+]]></Implementation>
+</Method>
+
+<Method name="TestUpperCamelCase">
+<Implementation><![CDATA[
+	do $$$AssertEquals(##class(TECH.StringUtils).UpperCamelCase(""),"")	
+	do $$$AssertEquals(##class(TECH.StringUtils).UpperCamelCase(" "),"")	
+	do $$$AssertEquals(##class(TECH.StringUtils).UpperCamelCase("EEn String"),"EenString")	
+	do $$$AssertEquals(##class(TECH.StringUtils).UpperCamelCase("EEn &&String"),"EenString")
+	do $$$AssertEquals(##class(TECH.StringUtils).UpperCamelCase("EEnString"),"Eenstring")
+]]></Implementation>
+</Method>
+
+<Method name="TestStartsWith">
+<Implementation><![CDATA[
+	do $$$AssertTrue(##class(TECH.StringUtils).StartsWith("EenString",""))	
+	do $$$AssertTrue(##class(TECH.StringUtils).StartsWith("EenString","Een"))
+	do $$$AssertFalse(##class(TECH.StringUtils).StartsWith("EenString","Geen"))
+	do $$$AssertFalse(##class(TECH.StringUtils).StartsWith("","EenString"))
+	do $$$AssertFalse(##class(TECH.StringUtils).StartsWith("EenString","EenStringDieLangerIs"))
+	do $$$AssertTrue(##class(TECH.StringUtils).StartsWith("",""))
+	do $$$AssertFalse(##class(TECH.StringUtils).StartsWith("EenCaseAfhankelijkeString","EEN"))
+	
+	do $$$AssertTrue(##class(TECH.StringUtils).StartsWith("EenString","Geen","Een"))
+	do $$$AssertFalse(##class(TECH.StringUtils).StartsWith("EenString","Geen","Geen"))
+]]></Implementation>
+</Method>
+
+<Method name="TestEndsWith">
+<Implementation><![CDATA[
+	do $$$AssertTrue(##class(TECH.StringUtils).EndsWith("",""))
+	do $$$AssertTrue(##class(TECH.StringUtils).EndsWith("EenString",""))
+	do $$$AssertFalse(##class(TECH.StringUtils).EndsWith("","EenString"))
+	do $$$AssertTrue(##class(TECH.StringUtils).EndsWith("EenString","String"))
+	do $$$AssertFalse(##class(TECH.StringUtils).EndsWith("EenString","Str"))
+]]></Implementation>
+</Method>
+
+<Method name="TestReverse">
+<Implementation><![CDATA[
+	do $$$AssertEquals(##class(TECH.StringUtils).Reverse("ABC"),"CBA")
+	do $$$AssertFalse(##class(TECH.StringUtils).Reverse("ABC"),"CAB")
+	do $$$AssertEquals(##class(TECH.StringUtils).Reverse(""),"")
+]]></Implementation>
+</Method>
+
+<Method name="TestFiller">
+<Implementation><![CDATA[
+	do $$$AssertEquals(##class(TECH.StringUtils).Filler(5),"     ")
+	do $$$AssertEquals(##class(TECH.StringUtils).Filler(5,"A"),"AAAAA")
+]]></Implementation>
+</Method>
+
+<Method name="TestVoegToeIndienNietLeeg">
+<Implementation><![CDATA[
+	Do $$$AssertEquals(##class(TECH.StringUtils).VoegToeIndienNietLeeg("Tekst","Erbij"),"Tekst, Erbij")	
+	Do $$$AssertEquals(##class(TECH.StringUtils).VoegToeIndienNietLeeg("Tekst","Erbij"," || "),"Tekst || Erbij")	
+	
+	Do $$$AssertEquals(##class(TECH.StringUtils).VoegToeIndienNietLeeg("Tekst",""," || "),"Tekst")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ResultSet/Data.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ResultSet/Data.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ResultSet/Data.cls.xml	(revision 957)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ResultSet.Data">
+<Super>%Persistent,%Populate</Super>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^vhUnitTest.TECH.Resul7BAB.DataD</DataLocation>
+<DefaultData>DataDefaultData</DefaultData>
+<IdLocation>^vhUnitTest.TECH.Resul7BAB.DataD</IdLocation>
+<IndexLocation>^vhUnitTest.TECH.Resul7BAB.DataI</IndexLocation>
+<StreamLocation>^vhUnitTest.TECH.Resul7BAB.DataS</StreamLocation>
+<Data name="DataDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+</Data>
+<Property name="%%CLASSNAME">
+</Property>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/vhLib/DateTime.cls.xml
===================================================================
diff -u
--- vhUnitTest/vhLib/DateTime.cls.xml	(revision 0)
+++ vhUnitTest/vhLib/DateTime.cls.xml	(revision 957)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.vhLib.DateTime">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestIsValidHHMMSS">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/Display=all","vhLib.DateTime")</Description>
+<Implementation><![CDATA[
+	do $$$AssertFalse($$IsValidHHMMSS^vhLib.DateTime("24:00:00"))
+	do $$$AssertFalse($$IsValidHHMMSS^vhLib.DateTime("23:15:69"))
+	do $$$AssertFalse($$IsValidHHMMSS^vhLib.DateTime("23:15:6"))
+	do $$$AssertFalse($$IsValidHHMMSS^vhLib.DateTime("23:15/6"))
+	do $$$AssertFalse($$IsValidHHMMSS^vhLib.DateTime("99:15/6"))	
+	do $$$AssertFalse($$IsValidHHMMSS^vhLib.DateTime("99:15/6"))	
+		
+	do $$$AssertTrue($$IsValidHHMMSS^vhLib.DateTime("00:15:15"))
+	do $$$AssertTrue($$IsValidHHMMSS^vhLib.DateTime("02:30:45"))
+	do $$$AssertTrue($$IsValidHHMMSS^vhLib.DateTime("00:00:01"))
+	do $$$AssertTrue($$IsValidHHMMSS^vhLib.DateTime("00:00:00"))
+	do $$$AssertTrue($$IsValidHHMMSS^vhLib.DateTime("23:59:59"))
+	do $$$AssertTrue($$IsValidHHMMSS^vhLib.DateTime("00:59:10"))
+
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="TestIsValidHHMM">
+<Implementation><![CDATA[
+	do $$$AssertFalse($$IsValidHHMM^vhLib.DateTime("24:00"))
+	do $$$AssertFalse($$IsValidHHMM^vhLib.DateTime("23:65"))
+	do $$$AssertFalse($$IsValidHHMM^vhLib.DateTime("23:1"))
+	do $$$AssertFalse($$IsValidHHMM^vhLib.DateTime("23/6"))
+	do $$$AssertFalse($$IsValidHHMM^vhLib.DateTime("99/6"))	
+	do $$$AssertFalse($$IsValidHHMM^vhLib.DateTime("99/06"))	
+		
+	do $$$AssertTrue($$IsValidHHMM^vhLib.DateTime("15:15"))
+	do $$$AssertTrue($$IsValidHHMM^vhLib.DateTime("02:30"))
+	do $$$AssertTrue($$IsValidHHMM^vhLib.DateTime("00:00"))
+	do $$$AssertTrue($$IsValidHHMM^vhLib.DateTime("00:05"))
+	do $$$AssertTrue($$IsValidHHMM^vhLib.DateTime("23:59"))
+	do $$$AssertTrue($$IsValidHHMM^vhLib.DateTime("00:59"))
+
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="TestNormalizeTime">
+<Implementation><![CDATA[
+	do $$$AssertEquals($$NormalizeHHMM^vhLib.DateTime("15:15"),"15:15")
+	do $$$AssertEquals($$NormalizeHHMM^vhLib.DateTime("0:10"),"00:10")
+	do $$$AssertEquals($$NormalizeHHMM^vhLib.DateTime("0:1"),"00:01")
+	do $$$AssertEquals($$NormalizeHHMM^vhLib.DateTime("1:1"),"01:01")
+	do $$$AssertEquals($$NormalizeHHMM^vhLib.DateTime("1:10"),"01:10")
+]]></Implementation>
+</Method>
+
+<Method name="TestHHMMSSToHorolog">
+<Implementation><![CDATA[
+
+	do $$$AssertEquals($$HHMMSSToHorolog^vhLib.DateTime("00:15:15"),915)
+	do $$$AssertEquals($$HHMMSSToHorolog^vhLib.DateTime("02:15:15"),8115)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Exceptions/KlasseC.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Exceptions/KlasseC.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Exceptions/KlasseC.cls.xml	(revision 957)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Exceptions.KlasseC">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Method name="ThrowException">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError()," [Exception, gethrowed in Klasse C.]"))
+]]></Implementation>
+</Method>
+
+<Method name="RaiseUndefined">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Set a = b
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Concurrency/TestTxScopeNotSupported.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Concurrency/TestTxScopeNotSupported.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Concurrency/TestTxScopeNotSupported.cls.xml	(revision 957)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Concurrency.TestTxScopeNotSupported">
+<Description>
+Tests op niet-geneste TxScope met optie "NotSupported".</Description>
+<Import>TECH.Concurrency</Import>
+<Super>AbstractTxTest</Super>
+
+<Method name="TestGeenTxIndienNotSupportedScope">
+<Implementation><![CDATA[
+	#dim Scope As TxScope
+	Set Scope = ##class(TxScope).StartNieuwe(##class(TxScopeOptie).NotSupported())
+
+	Quit:'($$$AssertEquals(1, $isobject(Scope)))
+	Quit:'($$$AssertEquals(##class(TxStatus).Gestart(), Scope.GeefStatus()))
+	Quit:'($$$AssertEquals("", Scope.GeefTransactie()))
+	
+	Do Scope.Rollback()
+]]></Implementation>
+</Method>
+
+<Method name="TestNotSupportedIndienGeenExplicieteScope">
+<Implementation><![CDATA[	Quit:'($$$AssertEquals(##class(TxScopeOptie).NotSupported(), ##class(TxScope).Huidige().GeefScopeOptie()))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ClassDefinition.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ClassDefinition.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ClassDefinition.cls.xml	(revision 957)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ClassDefinition">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestGetMethodDefinition">
+<Implementation><![CDATA[
+	#dim MethodDefinition As %Dictionary.MethodDefinition = ##class(TECH.ClassDefinition).Instance().GetMethodDefinition("vhUnitTest.TECH.ClassDefinition","DummyMethod")
+		
+	do $$$AssertFalse(MethodDefinition.Final)
+	do $$$AssertFalse(MethodDefinition.ProcedureBlock)
+	do $$$AssertTrue(MethodDefinition.Private)
+	do $$$AssertEquals(MethodDefinition.FormalSpec,"Param1:%Boolean,Param2:%Integer,Param3:%String")
+	do $$$AssertEquals(MethodDefinition.ReturnType,"%Decimal")
+]]></Implementation>
+</Method>
+
+<Method name="DummyMethod">
+<Description>
+DummyMethod Test</Description>
+<FormalSpec>Param1:%Boolean,Param2:%Integer,Param3:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[	quit ""
+]]></Implementation>
+</Method>
+
+<Method name="TestGetUsedClassNames">
+<Implementation><![CDATA[
+	#dim UsedClassNames As %ListOfDataTypes = ##class(TECH.ClassDefinition).Instance().GetUsedClassNames("vhUnitTest.TECH.ClassDefinition.DummyClass1")
+	do $$$AssertEquals(UsedClassNames.Count(),3,"")
+	do $$$AssertTrue(UsedClassNames.Find("vhUnitTest.Manager"),"")
+	do $$$AssertTrue(UsedClassNames.Find("vhUnitTest.TestCase"),"")
+	do $$$AssertTrue(UsedClassNames.Find("vhUnitTest.TECH.ClassDefinition.DummyClass2"),"")
+]]></Implementation>
+</Method>
+
+<Method name="TestGetUsedRoutineNames">
+<Implementation><![CDATA[
+	
+	#dim UsedRoutineNames As %ListOfDataTypes = ##class(TECH.ClassDefinition).Instance().GetUsedRoutineNames("vhUnitTest.TECH.ClassDefinition.DummyClass1")
+	do $$$AssertEquals(UsedRoutineNames.Count(),2,"")
+	do $$$AssertTrue(UsedRoutineNames.Find("vhUnitTest.TECH.MethodDefinition.DummyRoutine1"),"")
+	do $$$AssertTrue(UsedRoutineNames.Find("vhUnitTest.TECH.MethodDefinition.DummyRoutine2"),"")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ClassUtilsTestObject.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ClassUtilsTestObject.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ClassUtilsTestObject.cls.xml	(revision 957)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ClassUtilsTestObject">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="Required">
+<Type>%String</Type>
+<Required>1</Required>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="ValueList">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+<Parameter name="VALUELIST" value=",ValidValue"/>
+</Property>
+
+<Property name="Array">
+<Type>TECH.Integer</Type>
+<Collection>array</Collection>
+</Property>
+
+<Property name="Calculated">
+<Type>%String</Type>
+<Calculated>1</Calculated>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Algo/SQL/SelectBuilder/GenereerSelecteerEnkelID/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/SQL/SelectBuilder/GenereerSelecteerEnkelID/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/SQL/SelectBuilder/GenereerSelecteerEnkelID/Test.cls.xml	(revision 957)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Algo.SQL.SelectBuilder.GenereerSelecteerEnkelID.Test">
+<Super>vhUnitTest.TECH.Algo.SQL.SelectBuilder.Base</Super>
+
+<Method name="TestAlleenTabel">
+<Implementation><![CDATA[
+	#dim InputParameters As vhUnitTest.TECH.Algo.SQL.SelectBuilder.Genereer.InputParameters = ..GeefStandaardParameters()
+	
+	#dim QueryInfo As TECH.Algo.SQL.SelectBuilder.Info = ..QueryBuilderImpl.GenereerSelecteerEnkelID(InputParameters)
+	do $$$AssertEquals(QueryInfo.Query,"SELECT TABEL.ID FROM TABEL")
+	do $$$AssertEqualsListbuild(QueryInfo.Parameters,"")
+]]></Implementation>
+</Method>
+
+<Method name="TestEenPropertyEenWaardexxxPropertyStaatNietInSelect">
+<Implementation><![CDATA[
+	#dim InputParameters As vhUnitTest.TECH.Algo.SQL.SelectBuilder.Genereer.InputParameters = ..GeefStandaardParameters()
+	do InputParameters.Property1.VoegToeCriteria("=","A")
+	
+	#dim QueryInfo As TECH.Algo.SQL.SelectBuilder.Info = ..QueryBuilderImpl.GenereerSelecteerEnkelID(InputParameters)
+	do $$$AssertEquals(QueryInfo.Query,"SELECT TABEL.ID FROM TABEL WHERE Property1 = ?")
+	do $$$AssertEqualsListbuild(QueryInfo.Parameters,$listbuild("A"))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Algo/Boom/impl/BinaireKnoop.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/Boom/impl/BinaireKnoop.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/Boom/impl/BinaireKnoop.cls.xml	(revision 957)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoop">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Algo.Boom.BinaireKnoop</Super>
+<Inheritance>right</Inheritance>
+
+<Property name="Waarde">
+<Type>%Integer</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Waarde:%Integer</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	 Set ..Waarde = Waarde
+	 Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefComparator">
+<Private>1</Private>
+<ReturnType>TECH.Comparator.IComparator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoopComparator).%New()
+]]></Implementation>
+</Method>
+
+<Method name="IsGelijk">
+<FormalSpec>Knoop:vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoop</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (##this.Waarde = Knoop.Waarde)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Exceptions/KlasseB.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Exceptions/KlasseB.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Exceptions/KlasseB.cls.xml	(revision 957)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Exceptions.KlasseB">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="VariabeleABC">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="VariabeleDEF">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Method name="ThrowException">
+<Implementation><![CDATA[
+	   Set $ZTRAP = "CatchThrow"
+	   Set ..VariabeleABC = "Waarde1"
+	   Do ##class(vhUnitTest.TECH.Exceptions.KlasseC).ThrowException()
+	   Quit
+CatchThrow Set $ZTRAP = ""
+	   Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	   Set NewException = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"Klasse B detecteert exception.")
+	   Do NewException.VoegToeInnerExceptie(Exception)
+	   Do ##class(TECH.ExceptionHandler).Throw(NewException)
+]]></Implementation>
+</Method>
+
+<Method name="RaiseUndefined">
+<Implementation><![CDATA[
+		Set $ZTRAP = "CatchRaise"
+		Set ..VariabeleDEF = "Waarde2"
+		Set Var = "NieuweWaarde"
+	   Do ##class(vhUnitTest.TECH.Exceptions.KlasseC).RaiseUndefined()
+	   Quit 
+CatchRaise 
+	   Set $ZTRAP = ""
+	   Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	   Set NewException = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"Klasse B detecteert undefined.")
+	   Do NewException.VoegToeInnerExceptie(Exception)
+	   Do ##class(TECH.ExceptionHandler).Throw(NewException)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ResultSet/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ResultSet/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ResultSet/Test.cls.xml	(revision 957)
@@ -0,0 +1,109 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ResultSet.Test">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","vhUnitTest.TECH.ResultSet.Test")</Description>
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="SkipTestMethods">
+<Type>%String</Type>
+<Default>,TestPrepareFailed</Default>
+</Parameter>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	do ..MaakUTResultSetData(5)
+	
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.ResultSet).Create("SELECT ID FROM vhUnitTest_TECH_ResultSet.Data WHERE ID < ?",$listbuild(10))
+	
+	do $$$AssertEquals(ResultSet.%ClassName(1),"TECH.ResultSet")
+	
+	#dim Counter As Integer
+	while ResultSet.Next() {
+		set Counter = $increment(Counter)
+		do $$$AssertEquals(ResultSet.GetData(1),Counter,"")
+	}
+	do $$$AssertEquals(Counter,5)
+]]></Implementation>
+</Method>
+
+<Method name="TestNextFailed">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("#5001","CrazyQuery fetch-error")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.ResultSet).%New("vhUnitTest.TECH.ResultSet.CrazyQuery:CrazyQuery")
+	do ResultSet.Execute()
+	do ResultSet.Next()
+]]></Implementation>
+</Method>
+
+<Method name="TestPrepareFailed">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Can not prepare query 'SELECT ID FROM ONBESTAANDE_TABEL'")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.StatusException",Substrings))
+	
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.ResultSet).Create("SELECT ID FROM ONBESTAANDE_TABEL",$listbuild(10))
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefIDVanEersteRecordGelukt">
+<Implementation><![CDATA[
+	do ..MaakUTResultSetData(2)	
+	#dim UTDataID As %String = ##class(TECH.ResultSet).GeefIDVanEersteRecord("SELECT TOP 1 ID FROM vhUnitTest_TECH_ResultSet.Data WHERE ID < ?",$listbuild(10))
+	
+	do $$$AssertEquals(UTDataID,"1")
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefIDVanEersteRecordMislukt">
+<Implementation><![CDATA[
+	do ..MaakUTResultSetData(2)
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen resultaat voor Query","SELECT TOP 1 ID FROM vhUnitTest_TECH_ResultSet.Data WHERE ID > ?","met Params (10)")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.ResultSetNoRecordException",Substrings))
+
+	#dim UTDataID As %String = ##class(TECH.ResultSet).GeefIDVanEersteRecord("SELECT TOP 1 ID FROM vhUnitTest_TECH_ResultSet.Data WHERE ID > ?",$listbuild(10))
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefIDVanEersteRecordMisluktCustomException">
+<Implementation><![CDATA[
+	#dim CustomErrorMessage As %String = "UT - Geen resultaat gevonden voor UTQuery in method GeefIDVanEersteRecordMisluktCustomException()"
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes(CustomErrorMessage)
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+
+	do ..MaakUTResultSetData(2)
+	Try {
+		#dim UTDataID As %String = ##class(TECH.ResultSet).GeefIDVanEersteRecord("SELECT TOP 1 ID FROM vhUnitTest_TECH_ResultSet.Data WHERE ID > ?",$listbuild(10))
+	}
+	Catch {
+		Do ##class(TECH.ResultSet).CatchNoRecordException()
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(CustomErrorMessage))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>TestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(TestName)
+	do ..VerwijderUTResultSetData()
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderUTResultSetData">
+<Private>1</Private>
+<Implementation><![CDATA[	do ##class(vhUnitTest.TECH.ResultSet.Data).%DeleteExtent()
+]]></Implementation>
+</Method>
+
+<Method name="MaakUTResultSetData">
+<FormalSpec>Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	do ##class(vhUnitTest.TECH.ResultSet.Data).Populate(Aantal)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/GlobalUtils.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/GlobalUtils.cls.xml	(revision 0)
+++ vhUnitTest/TECH/GlobalUtils.cls.xml	(revision 957)
@@ -0,0 +1,176 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.GlobalUtils">
+<ClassType/>
+<IncludeCode>vhLib.Macro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="GlobalName">
+<Type>%String</Type>
+<Private>1</Private>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="TimeStamp">
+<Type>%String</Type>
+<Private>1</Private>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="Filename">
+<Type>%String</Type>
+<Private>1</Private>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/Display=all","TECH.GlobalUtils")</Description>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ 	#dim Directory As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("vhDev.TempFilePath")
+ 	set ..GlobalName = "^vhUnitTest.TECH.GlobalUtils"
+ 	set ..Filename = ##class(TECH.Files).AppendFile(Directory,"vhUnitTest.TECH.GlobalUtils.gof")
+ 	set ..TimeStamp = $ztimestamp
+ 	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="TestImportFile">
+<Implementation><![CDATA[
+	kill ^vhUnitTest.TECH.GlobalUtils
+	do $$$AssertFalse($data(^vhUnitTest.TECH.GlobalUtils))	
+	
+	#dim UnitTestRoot As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("UnitTestRoot")
+	#dim Filename = ##class(TECH.Files).AppendFile(UnitTestRoot,"TECH.GlobalUtils\TestImportFile.gof")
+	
+	do ##class(TECH.GlobalUtils).ImportFromFile(Filename)
+		
+	if $$$AssertTrue($data(^vhUnitTest.TECH.GlobalUtils)){
+		do $$$AssertEquals(^vhUnitTest.TECH.GlobalUtils(1),"Data is geimporteerd")	
+	}
+	
+	kill ^vhUnitTest.TECH.GlobalUtils
+	do $$$AssertFalse($data(^vhUnitTest.TECH.GlobalUtils))
+]]></Implementation>
+</Method>
+
+<Method name="TestExportImportBlock">
+<Description>
+Het import gedeelte niet activeren tot wanneer er uitsluitsel is van WRC anders wordt er een corrupte database gecreeerd :((((</Description>
+<Implementation><![CDATA[
+	
+	#define OVERWRITE  1
+	#define NOOVERWRITE 0
+	
+	do ##class(%File).Delete(..Filename)
+	do $$$AssertFalse(##class(%File).Exists(..Filename),"Bestand mag niet bestaan bij start")
+	
+	/*
+	do ..CreateGlobal()
+	do $$$AssertEquals(..TimeStamp,..GetGlobalValue(),"Waarde vergelijking na creatie global")
+	
+	do ##class(TECH.GlobalUtils).ExportToBlock(..Filename,$listbuild($translate(..GlobalName,"^","")))
+	do $$$AssertTrue(##class(%File).Exists(..Filename),"Bestand bestaat na export global")
+	
+	do ..DeleteGlobal()
+	do $$$AssertTrue($$$Not($data(@..GlobalName)),"Global mag niet meer bestaan na delete")
+		
+	do ##class(TECH.GlobalUtils).ImportFromBlock(..Filename,$$$OVERWRITE)
+	if $$$AssertTrue($data(@..GlobalName),"Global bestaat terug na import") {
+		do $$$AssertEquals(..TimeStamp,..GetGlobalValue(),"Global bestaat terug na import") 
+	}
+	do ..UpdateGlobal()
+	
+	;do ##class(TECH.GlobalUtils).ImportFromBlock(..Filename,$$$NOOVERWRITE)
+	do $$$AssertEquals(..TimeStamp,..GetGlobalValue(),"Global waarden zijn gelijk aan waarden na laatste update - geen overwrite")
+
+	do ..DeleteGlobal()
+	do $$$AssertTrue($$$Not($data(@..GlobalName)),"Global deleted")
+	
+	*/
+	
+	
+	do ##class(%File).Delete(..Filename)
+	do $$$AssertTrue($$$Not(##class(%File).Exists(..Filename)),"Bestand mag niet meer bestaan na testen")
+	
+	
+
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="TestExportImportXML">
+<Implementation><![CDATA[
+	#define OVERWRITE  1
+	#define NOOVERWRITE 0
+	
+	do ##class(%File).Delete(..Filename)
+	do $$$AssertFalse(##class(%File).Exists(..Filename),"Bestand mag niet bestaan bij start")
+	
+	do ..CreateGlobal()
+	do $$$AssertEquals(..TimeStamp,..GetGlobalValue(),"Waarde vergelijking na creatie global")
+	
+	do ##class(TECH.GlobalUtils).ExportToXML(..Filename,$listbuild($translate(..GlobalName,"^","")))
+	do $$$AssertTrue(##class(%File).Exists(..Filename),"Bestand bestaat na export global")
+	
+	do ..DeleteGlobal()
+	do $$$AssertTrue($$$Not($data(@..GlobalName)),"Global mag niet meer bestaan na delete")
+	
+	do ##class(TECH.GlobalUtils).ImportFromXML(..Filename,$$$OVERWRITE)
+	if $$$AssertTrue($data(@..GlobalName),"Global bestaat terug na import") {
+		do $$$AssertEquals(..TimeStamp,..GetGlobalValue(),"Global bestaat terug na import") 
+	}
+	do ..UpdateGlobal()
+	
+	do ##class(TECH.GlobalUtils).ImportFromXML(..Filename,$$$NOOVERWRITE)
+	do $$$AssertEquals(..TimeStamp,..GetGlobalValue(),"Global waarden zijn gelijk aan waarden na laatste update - geen overwrite")
+
+	do ..DeleteGlobal()
+	do $$$AssertTrue($$$Not($data(@..GlobalName)),"Global deleted")
+
+	do ##class(%File).Delete(..Filename)
+	do $$$AssertTrue($$$Not(##class(%File).Exists(..Filename)),"Bestand mag niet meer bestaan na testen")
+
+	quit
+
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="CreateGlobal">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Counter As Integer
+	for Counter = 1 : 1 : 100 set @..GlobalName@(Counter)=..TimeStamp
+]]></Implementation>
+</Method>
+
+<Method name="GetGlobalValue">
+<Private>1</Private>
+<ReturnType>%TimeStamp</ReturnType>
+<Implementation><![CDATA[	quit $get(@..GlobalName@(10))
+]]></Implementation>
+</Method>
+
+<Method name="UpdateGlobal">
+<Private>1</Private>
+<Implementation><![CDATA[
+	set ..TimeStamp = $ztimestamp
+	do ..CreateGlobal()
+]]></Implementation>
+</Method>
+
+<Method name="DeleteGlobal">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim lbGlobals As %List
+	set lbGlobals = $listbuild(..GlobalName) 
+	do ##class(TECH.GlobalUtils).KillGlobal(lbGlobals)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Concurrency/impl/Klasse3.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Concurrency/impl/Klasse3.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Concurrency/impl/Klasse3.cls.xml	(revision 957)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Concurrency.impl.Klasse3">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Concurrency.VhConcurrencyPart</Super>
+
+<Property name="Iets">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="ParentKlasse2">
+<Type>vhUnitTest.TECH.Concurrency.impl.Klasse2</Type>
+</Property>
+
+<Method name="OnDefineDependentConcurrency">
+<Implementation><![CDATA[	Do ..MarkDependentConcurrency(..ParentKlasse2)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^vhUnitTest.TECH.ConC09.Klasse3D</DataLocation>
+<DefaultData>Klasse3DefaultData</DefaultData>
+<IdLocation>^vhUnitTest.TECH.ConC09.Klasse3D</IdLocation>
+<IndexLocation>^vhUnitTest.TECH.ConC09.Klasse3I</IndexLocation>
+<StreamLocation>^vhUnitTest.TECH.ConC09.Klasse3S</StreamLocation>
+<Data name="Klasse3DefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Iets</Value>
+</Value>
+<Value name="3">
+<Value>ParentKlasse2</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Integer/TestMinMaxVal.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Integer/TestMinMaxVal.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Integer/TestMinMaxVal.cls.xml	(revision 957)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Integer.TestMinMaxVal">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Mock">
+<Type>vhUnitTest.TECH.Integer.MockClass</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="TestLegeWaardeGeldigeValidatie">
+<Implementation><![CDATA[
+	set ..Mock.IntegerMinVal200MaxVal300 = ""
+	do $$$AssertTrue(..Mock.%ValidateObject())
+]]></Implementation>
+</Method>
+
+<Method name="TestWaardeGelijkAanMinValGeldigeValidatie">
+<Implementation><![CDATA[
+	set ..Mock.IntegerMinVal200MaxVal300 = 200
+	do $$$AssertTrue(..Mock.%ValidateObject())
+]]></Implementation>
+</Method>
+
+<Method name="TestWaardeOnderMinValOngeldigeValidatie">
+<Implementation><![CDATA[
+	set ..Mock.IntegerMinVal200MaxVal300 = 199
+	do $$$AssertFalse(..Mock.%ValidateObject())
+]]></Implementation>
+</Method>
+
+<Method name="TestWaardeBovenMaxValOngeldigeValidatie">
+<Implementation><![CDATA[
+	set ..Mock.IntegerMinVal200MaxVal300 = 301
+	do $$$AssertFalse(..Mock.%ValidateObject())
+]]></Implementation>
+</Method>
+
+<Method name="TestWaardeTussenMinMaxValOngeldigeValidatie">
+<Implementation><![CDATA[
+	set ..Mock.IntegerMinVal200MaxVal300 = 250
+	do $$$AssertTrue(..Mock.%ValidateObject())
+]]></Implementation>
+</Method>
+
+<Method name="TestGeenInteger">
+<Implementation><![CDATA[
+	set ..Mock.IntegerMinVal200MaxVal300 = 250.5
+	do $$$AssertFalse(..Mock.%ValidateObject())
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	set ..Mock = ##class(vhUnitTest.TECH.Integer.MockClass).%New()
+	do ##super(aTestName)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Percentage/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Percentage/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Percentage/Test.cls.xml	(revision 957)
@@ -0,0 +1,62 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Percentage.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestExclusiefNaarInclusief">
+<Implementation><![CDATA[
+	do $$$AssertEquals(##class(TECH.Percentage).ExclusiefNaarInclusief(100,0.21),121)
+	do $$$AssertEquals(##class(TECH.Percentage).ExclusiefNaarInclusief(200,0.01),202)
+	do $$$AssertEquals(##class(TECH.Percentage).ExclusiefNaarInclusief(100,-0.20),80)
+	do $$$AssertEquals(##class(TECH.Percentage).ExclusiefNaarInclusief(100,0),100)
+]]></Implementation>
+</Method>
+
+<Method name="TestInclusiefNaarExclusief">
+<Implementation><![CDATA[
+	do $$$AssertEquals(##class(TECH.Percentage).InclusiefNaarExclusief(121,0.21),100)
+	do $$$AssertEquals(##class(TECH.Percentage).InclusiefNaarExclusief(202,0.01),200)
+	do $$$AssertEquals(##class(TECH.Percentage).InclusiefNaarExclusief(80,-0.20),100)
+	do $$$AssertEquals(##class(TECH.Percentage).InclusiefNaarExclusief(100,0),100)
+]]></Implementation>
+</Method>
+
+<Method name="TestWaardeVanExclusief">
+<Implementation><![CDATA[
+	do $$$AssertEquals(##class(TECH.Percentage).WaardeVanExclusief(100,0.21),21)
+	do $$$AssertEquals(##class(TECH.Percentage).WaardeVanExclusief(200,0.01),2)
+	do $$$AssertEquals(##class(TECH.Percentage).WaardeVanExclusief(100,-0.20),-20)
+	do $$$AssertEquals(##class(TECH.Percentage).WaardeVanExclusief(100,0),0)
+]]></Implementation>
+</Method>
+
+<Method name="TestWaardeVanInclusief">
+<Implementation><![CDATA[
+	do $$$AssertEquals(##class(TECH.Percentage).WaardeVanInclusief(121,0.21),21)
+	do $$$AssertEquals(##class(TECH.Percentage).WaardeVanInclusief(202,0.01),2)
+	do $$$AssertEquals(##class(TECH.Percentage).WaardeVanInclusief(80,-0.20),-20)
+	do $$$AssertEquals(##class(TECH.Percentage).WaardeVanInclusief(100,0),0)
+]]></Implementation>
+</Method>
+
+<Method name="TestPercentageVanExclusief">
+<Implementation><![CDATA[
+	do $$$AssertEquals(##class(TECH.Percentage).PercentageVanExclusief(100,121),0.21)
+	do $$$AssertEquals(##class(TECH.Percentage).PercentageVanExclusief(200,202),0.01)
+	do $$$AssertEquals(##class(TECH.Percentage).PercentageVanExclusief(100,80),-0.20)
+	do $$$AssertEquals(##class(TECH.Percentage).PercentageVanExclusief(100,100),0)
+]]></Implementation>
+</Method>
+
+<Method name="TestPercentageVanInclusief">
+<Implementation><![CDATA[
+	do $$$AssertEquals(##class(TECH.Percentage).PercentageVanInclusief(121,100),0.21)
+	do $$$AssertEquals(##class(TECH.Percentage).PercentageVanInclusief(202,200),0.01)
+	do $$$AssertEquals(##class(TECH.Percentage).PercentageVanInclusief(80,100),-0.20)
+	do $$$AssertEquals(##class(TECH.Percentage).PercentageVanInclusief(100,100),0)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Net/URI.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Net/URI.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Net/URI.cls.xml	(revision 957)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Net.URI">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/Display=all","TECH.Net.URI")</Description>
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestMaakVanURLZonderQueryNochFragment">
+<Implementation><![CDATA[
+		#dim Uri As TECH.Net.URI = ##class(TECH.Net.URI).MaakVanURLZonderQueryNochFragment("http://www.vanhoecke.be/nl")
+		#dim UriString As %String = Uri.ToString()
+		
+		Quit:('$$$AssertEquals( "http://www.vanhoecke.be/nl", UriString ))
+]]></Implementation>
+</Method>
+
+<Method name="TestVoegToeQueryElement">
+<Implementation><![CDATA[
+		#dim Uri As TECH.Net.URI = ##class(TECH.Net.URI).MaakVanURLZonderQueryNochFragment("http://www.vanhoecke.be/nl")
+		Do Uri.VoegToeQueryElement("Taal", "NL")
+		#dim UriString As %String = Uri.ToString()
+		
+		Quit:('$$$AssertEquals( "http://www.vanhoecke.be/nl?Taal=NL", UriString ))
+]]></Implementation>
+</Method>
+
+<Method name="TestVoegToeQueryElement2x">
+<Implementation><![CDATA[
+		#dim Uri As TECH.Net.URI = ##class(TECH.Net.URI).MaakVanURLZonderQueryNochFragment("http://www.vanhoecke.be/nl")
+		Do Uri.VoegToeQueryElement("Taal", "NL")
+		Do Uri.VoegToeQueryElement("Land", "BE")
+		#dim UriString As %String = Uri.ToString()
+		
+		Quit:('$$$AssertEquals( "http://www.vanhoecke.be/nl?Taal=NL&Land=BE", UriString ))
+]]></Implementation>
+</Method>
+
+<Method name="TestToStringMetTeEscapenKarakter">
+<Implementation><![CDATA[
+		#dim Uri As TECH.Net.URI = ##class(TECH.Net.URI).MaakVanURLZonderQueryNochFragment("http://www.vanhoecke.be/nl")
+		Do Uri.VoegToeQueryElement("+", "+")
+		#dim UriString As %String = Uri.ToString()
+		
+		Quit:('$$$AssertEquals( "http://www.vanhoecke.be/nl?%2B=%2B", UriString ))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/Tools/Mock/MockClassBase/VerwachtMethodCall/BasisMock.cls.xml
===================================================================
diff -u
--- vhUnitTest/Tools/Mock/MockClassBase/VerwachtMethodCall/BasisMock.cls.xml	(revision 0)
+++ vhUnitTest/Tools/Mock/MockClassBase/VerwachtMethodCall/BasisMock.cls.xml	(revision 957)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Tools.Mock.MockClassBase.VerwachtMethodCall.BasisMock">
+<Super>Tools.Mock.MockClassBase</Super>
+
+<Method name="Methode">
+<Implementation><![CDATA[	Do ..VerwerkMethodCall("Methode")
+]]></Implementation>
+</Method>
+
+<Method name="MethodeMetParameter">
+<FormalSpec>Param:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwerkMethodCall("MethodeMetParameter",Param)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ReversedListIterator.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ReversedListIterator.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ReversedListIterator.cls.xml	(revision 957)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ReversedListIterator">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestEmptyList">
+<Implementation><![CDATA[
+	set List = ##class(%ListOfDataTypes).%New()
+	set itList = ##class(TECH.ReversedListIterator).%New(List)
+	do $$$AssertFalse(itList.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="TestLoopDataTypes">
+<Implementation><![CDATA[
+	set List = ##class(%ListOfDataTypes).%New()
+	#dim Counter As %Integer 
+	for Counter = 1:1:5 do List.Insert(Counter)
+
+	set itList = ##class(TECH.ReversedListIterator).%New(List)
+	while itList.HasNext() {
+		do $$$AssertEquals(Counter,itList.Next())
+		set Counter = Counter - 1	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="TestLoopObjects">
+<Implementation><![CDATA[
+	set List = ##class(%ListOfObjects).%New()
+	#dim Counter As %Integer 
+	for Counter = 1:1:5 do List.Insert(##class(vhUnitTest.TECH.ReversedListIterator.DataObject).%New("Data "_Counter))
+	set itList = ##class(TECH.ReversedListIterator).%New(List)
+	while itList.HasNext() {
+		do $$$AssertEquals("Data "_Counter,itList.Next().Property)
+		set Counter = Counter - 1	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="TestRemoveItems">
+<Implementation><![CDATA[
+	set List = ##class(%ListOfDataTypes).%New()
+	#dim Counter As %Integer 
+	for Counter=1:1:5 do List.Insert(Counter)
+
+	set itList = ##class(TECH.ReversedListIterator).%New(List)
+	while itList.HasNext() {
+		do itList.Next()
+		if Counter = 3 do List.RemoveAt(itList.Key())
+		set Counter = Counter - 1	
+		
+	}
+
+	do $$$AssertEquals(List.Size,4)
+	do $$$AssertEquals(List.GetAt(1),1)
+	do $$$AssertEquals(List.GetAt(2),2)
+	do $$$AssertEquals(List.GetAt(3),4)
+	do $$$AssertEquals(List.GetAt(4),5)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ClassUtils/GeefProperties/LegeKlasse.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ClassUtils/GeefProperties/LegeKlasse.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ClassUtils/GeefProperties/LegeKlasse.cls.xml	(revision 957)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ClassUtils.GeefProperties.LegeKlasse">
+<Super>%RegisteredObject</Super>
+</Class>
+
+
+</Export>
Index: vhUnitTest/Tools/ObjectDumper/TestCodeCreator.cls.xml
===================================================================
diff -u
--- vhUnitTest/Tools/ObjectDumper/TestCodeCreator.cls.xml	(revision 0)
+++ vhUnitTest/Tools/ObjectDumper/TestCodeCreator.cls.xml	(revision 957)
@@ -0,0 +1,78 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Tools.ObjectDumper.TestCodeCreator">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="AssertCounter">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="DumpResult">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	#dim Object = ##class(vhUnitTest.Tools.ObjectDumper.ObjectCreator).GetObject()
+	
+	set ..DumpResult = ##class(Tools.ObjectDumper.CodeCreator).%New(Object).GetResult()
+	
+	do ..AssertValue("set BaseObject = ##class(vhUnitTest.Tools.ObjectDumper.BaseObject).%New()")
+	do ..AssertValue("set BaseObject.EmptyProperty = """"")
+	do ..AssertValue("set BaseObject.PrivateAsString = ""string""")
+	do ..AssertValue("set BaseObject.PropertyAsArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()")
+	do ..AssertValue("do BaseObject.PropertyAsArrayOfDataTypes.SetAt(""Item1"",""Key1"")")
+	do ..AssertValue("do BaseObject.PropertyAsArrayOfDataTypes.SetAt(""Item2"",""Key2"")")
+	do ..AssertValue("do BaseObject.PropertyAsArrayOfObjects.SetAt(##class(vhUnitTest.Tools.ObjectDumper.Object).%New(),""Key1"")")
+	do ..AssertValue("set BaseObject.PropertyAsArrayOfObjects.GetAt(""Key1"").PropertyAsInteger = ""1""")
+	do ..AssertValue("set BaseObject.PropertyAsArrayOfObjects.GetAt(""Key1"").PropertyAsString = ""string""")
+	do ..AssertValue("do BaseObject.PropertyAsArrayOfObjects.SetAt(##class(vhUnitTest.Tools.ObjectDumper.Object).%New(),""Key2"")")
+	do ..AssertValue("set BaseObject.PropertyAsArrayOfObjects.GetAt(""Key2"").PropertyAsInteger = ""1""")
+	do ..AssertValue("set BaseObject.PropertyAsArrayOfObjects.GetAt(""Key2"").PropertyAsString = ""string""")
+	do ..AssertValue("set BaseObject.PropertyAsBoolean = ""0""")
+	do ..AssertValue("set BaseObject.PropertyAsDecimal = ""1.5""")
+	do ..AssertValue("set BaseObject.PropertyAsInteger = ""1""")
+	do ..AssertValue("set BaseObject.PropertyAsListOfDataTypes = ##class(%ListOfDataTypes).%New()")
+	do ..AssertValue("do BaseObject.PropertyAsListOfDataTypes.Insert(""Item1"")")
+	do ..AssertValue("do BaseObject.PropertyAsListOfDataTypes.Insert(""Item2"")")
+	do ..AssertValue("do BaseObject.PropertyAsListOfObjects.Insert(##class(vhUnitTest.Tools.ObjectDumper.Object).%New())")
+	do ..AssertValue("set BaseObject.PropertyAsListOfObjects.GetAt(1).PropertyAsInteger = ""1""")
+	do ..AssertValue("set BaseObject.PropertyAsListOfObjects.GetAt(1).PropertyAsString = ""string""")
+	do ..AssertValue("do BaseObject.PropertyAsListOfObjects.Insert(##class(vhUnitTest.Tools.ObjectDumper.Object).%New())")
+	do ..AssertValue("set BaseObject.PropertyAsListOfObjects.GetAt(2).PropertyAsInteger = ""1""")
+	do ..AssertValue("set BaseObject.PropertyAsListOfObjects.GetAt(2).PropertyAsString = ""string""")
+	do ..AssertValue("set BaseObject.PropertyAsMultiDim(1) = ""1""")
+	do ..AssertValue("set BaseObject.PropertyAsMultiDim(1,2) = ""1,2""")
+	do ..AssertValue("set BaseObject.PropertyAsMultiDim(2,2) = ""2,2""")
+	do ..AssertValue("set BaseObject.PropertyAsObject = ##class(vhUnitTest.Tools.ObjectDumper.Object).%New()")
+	do ..AssertValue("set BaseObject.PropertyAsObject.PropertyAsInteger = ""1""")
+	do ..AssertValue("set BaseObject.PropertyAsObject.PropertyAsString = ""string""")
+	do ..AssertValue("set BaseObject.PropertyAsObjectZonderPackage = ##class(vhUnitTest.Tools.ObjectDumper.Object).%New()")
+	do ..AssertValue("set BaseObject.PropertyAsObjectZonderPackage.PropertyAsInteger = ""1""")
+	do ..AssertValue("set BaseObject.PropertyAsObjectZonderPackage.PropertyAsString = ""string""")
+	do ..AssertValue("set BaseObject.PropertyAsString = ""string""")
+	do ..AssertValue("set BaseObject.PropertyAsList = $listbuild(""Item1"",$listbuild(""Item2.1"",""Item2.2""))")
+	do ..AssertValue("set BaseObject.PropertyAsEnumeration = ##class(vhUnitTest.Tools.ObjectDumper.Enumeration).Een()")
+	
+	
+	do $$$AssertEquals(##class(TECH.ListUtils).ListToPieces(..DumpResult,$C(13,10)),"")
+]]></Implementation>
+</Method>
+
+<Method name="AssertValue">
+<FormalSpec>Value:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Index = ..DumpResult.Find(Value)
+	if $$$AssertTrue(Index,Value) {
+		do ..DumpResult.RemoveAt(Index)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Visitor/impl/VisitorsAccepteerder/Visitor1.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Visitor/impl/VisitorsAccepteerder/Visitor1.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Visitor/impl/VisitorsAccepteerder/Visitor1.cls.xml	(revision 957)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Visitor.impl.VisitorsAccepteerder.Visitor1">
+<Super>vhUnitTest.TECH.Visitor.impl.VisitorsAccepteerder.Visitor</Super>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Visitor/impl/VisitorsAccepteerder/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Visitor/impl/VisitorsAccepteerder/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Visitor/impl/VisitorsAccepteerder/Test.cls.xml	(revision 957)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Visitor.impl.VisitorsAccepteerder.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestAccepteer">
+<Implementation><![CDATA[
+	;Arrange
+	set VisitorAccepteerder = ##class(TECH.Visitor.impl.VisitorsAccepteerder).%New()
+	set Visitors = ##class(%ListOfObjects).%New()
+	do Visitors.Insert(##class(vhUnitTest.TECH.Visitor.impl.VisitorsAccepteerder.Visitor1).%New())
+	do Visitors.Insert(##class(vhUnitTest.TECH.Visitor.impl.VisitorsAccepteerder.Visitor2).%New())
+	set Object = ##class(vhUnitTest.TECH.Visitor.impl.VisitorsAccepteerder.Object).%New()
+	
+	;Act
+	do VisitorAccepteerder.Accepteer(Object,Visitors)
+	
+	;Assert
+	if $$$AssertEquals(Object.VisitedBy.Count(),2) {
+		do $$$AssertEquals(Object.VisitedBy.GetAt(1),"vhUnitTest.TECH.Visitor.impl.VisitorsAccepteerder.Visitor1")
+		do $$$AssertEquals(Object.VisitedBy.GetAt(2),"vhUnitTest.TECH.Visitor.impl.VisitorsAccepteerder.Visitor2")
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingGeen.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingGeen.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingGeen.cls.xml	(revision 957)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Algo.Stapeling.NiveauSchikkingGeen">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Algo.Stapeling.INiveauSchikking</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefMaxAantalObjecten">
+<Description>
+Geeft het maximaal aantal objecten dat deze schikking kan plaatsen</Description>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 100
+]]></Implementation>
+</Method>
+
+<Method name="GebruikObjecten">
+<Description>
+Krijgt een Stack van TECH.Algo.Stapeling.I3DObject binnen. Geeft het aantal 3D objecten terug die het zal gebruiken.</Description>
+<FormalSpec>I3DObjecten:TECH.Stack</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 0
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/DataTransferObjectUtils/TestXMLStream.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/DataTransferObjectUtils/TestXMLStream.cls.xml	(revision 0)
+++ vhUnitTest/TECH/DataTransferObjectUtils/TestXMLStream.cls.xml	(revision 957)
@@ -0,0 +1,90 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.DataTransferObjectUtils.TestXMLStream">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/display=all/debug","TECH.DataTransferObjectUtils")</Description>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestGeefXMLStream">
+<Implementation><![CDATA[
+	#dim Veld1 As %String = "UT_dummy"
+	#dim Dto As vhUnitTest.TECH.DataTransferObjectUtils.DataTransferObject = ..GeefDto(Veld1)
+	
+	#dim XMLStream As %GlobalCharacterStream = ##class(TECH.DataTransferObjectUtils).GeefXMLStream(Dto)
+	
+	If $$$AssertTrue($IsObject(XMLStream)) {
+		Do $$$AssertEquals(XMLStream.%ClassName(1),"%Library.GlobalCharacterStream")
+		Do XMLStream.Rewind()
+		Do ..AssertXmlIsCorrect(XMLStream,Veld1)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefXMLStreamMetTopTag">
+<Implementation><![CDATA[
+	#dim Veld1 As %String = "UT_dummy"
+	#dim TopTag As %String = "MY_NEW_TOPTAG"
+	#dim Dto As vhUnitTest.TECH.DataTransferObjectUtils.DataTransferObject = ..GeefDto(Veld1)
+	
+	#dim XMLStream As %GlobalCharacterStream = ##class(TECH.DataTransferObjectUtils).GeefXMLStream(Dto,TopTag)
+	
+	If $$$AssertTrue($IsObject(XMLStream)) {
+		Do XMLStream.Rewind()
+		Do XMLStream.ReadLine()   ; geeft "<?xml version=""1.0"" encoding=""UTF-8""?>" , maar niet telkens controleren 
+		Do $$$AssertEquals(XMLStream.ReadLine(),"<"_TopTag_">")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="TestVoegToeXMLAanReedsGevuldeStream">
+<Implementation><![CDATA[
+	#dim Veld1 As %String = "UT_dummy"
+	#dim Dto As vhUnitTest.TECH.DataTransferObjectUtils.DataTransferObject = ..GeefDto(Veld1)
+	
+	Set XMLStream = ##class(%FileCharacterStream).%New()
+	Do XMLStream.WriteLine("Dit is de eerste lijn")
+	Do ##class(TECH.DataTransferObjectUtils).VoegToeXMLAanStream(.XMLStream,Dto)
+	
+	Do XMLStream.Rewind()
+	Do $$$AssertEquals(XMLStream.ReadLine(),"Dit is de eerste lijn","De eerste lijn is niet overschreven")
+	Do ..AssertXmlIsCorrect(XMLStream,Veld1)
+]]></Implementation>
+</Method>
+
+<Method name="TestVoegToeFouteDto">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("DataTransferObject is niet ondersteund")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+
+	Set XMLStream = ##class(%FileCharacterStream).%New()
+	Do ##class(TECH.DataTransferObjectUtils).VoegToeXMLAanStream(.XMLStream,$$$DummyObject)
+]]></Implementation>
+</Method>
+
+<Method name="AssertXmlIsCorrect">
+<FormalSpec>XMLStream:%AbstractStream,Veld1:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Indent As %String = "  "
+	Do $$$AssertEquals(XMLStream.ReadLine(),"<?xml version=""1.0"" encoding=""UTF-8""?>")
+	Do $$$AssertEquals(XMLStream.ReadLine(),"<UT_DTO>")
+	Do $$$AssertEquals(XMLStream.ReadLine(),Indent_"<VELD1>"_Veld1_"</VELD1>")
+	Do $$$AssertEquals(XMLStream.ReadLine(),Indent_"<LEEGVELD></LEEGVELD>")
+	Do $$$AssertEquals(XMLStream.ReadLine(),"</UT_DTO>")
+]]></Implementation>
+</Method>
+
+<Method name="GeefDto">
+<FormalSpec>Veld1:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhUnitTest.TECH.DataTransferObjectUtils.DataTransferObject</ReturnType>
+<Implementation><![CDATA[
+	Set Dto=##class(vhUnitTest.TECH.DataTransferObjectUtils.DataTransferObject).%New()
+	Set Dto.Veld1=Veld1
+	Quit Dto
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/PeriodeUtils.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/PeriodeUtils.cls.xml	(revision 0)
+++ vhUnitTest/TECH/PeriodeUtils.cls.xml	(revision 957)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.PeriodeUtils">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestGeefHuidigePeriode">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/display=all","TECH.PeriodeUtils")</Description>
+<Implementation><![CDATA[
+	#dim Vandaag As %Date = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+	#dim HuidigePeriode = ##class(TECH.DateTime).Jaar(Vandaag)_"."_##class(TECH.StringUtils).AddLeadingChar(##class(TECH.DateTime).Maand(Vandaag),"0",2)
+		
+	do $$$AssertEquals(##class(TECH.PeriodeUtils).GeefHuidigePeriode(),HuidigePeriode,"De huidige periode is correct")
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefPeriode">
+<Implementation><![CDATA[
+	do $$$AssertEquals(##class(TECH.PeriodeUtils).GeefPeriode($$INTDATE^vhLib.DataTypes("01.02.2012")),"2012.02","")
+	do $$$AssertEquals(##class(TECH.PeriodeUtils).GeefPeriode($$INTDATE^vhLib.DataTypes("02.01.2012")),"2012.01","")
+	do $$$AssertEquals(##class(TECH.PeriodeUtils).GeefPeriode($$INTDATE^vhLib.DataTypes("03.12.2011")),"2011.12","")
+	do $$$AssertEquals(##class(TECH.PeriodeUtils).GeefPeriode($$INTDATE^vhLib.DataTypes("04.11.2011")),"2011.11","")
+	do $$$AssertEquals(##class(TECH.PeriodeUtils).GeefPeriode($$INTDATE^vhLib.DataTypes("05.10.2011")),"2011.10","")
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefVorigePeriode">
+<Implementation><![CDATA[
+	do $$$AssertEquals(##class(TECH.PeriodeUtils).GeefVorigePeriode("2012.03"),"2012.02","")
+	do $$$AssertEquals(##class(TECH.PeriodeUtils).GeefVorigePeriode("2012.02"),"2012.01","")
+	do $$$AssertEquals(##class(TECH.PeriodeUtils).GeefVorigePeriode("2012.01"),"2011.12","")
+	do $$$AssertEquals(##class(TECH.PeriodeUtils).GeefVorigePeriode("2011.12"),"2011.11","")
+	do $$$AssertEquals(##class(TECH.PeriodeUtils).GeefVorigePeriode("2011.11"),"2011.10","")
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefVolgendePeriode">
+<Implementation><![CDATA[
+	do $$$AssertEquals(##class(TECH.PeriodeUtils).GeefVolgendePeriode("2012.03"),"2012.04","")
+	do $$$AssertEquals(##class(TECH.PeriodeUtils).GeefVolgendePeriode("2012.02"),"2012.03","")
+	do $$$AssertEquals(##class(TECH.PeriodeUtils).GeefVolgendePeriode("2012.01"),"2012.02","")
+	do $$$AssertEquals(##class(TECH.PeriodeUtils).GeefVolgendePeriode("2011.12"),"2012.01","")
+	do $$$AssertEquals(##class(TECH.PeriodeUtils).GeefVolgendePeriode("2011.11"),"2011.12","")
+	do $$$AssertEquals(##class(TECH.PeriodeUtils).GeefVolgendePeriode("2011.10"),"2011.11","")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingWisselend.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingWisselend.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/Stapeling/NiveauSchikkingWisselend.cls.xml	(revision 957)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Algo.Stapeling.NiveauSchikkingWisselend">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Algo.Stapeling.INiveauSchikking</Super>
+<Inheritance>right</Inheritance>
+
+<Property name="AantalAanroepen">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefMaxAantalObjecten">
+<Description>
+Geeft het maximaal aantal objecten dat deze schikking kan plaatsen</Description>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 3
+]]></Implementation>
+</Method>
+
+<Method name="GebruikObjecten">
+<Description>
+Krijgt een Stack van TECH.Algo.Stapeling.I3DObject binnen. Geeft het aantal 3D objecten terug die het zal gebruiken.</Description>
+<FormalSpec>I3DObjecten:TECH.Stack</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Set ..AantalAanroepen = ..AantalAanroepen + 1
+	If (..AantalAanroepen#2 = 1)
+	{
+		Do I3DObjecten.Pop()
+		Quit 1
+	}
+	Else
+	{
+		Do I3DObjecten.Pop() Set Popped = 1
+		If ('I3DObjecten.IsEmpty()) { Do I3DObjecten.Pop() Set Popped = 2 }
+		If ('I3DObjecten.IsEmpty()) { Do I3DObjecten.Pop() Set Popped = 3 }
+		Quit Popped
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Concurrency/AbstractTxTest.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Concurrency/AbstractTxTest.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Concurrency/AbstractTxTest.cls.xml	(revision 957)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Concurrency.AbstractTxTest">
+<Abstract>1</Abstract>
+<Import>TECH.Concurrency</Import>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	Do ..CheckNietInTxScope("Er staat al een TxScope open vóór de Test method.")
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	Do ..CheckNietInTxScope("Er stond nog een TxScope open na de Test method.")
+]]></Implementation>
+</Method>
+
+<Method name="CheckNietInTxScope">
+<FormalSpec>Melding:%String</FormalSpec>
+<Implementation><![CDATA[
+	While ("" '= ##class(TxScope).GeefHuidigeOfNiets())
+	{
+		#dim HuidigeScope As TxScope
+		Set HuidigeScope = ##class(TxScope).Huidige()
+		#dim IsNotSupported As %Boolean
+		Set IsNotSupported = (##class(TxScopeOptie).NotSupported() = HuidigeScope.GeefScopeOptie())
+		#dim GeenRuimere As %Boolean
+		Set HeeftRuimere = ("" '= HuidigeScope.GeefRuimereScope())
+		
+		Do ##class(TxScope).Huidige().Rollback()
+			
+		If ('IsNotSupported || HeeftRuimere)
+		{
+			Do ..Fail(Melding)
+		}
+	}
+	
+	// Extra controle via $TLevel, omdat de unit tests rapporten begin december door 
+	// een openstaande transactie niet opgeslagen werden.
+	While (0 '= $TLevel) {
+		Do ..Fail(Melding)
+		TRollback
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/RoutineUtils.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/RoutineUtils.cls.xml	(revision 0)
+++ vhUnitTest/TECH/RoutineUtils.cls.xml	(revision 957)
@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.RoutineUtils">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/Display=all","TECH.RoutineUtils")</Description>
+<Implementation><![CDATA[
+	do ##class(TECH.RoutineUtils).GeneratedClassCode("TECH.RoutineUtils.1.INT",.ClassName)
+	do $$$AssertEquals("TECH.RoutineUtils",ClassName)
+	
+	do ##class(TECH.RoutineUtils).GeneratedClassCode("vhLib.String.MAC",.ClassName)
+	do $$$AssertEquals("",ClassName)
+	
+	do ##class(TECH.RoutineUtils).GeneratedClassCode("vhUnitTest.TECH.RoutineUtils.1.INT",.ClassName)
+	do $$$AssertEquals("vhUnitTest.TECH.RoutineUtils",ClassName)
+	
+	quit
+]]></Implementation>
+</Method>
+
+<Parameter name="SubroutineNaam">
+<Default>DoeIets</Default>
+</Parameter>
+
+<Method name="TestBepaalSubroutineNaamUitRoutineLijnZonderMeer">
+<Implementation><![CDATA[	Do ..CheckBepaalSubroutineNaam(..#SubroutineNaam)
+]]></Implementation>
+</Method>
+
+<Method name="TestBepaalSubroutineNaamUitRoutineLijnMetCommentaarNaPuntkomma">
+<Implementation><![CDATA[	Do ..CheckBepaalSubroutineNaam(..#SubroutineNaam _ "; Een beetje commentaar.")
+]]></Implementation>
+</Method>
+
+<Method name="TestBepaalSubroutineNaamUitRoutineLijnMetParameters">
+<Implementation><![CDATA[	Do ..CheckBepaalSubroutineNaam(..#SubroutineNaam _ "(Parameter1 As %String)")
+]]></Implementation>
+</Method>
+
+<Method name="TestBepaalSubroutineNaamUitRoutineLijnMetCommentaarNaDubbeleSlash">
+<Implementation><![CDATA[	Do ..CheckBepaalSubroutineNaam(..#SubroutineNaam _ "//Een beetje commentaar.")
+]]></Implementation>
+</Method>
+
+<Method name="TestBepaalSubroutineNaamUitRoutineLijnMetSpatie">
+<Implementation><![CDATA[	Do ..CheckBepaalSubroutineNaam(..#SubroutineNaam _ " ; Een beetje commentaar na een spatie.")
+]]></Implementation>
+</Method>
+
+<Method name="CheckBepaalSubroutineNaam">
+<FormalSpec>SubroutineLijn:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim GevondenSubroutineNaam As %String = ##class(TECH.RoutineUtils).BepaalSubroutineNaamUitRoutineLijn(SubroutineLijn)
+	Do $$$AssertEquals(..#SubroutineNaam, GevondenSubroutineNaam)
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefSubRoutineNaamEnStartNummerVoorLijnNummer">
+<Implementation><![CDATA[
+	#dim RoutineNaam As %String = "ATK"
+	#dim RoutineLijnNummer As %Integer = 25
+	#dim SubRoutineNaam As %String = ""
+	#dim SubRoutineStartLijnNummer As %Integer = -1
+	
+	Do ##class(TECH.RoutineUtils).GeefSubRoutineNaamEnStartNummerVoorLijnNummer(RoutineNaam, RoutineLijnNummer, .SubRoutineNaam, .SubRoutineStartLijnNummer)
+	
+	Do $$$AssertEquals("NEWKLNR", SubRoutineNaam)
+	Do $$$AssertEquals(14, SubRoutineStartLijnNummer)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Persistent/OnAfterSave/TestWijziging.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Persistent/OnAfterSave/TestWijziging.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Persistent/OnAfterSave/TestWijziging.cls.xml	(revision 957)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Persistent.OnAfterSave.TestWijziging">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/display=all","TECH.Persistent.OnAfterSave")</Description>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	do ##class(vhUnitTest.TECH.Persistent.OnAfterSave.DummyTableMetOnAfterEvent).%KillExtent()
+	do ##class(vhUnitTest.TECH.Persistent.OnAfterSave.DummyTableMetOnAfterEvent).Populate(1)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	do ##class(vhUnitTest.TECH.Persistent.OnAfterSave.DummyTableMetOnAfterEvent).%KillExtent()
+]]></Implementation>
+</Method>
+
+<Method name="TestZonderDataWijziging">
+<Implementation><![CDATA[
+	set EventTester = ##class(vhUnitTest.EventTester).%New("vhUnitTestTECHPersistentOnAfterSaveEvent")
+	
+	set DummyData = ##class(vhUnitTest.TECH.Persistent.OnAfterSave.DummyTableMetOnAfterEvent).%OpenId(1)
+	do DummyData.Save()
+	
+	do $$$AssertEquals(EventTester.GeefAantalKeerGeraised(),0)
+]]></Implementation>
+</Method>
+
+<Method name="TestMetDataWijziging">
+<Implementation><![CDATA[
+	set EventTester = ##class(vhUnitTest.EventTester).%New("vhUnitTestTECHPersistentOnAfterSaveEvent")
+	
+	set DummyData = ##class(vhUnitTest.TECH.Persistent.OnAfterSave.DummyTableMetOnAfterEvent).%OpenId(1)
+	set DummyData.Dummy = "IK_TRIGGER_EEN_DATA_WIJZIGING"
+	do DummyData.Save()
+	
+	do $$$AssertEquals(EventTester.GeefAantalKeerGeraised(),1)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/TestChangeInfo.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/TestChangeInfo.cls.xml	(revision 0)
+++ vhUnitTest/TECH/TestChangeInfo.cls.xml	(revision 957)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.TestChangeInfo">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","TECH.TestChangeInfo")</Description>
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestChangeInfo">
+<Implementation><![CDATA[
+	Set ChangeInfo = ##class(vhUnitTest.TECH.UTChangeInfo).%New()
+	Set ChangeInfo.TestProp = "x"
+	Set Status = ChangeInfo.%Save()
+	
+	Do $$$AssertTrue($$$ISOK(Status),"Het object is opgeslagen")
+	Do $$$AssertTrue(ChangeInfo.GeefAangemaaktOp()'="","De aangemaakt op werd ingevuld")
+	Do $$$AssertTrue(ChangeInfo.GeefAangemaaktDoor()'="","De aangemaakt door werd ingevuld")
+	Do $$$AssertTrue(ChangeInfo.GeefGewijzigdOp()'="","De gewijzigd op werd ingevuld")
+	Do $$$AssertTrue(ChangeInfo.GeefGewijzigdDoor()'="","De gewijzigd door werd ingevuld")
+	
+	Set AangemaaktOp = ChangeInfo.GeefAangemaaktOp()
+	Set AangemaaktDoor = ChangeInfo.GeefAangemaaktDoor()
+	Set GewijzigdOp = ChangeInfo.GeefGewijzigdOp()
+	Set GewijzigdDoor = ChangeInfo.GeefGewijzigdDoor()
+	
+	H 1 // Hang nodig zodat gewijzigd op tijd verschilt
+	
+	Set ChangeInfo.TestProp = "y"
+	Set Status = ChangeInfo.%Save()
+	
+	Do $$$AssertTrue($$$ISOK(Status),"Het object is opgeslagen")
+	Do $$$AssertEquals(ChangeInfo.GeefAangemaaktOp(),AangemaaktOp,"Aangemaakt op werd niet gewijzigd")
+	Do $$$AssertEquals(ChangeInfo.GeefAangemaaktDoor(),AangemaaktDoor,"Aangemaakt door werd niet gewijzigd")
+	Do $$$AssertTrue(ChangeInfo.GeefGewijzigdOp()'=GewijzigdOp,"Gewijzigd op werd gewijzigd")
+
+	&SQL(DELETE FROM vhUnitTest_TECH.UTChangeInfo)
+]]></Implementation>
+</Method>
+
+<Method name="TestVhChangeInfo">
+<Implementation><![CDATA[
+	Set ChangeInfo = ##class(vhUnitTest.TECH.UTVhChangeInfo).%New()
+	Set ChangeInfo.TestProp = "x"
+	Set Status = ChangeInfo.%Save()
+	
+	Do $$$AssertTrue($$$ISOK(Status),"Het object is opgeslagen")
+	Do $$$AssertTrue(ChangeInfo.GeefAangemaaktOp()'="","De aangemaakt op werd ingevuld")
+	Do $$$AssertTrue(ChangeInfo.GeefAangemaaktDoor()'="","De aangemaakt door werd ingevuld")
+	Do $$$AssertTrue(ChangeInfo.GeefGewijzigdOp()'="","De gewijzigd op werd ingevuld")
+	Do $$$AssertTrue(ChangeInfo.GeefGewijzigdDoor()'="","De gewijzigd door werd ingevuld")
+	Do $$$AssertEquals(ChangeInfo.InstanceVersion,0,"Eerste versie")
+	
+	Set AangemaaktOp = ChangeInfo.GeefAangemaaktOp()
+	Set AangemaaktDoor = ChangeInfo.GeefAangemaaktDoor()
+	Set GewijzigdOp = ChangeInfo.GeefGewijzigdOp()
+	Set GewijzigdDoor = ChangeInfo.GeefGewijzigdDoor()
+	
+	H 1 // Hang nodig zodat gewijzigd op tijd verschilt
+	
+	Set ChangeInfo.TestProp = "y"
+	Set Status = ChangeInfo.%Save()
+	
+	Do $$$AssertTrue($$$ISOK(Status),"Het object is opgeslagen")
+	Do $$$AssertEquals(ChangeInfo.GeefAangemaaktOp(),AangemaaktOp,"Aangemaakt op werd niet gewijzigd")
+	Do $$$AssertEquals(ChangeInfo.GeefAangemaaktDoor(),AangemaaktDoor,"Aangemaakt door werd niet gewijzigd")
+	Do $$$AssertTrue(ChangeInfo.GeefGewijzigdOp()'=GewijzigdOp,"Gewijzigd op werd gewijzigd")
+	Do $$$AssertEquals(ChangeInfo.InstanceVersion,1,"Tweede versie")
+
+	&SQL(DELETE FROM vhUnitTest_TECH.UTVhChangeInfo)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Context/RuntimeContext/GeefPersonality/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Context/RuntimeContext/GeefPersonality/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Context/RuntimeContext/GeefPersonality/Test.cls.xml	(revision 957)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Context.RuntimeContext.GeefPersonality.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="PersonalityID">
+<Type>%String</Type>
+</Parameter>
+
+<Method name="TestOpgezet">
+<Implementation><![CDATA[
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID("UTPersonalityID")
+	#dim PersonalityID As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefPersonalityID()
+	Do $$$AssertEquals(PersonalityID,"UTPersonalityID")
+]]></Implementation>
+</Method>
+
+<Method name="TestOpgezetViaPipePipe">
+<Implementation><![CDATA[
+	Set ^||RuntimeContext("PersonalityID") = "UTPersonalityPipePipe"
+	
+	#dim PersonalityID As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefPersonalityID()
+	Do $$$AssertEquals(PersonalityID,"UTPersonalityPipePipe")
+]]></Implementation>
+</Method>
+
+<Method name="TestNietOpgezet">
+<Implementation><![CDATA[
+	#dim VerwachteSubstrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Personality is niet opgezet.")
+	Set VerwachteExceptie = ##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.GeneralErrorException).%ClassName(1),VerwachteSubstrings)
+	Do ..ZetVerwachteExceptie(VerwachteExceptie)
+	#dim PersonalityID As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefPersonalityID()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>TestCase:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(TestCase)
+	Do ##class(TECH.Context.RuntimeContext).Instance().Reset()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Algo/Boom/TestBinaireZoekBoomMetDuplicaten.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/Boom/TestBinaireZoekBoomMetDuplicaten.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/Boom/TestBinaireZoekBoomMetDuplicaten.cls.xml	(revision 957)
@@ -0,0 +1,130 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Algo.Boom.TestBinaireZoekBoomMetDuplicaten">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestBoom">
+<Implementation><![CDATA[
+	Set Wortel = ##class(vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoopMetDuplicaten).%New(0)
+	Set Boom = ##class(TECH.Algo.Boom.Boom).%New(Wortel)
+	
+	Do $$$AssertEquals(Boom.GeefWortel(),Wortel,"De wortel wordt correct teruggegeven")
+]]></Implementation>
+</Method>
+
+<Method name="TestBinaireBoomToevoegen">
+<Implementation><![CDATA[
+	Set Wortel = ##class(vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoopMetDuplicaten).%New(0)
+	Set Boom = ##class(TECH.Algo.Boom.Boom).%New(Wortel)
+	
+	Set Knoop1 = ##class(vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoopMetDuplicaten).%New(1)
+	Set Knoop2 = ##class(vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoopMetDuplicaten).%New(2)
+	Set Knoop3 = ##class(vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoopMetDuplicaten).%New(3)
+	Set Knoop4 = ##class(vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoopMetDuplicaten).%New(4)
+	Set Knoop5 = ##class(vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoopMetDuplicaten).%New(5)
+	Set DubbeleKnoop3 = ##class(vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoopMetDuplicaten).%New(3)
+	
+	Do Wortel.VoegToeKind(Knoop1)
+	Do Wortel.VoegToeKind(Knoop5)
+	Do Wortel.VoegToeKind(Knoop3)
+	Do Wortel.VoegToeKind(Knoop2)
+	Do Wortel.VoegToeKind(Knoop4)
+	Do Wortel.VoegToeKind(DubbeleKnoop3)
+	
+	/// Test opbouw van de boom
+	/*
+				Wortel0
+				/	  \
+					Knoop1
+					/	 \
+						Knoop5
+						/	 \
+					 Knoop3
+					/	   \
+				 Knoop2	  Knoop4
+				 /    \
+				 	DubbeleKnoop3
+	*/
+	
+	Do $$$AssertEquals(Wortel,Wortel,"Wortel 0")
+	Do $$$AssertFalse($IsObject(Wortel.LinkseKnoop))
+	Do $$$AssertEquals(Wortel.RechtseKnoop,Knoop1)
+	
+	Do $$$AssertFalse(Knoop1.LinkseKnoop)
+	Do $$$AssertEquals(Knoop1.RechtseKnoop,Knoop5)
+		
+	Do $$$AssertEquals(Knoop5.LinkseKnoop,Knoop3)
+	Do $$$AssertFalse(Knoop5.RechtseKnoop)
+	
+	Do $$$AssertEquals(Knoop3.LinkseKnoop,Knoop2)
+	Do $$$AssertEquals(Knoop3.RechtseKnoop,Knoop4)
+	
+	Do $$$AssertFalse(Knoop2.LinkseKnoop)
+	Do $$$AssertEquals(Knoop2.RechtseKnoop,DubbeleKnoop3)
+	
+	
+	#dim Kinderen As %ListOfObjects = Wortel.GeefKinderenInclusiefZichzelf()
+	
+	Do $$$AssertEquals(Kinderen.GetAt(1),Wortel,"Wortel 0")
+	Do $$$AssertEquals(Kinderen.GetAt(2),Knoop1,"Knoop 1")
+	Do $$$AssertEquals(Kinderen.GetAt(3),Knoop2,"Knoop 2")
+	Do $$$AssertEquals(Kinderen.GetAt(4),DubbeleKnoop3,"DubbeleKnoop 3")
+	Do $$$AssertEquals(Kinderen.GetAt(5),Knoop3,"Knoop 3")	
+	Do $$$AssertEquals(Kinderen.GetAt(6),Knoop4,"Knoop 4")
+	Do $$$AssertEquals(Kinderen.GetAt(7),Knoop5,"Knoop 5")
+	Do $$$AssertFalse($IsObject(Kinderen.GetAt(8)),"Geen knopen meer.")
+	
+	#dim KindIt As TECH.Iterator = Wortel.GeefKindIterator()
+	
+	Do $$$AssertTrue(KindIt.HasNext())
+	Do $$$AssertEquals(KindIt.Next().Waarde,0)
+	Do $$$AssertEquals(KindIt.Next().Waarde,1)
+	Do $$$AssertEquals(KindIt.Next().Waarde,2)
+	Do $$$AssertEquals(KindIt.Next().Waarde,3)
+	Do $$$AssertEquals(KindIt.Next().Waarde,3)
+	Do $$$AssertEquals(KindIt.Next().Waarde,4)
+	Do $$$AssertEquals(KindIt.Next().Waarde,5)
+	Do $$$AssertFalse(KindIt.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="TestBinaireBoomMeerData">
+<Implementation><![CDATA[
+	Set Wortel = ##class(vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoop).%New(0)
+	Set Boom = ##class(TECH.Algo.Boom.Boom).%New(Wortel)
+	
+	Set Knoop10 = ##class(vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoop).%New(10)
+	Set Knoop5 = ##class(vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoop).%New(5)
+	Set Knoop20 = ##class(vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoop).%New(20)
+	Set Knoop999 = ##class(vhUnitTest.TECH.Algo.Boom.impl.BinaireKnoop).%New(999)
+	
+	Do Wortel.VoegToeKind(Knoop10)
+	Do Wortel.VoegToeKind(Knoop5)
+	Do Wortel.VoegToeKind(Knoop20)
+	
+	Do Wortel.VoegToeKind(Knoop5)
+	Do Wortel.VoegToeKind(Knoop10)
+	Do Wortel.VoegToeKind(Knoop10)
+	Do Wortel.VoegToeKind(Knoop999)
+	
+	Do Wortel.VoegToeKind(Knoop999)
+	Do Wortel.VoegToeKind(Knoop999)
+	Do Wortel.VoegToeKind(Knoop10)
+	Do Wortel.VoegToeKind(Knoop999)
+	Do Wortel.VoegToeKind(Knoop999)
+	
+	#dim KindIt As TECH.Iterator = Wortel.GeefKindIterator()
+	#dim VorigeWaarde As %Integer = -1
+	While KindIt.HasNext(){
+		#dim HuidigeWaarde As %Integer = KindIt.Next().Waarde
+		Do $$$AssertTrue(VorigeWaarde <= HuidigeWaarde,VorigeWaarde_" <= "_HuidigeWaarde)
+		Set VorigeWaarde = HuidigeWaarde
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Bereik/TestInteger.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Bereik/TestInteger.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Bereik/TestInteger.cls.xml	(revision 957)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Bereik.TestInteger">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestInclGrenzen">
+<Implementation><![CDATA[
+		Set IntegerComparator = ##class(TECH.Comparator.IntegerComparator).%New()
+		Set Bereik = ##class(TECH.Bereik).%New(1,9,IntegerComparator)	
+		
+		Do $$$AssertEquals(Bereik.GeefOndergrens(),1)
+		Do $$$AssertEquals(Bereik.GeefBovengrens(),9)
+		
+		Do $$$AssertFalse(Bereik.BevatInclGrenzen(-99))
+		Do $$$AssertFalse(Bereik.BevatInclGrenzen(0))
+		
+		Do $$$AssertTrue(Bereik.BevatInclGrenzen(1))
+		Do $$$AssertTrue(Bereik.BevatInclGrenzen(2))
+		Do $$$AssertTrue(Bereik.BevatInclGrenzen(9))
+		
+		Do $$$AssertFalse(Bereik.BevatInclGrenzen(10))		
+		Do $$$AssertFalse(Bereik.BevatInclGrenzen(10000))
+]]></Implementation>
+</Method>
+
+<Method name="TestExclGrenzen">
+<Implementation><![CDATA[
+		Set IntegerComparator = ##class(TECH.Comparator.IntegerComparator).%New()
+		Set Bereik = ##class(TECH.Bereik).%New(1,9,IntegerComparator)	
+		
+		Do $$$AssertEquals(Bereik.GeefOndergrens(),1)
+		Do $$$AssertEquals(Bereik.GeefBovengrens(),9)
+		
+		Do $$$AssertFalse(Bereik.BevatExclGrenzen(-99))
+		Do $$$AssertFalse(Bereik.BevatExclGrenzen(0))		
+		Do $$$AssertFalse(Bereik.BevatExclGrenzen(1))
+		
+		Do $$$AssertTrue(Bereik.BevatExclGrenzen(2))
+		Do $$$AssertTrue(Bereik.BevatExclGrenzen(8))
+		
+		Do $$$AssertFalse(Bereik.BevatExclGrenzen(9))		
+		Do $$$AssertFalse(Bereik.BevatExclGrenzen(10))		
+		Do $$$AssertFalse(Bereik.BevatExclGrenzen(10000))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Algo/SQL/SelectBuilder/Genereer/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/SQL/SelectBuilder/Genereer/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/SQL/SelectBuilder/Genereer/Test.cls.xml	(revision 957)
@@ -0,0 +1,100 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Algo.SQL.SelectBuilder.Genereer.Test">
+<Super>vhUnitTest.TECH.Algo.SQL.SelectBuilder.Base</Super>
+
+<Method name="TestAlleenTabel">
+<Implementation><![CDATA[
+	#dim InputParameters As vhUnitTest.TECH.Algo.SQL.SelectBuilder.Genereer.InputParameters = ..GeefStandaardParameters()
+	
+	#dim QueryInfo As TECH.Algo.SQL.SelectBuilder.Info = ..QueryBuilderImpl.Genereer(InputParameters)
+	do $$$AssertEquals(QueryInfo.Query,"SELECT TABEL.ID FROM TABEL")
+	do $$$AssertEqualsListbuild(QueryInfo.Parameters,"")
+]]></Implementation>
+</Method>
+
+<Method name="TestEenPropertyEenWaardeGelijk">
+<Implementation><![CDATA[
+	#dim InputParameters As vhUnitTest.TECH.Algo.SQL.SelectBuilder.Genereer.InputParameters = ..GeefStandaardParameters()
+	do InputParameters.Property1.VoegToeCriteria("=","A")
+	
+	#dim QueryInfo As TECH.Algo.SQL.SelectBuilder.Info = ..QueryBuilderImpl.Genereer(InputParameters)
+	do $$$AssertEquals(QueryInfo.Query,"SELECT TABEL.ID, TABEL.Property1 FROM TABEL WHERE Property1 = ?")
+	do $$$AssertEqualsListbuild(QueryInfo.Parameters,$listbuild("A"))
+]]></Implementation>
+</Method>
+
+<Method name="TestEenPropertyEenWaardeGroterDan">
+<Implementation><![CDATA[
+	#dim InputParameters As vhUnitTest.TECH.Algo.SQL.SelectBuilder.Genereer.InputParameters = ..GeefStandaardParameters()
+	do InputParameters.Property1.VoegToeCriteria(">","1")
+	
+	#dim QueryInfo As TECH.Algo.SQL.SelectBuilder.Info = ..QueryBuilderImpl.Genereer(InputParameters)
+	do $$$AssertEquals(QueryInfo.Query,"SELECT TABEL.ID, TABEL.Property1 FROM TABEL WHERE Property1 > ?")
+	do $$$AssertEqualsListbuild(QueryInfo.Parameters,$listbuild("1"))
+]]></Implementation>
+</Method>
+
+<Method name="TestEenPropertyEenWaardeIsNotNULL">
+<Implementation><![CDATA[
+	#dim InputParameters As vhUnitTest.TECH.Algo.SQL.SelectBuilder.Genereer.InputParameters = ..GeefStandaardParameters()
+	do InputParameters.Property1.VoegToeCriteria("<>")
+	
+	#dim QueryInfo As TECH.Algo.SQL.SelectBuilder.Info = ..QueryBuilderImpl.Genereer(InputParameters)
+	do $$$AssertEquals(QueryInfo.Query,"SELECT TABEL.ID, TABEL.Property1 FROM TABEL WHERE Property1 IS NOT NULL")
+	do $$$AssertEqualsListbuild(QueryInfo.Parameters,"")
+]]></Implementation>
+</Method>
+
+<Method name="TestEenPropertyEenWaardeIsNULL">
+<Implementation><![CDATA[
+	#dim InputParameters As vhUnitTest.TECH.Algo.SQL.SelectBuilder.Genereer.InputParameters = ..GeefStandaardParameters()
+	do InputParameters.Property1.VoegToeCriteria("=")
+	
+	#dim QueryInfo As TECH.Algo.SQL.SelectBuilder.Info = ..QueryBuilderImpl.Genereer(InputParameters)
+	do $$$AssertEquals(QueryInfo.Query,"SELECT TABEL.ID, TABEL.Property1 FROM TABEL WHERE Property1 IS NULL")
+	do $$$AssertEqualsListbuild(QueryInfo.Parameters,"")
+]]></Implementation>
+</Method>
+
+<Method name="TestEenPropertyTweeWaarden">
+<Implementation><![CDATA[
+	#dim InputParameters As vhUnitTest.TECH.Algo.SQL.SelectBuilder.Genereer.InputParameters = ..GeefStandaardParameters()
+	do InputParameters.Property1.VoegToeCriteria("=","A")
+	do InputParameters.Property1.VoegToeCriteria("=","B")
+	
+	#dim QueryInfo As TECH.Algo.SQL.SelectBuilder.Info = ..QueryBuilderImpl.Genereer(InputParameters)
+	do $$$AssertEquals(QueryInfo.Query,"SELECT TABEL.ID, TABEL.Property1 FROM TABEL WHERE (Property1 = ? OR Property1 = ?)")
+	do $$$AssertEqualsListbuild(QueryInfo.Parameters,$listbuild("A","B"))
+]]></Implementation>
+</Method>
+
+<Method name="TestTweePropertiesEenWaarde">
+<Implementation><![CDATA[
+	#dim InputParameters As vhUnitTest.TECH.Algo.SQL.SelectBuilder.Genereer.InputParameters = ..GeefStandaardParameters()
+	do InputParameters.Property1.VoegToeCriteria("=","P1.A")
+	do InputParameters.Property2.VoegToeCriteria("=","P2.A")
+	
+	#dim QueryInfo As TECH.Algo.SQL.SelectBuilder.Info = ..QueryBuilderImpl.Genereer(InputParameters)
+	do $$$AssertEquals(QueryInfo.Query,"SELECT TABEL.ID, TABEL.Property1, TABEL.Property2 FROM TABEL WHERE (Property1 = ? AND Property2 = ?)")
+	do $$$AssertEqualsListbuild(QueryInfo.Parameters,$listbuild("P1.A","P2.A"))
+]]></Implementation>
+</Method>
+
+<Method name="TestTweePropertiesTweeWaarde">
+<Implementation><![CDATA[
+	#dim InputParameters As vhUnitTest.TECH.Algo.SQL.SelectBuilder.Genereer.InputParameters = ..GeefStandaardParameters()
+	do InputParameters.Property1.VoegToeCriteria("=","P1.A")
+	do InputParameters.Property1.VoegToeCriteria("=","P1.B")
+	do InputParameters.Property2.VoegToeCriteria("=","P2.A")
+	do InputParameters.Property2.VoegToeCriteria("=","P2.B")
+	
+	#dim QueryInfo As TECH.Algo.SQL.SelectBuilder.Info = ..QueryBuilderImpl.Genereer(InputParameters)
+	do $$$AssertEquals(QueryInfo.Query,"SELECT TABEL.ID, TABEL.Property1, TABEL.Property2 FROM TABEL WHERE ((Property1 = ? OR Property1 = ?) AND (Property2 = ? OR Property2 = ?))")
+	do $$$AssertEqualsListbuild(QueryInfo.Parameters,$listbuild("P1.A","P1.B","P2.A","P2.B"))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Algo/Encryption/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/Encryption/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/Encryption/Test.cls.xml	(revision 957)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Algo.Encryption.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+		#dim TeEncrypteren As %String = "0560005353676216698639,6762166986460560005353ekceoh"
+		#dim md5 As %String = ##class(TECH.Algo.Encryption).MD5Hash32bit(TeEncrypteren)
+		Do $$$AssertEquals(md5,"0685422D4EDCD9F766B2067FCD0B45E5")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/LedDisplay.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/LedDisplay.cls.xml	(revision 0)
+++ vhUnitTest/TECH/LedDisplay.cls.xml	(revision 957)
@@ -0,0 +1,227 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.LedDisplay">
+<Description>
+vhUnitTest.TestCase [ ClassType = "", ProcedureBlock ]</Description>
+<Super>%RegisteredObject</Super>
+
+<Method name="OpenDevice">
+<Implementation><![CDATA[
+	Set Dev="|TCP|4"
+ 	Set IPaddr="192.168.7.251"
+ 	;OPEN Dev:(IPaddr:3001::$CHAR(3,4)):5
+	;Set Device=##class(TECH.LedDisplay.StdIODevice).OpenDisplay(Dev)
+	Set Device=##class(TECH.LedDisplay.TCPDevice).OpenDisplay(IPaddr)
+	Quit Device
+]]></Implementation>
+</Method>
+
+<Method name="TestKlok">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/display=all","TECH.LedDisplay")
+do ##class(vhUnitTest.TECH.LedDisplay).%New().TestKlok()</Description>
+<Implementation><![CDATA[
+	
+	Set Device=##class(TECH.LedDisplay.StubDevice).OpenDisplay(0)
+	;Set Device=##class(TECH.LedDisplay.TCPDevice).OpenDisplay(IPaddr)
+	
+	Set Device=..OpenDevice()
+	
+	Set Writer=##class(TECH.LedDisplay.Writer).%New(Device)
+	Do Writer.ZetKlok()
+	Do Writer.ZetDisplayMode(##class(TECH.LedDisplay.enu.DisplayMode).Zonder())
+	Do Writer.ZetKleur(##class(TECH.LedDisplay.enu.Kleur).DimGroen())
+	Do Writer.ZetDubbelBreedte(1)
+	Do Writer.ToonKlok()
+	Set DeviceOld=##class(TECH.LedDisplay.StubDevice).OpenDisplay(0)
+	Do ..ToonKlokOld(DeviceOld)
+	;w !, Device.GeefByteResult()
+	;w !, Device.GeefHexByteResult()
+	w !, DeviceOld.GeefHexByteResult()
+	
+	Do Device.Close()
+]]></Implementation>
+</Method>
+
+<Method name="TestFreeText">
+<Description>
+do ##class(vhUnitTest.TECH.LedDisplay).%New().TestFreeText()</Description>
+<Implementation><![CDATA[
+	Set Test="*TEST 1234*"
+	Set Device=##class(TECH.LedDisplay.StubDevice).OpenDisplay(0)
+	Set Device=..OpenDevice()
+
+	Set Writer=##class(TECH.LedDisplay.Writer).%New(Device)
+	Do Writer.ZetDisplayMode(##class(TECH.LedDisplay.enu.DisplayMode).Roteer())
+	;Do Writer.ZetKleur(##class(TECH.LedDisplay.enu.Kleur).DimGroen())
+	;Do Writer.ZetDubbelBreedte(1)
+	
+	Do Writer.Write(Test)
+	Do Writer.Toon()
+	
+	Set DeviceOld=##class(TECH.LedDisplay.StubDevice).OpenDisplay(0)
+	Do ..ToonTextOld(DeviceOld,Test)
+	;w !, Device.GeefByteResult()
+	;w !, Device.GeefHexByteResult()
+	w !, DeviceOld.GeefHexByteResult()
+	Do Device.Close()
+]]></Implementation>
+</Method>
+
+<Method name="TestMagText">
+<Description>
+do ##class(vhUnitTest.TECH.LedDisplay).%New().TestMagText()</Description>
+<Implementation><![CDATA[
+	Set Cnt("O")="\123\0\1"
+ 	Set Cnt("A")="\45\1\"
+ 	Set Cnt("T")="\6\2\"
+
+	Set Device=##class(TECH.LedDisplay.StubDevice).OpenDisplay(0)
+	;Set Device=..OpenDevice()
+	Set Writer=##class(TECH.LedDisplay.WriterHTML).%New(Device)
+	Do Writer.ZetDisplayMode(##class(TECH.LedDisplay.enu.DisplayMode).Roteer())
+	;Do Writer.ZetKleur(##class(TECH.LedDisplay.enu.Kleur).DimGroen())
+	;Do Writer.ZetDubbelBreedte(1)
+	
+	Do ..ToonMag(Writer, .Cnt)
+	Write Device.GeefResult()
+	q
+	Set DeviceOld=##class(TECH.LedDisplay.StubDevice).OpenDisplay(0)
+	Do ..ToonMagOld(DeviceOld,.Cnt)
+	;w !, Device.GeefByteResult()
+	;w !, Device.GeefHexByteResult()
+	w !, DeviceOld.GeefHexByteResult()
+	Do Device.Close()
+]]></Implementation>
+</Method>
+
+<Method name="TestWriter">
+<Implementation><![CDATA[
+	/*set ResultSet = SQL.VoerUit()
+	do $$$AssertTrue(ResultSet.Next(),"SQL is uitgevoerd")
+	
+	set SQL = ##class(TECH.DynamicSQL).%New("SELECT ID FROM Prod.Product WHERE ID = ? ",$listbuild(1000))
+	set ResultSet = SQL.VoerUit()
+	do $$$AssertTrue(ResultSet.Next(),"SQL is uitgevoerd")
+	do $$$AssertEquals(ResultSet.GetData(1),"1000","De juiste id werd teruggegeven")
+	do $$$AssertFalse(ResultSet.Next(),"Resultset heeft einde bereikt")
+	
+	set SQL = ##class(TECH.DynamicSQL).%New("SELECT ID FROM Prod.Product WHERE ID = ? OR ID = ?",$listbuild(1000,1001))
+	set ResultSet = SQL.VoerUit()
+	do $$$AssertTrue(ResultSet.Next(),"SQL is uitgevoerd")
+	do $$$AssertEquals(ResultSet.GetData(1),"1000","De juiste id werd teruggegeven")
+	do $$$AssertTrue(ResultSet.Next(),"ResultSet heeft nog een item gevonden")
+	do $$$AssertEquals(ResultSet.GetData(1),"1001","De juiste id werd teruggegeven")
+	do $$$AssertFalse(ResultSet.Next(),"Resultset heeft einde bereikt")
+	*/
+]]></Implementation>
+</Method>
+
+<Method name="ToonTextOld">
+<FormalSpec>Device,String</FormalSpec>
+<Implementation><![CDATA[
+	
+ Set D="\"
+ Set Kleur(0)=$$HEX^vhRtn1("1C,38") ;Geel - geen afhaling
+ Set Kleur(1)=$$HEX^vhRtn1("1C,37") ;Oranje - dringend
+ Set Kleur(2)=$$HEX^vhRtn1("1C,31") ;Rood - afhaling
+ Set Kleur(3)=$$HEX^vhRtn1("1C,31") ;Rood - superspoed
+ Set Kleur(9)=$$HEX^vhRtn1("1C,35") ;Dim green
+ 
+ 
+
+ Do Device.Write($$HEX^vhRtn1("0,0,0,0,0,01,5A,30,30,02")) ; Broadcast naar alle displays
+ Do Device.Write($$HEX^vhRtn1("41,41")) ; Write tot file "A"
+ Do Device.Write($$HEX^vhRtn1("1B,20"))
+ 
+ Do Device.Write($$HEX^vhRtn1(61)_String) ;Rotate wordt niet getoond op het display
+
+
+ Do Device.Write( $$HEX^vhRtn1("04"))
+ 
+ Quit
+]]></Implementation>
+</Method>
+
+<Method name="ToonMag">
+<FormalSpec><![CDATA[Writer,&Cnt]]></FormalSpec>
+<Implementation><![CDATA[
+	Set D="\"
+ 	Do Writer.ZetDisplayMode(##class(TECH.LedDisplay.enu.DisplayMode).Zonder())
+	Set Mag=""
+ 	For  Set Mag=$O(Cnt(Mag)) Quit:Mag=""  Do
+ 	.  Do Writer.ZetKnipper(0)
+	.  Do Writer.ZetKleur(##class(TECH.LedDisplay.enu.Kleur).DimGroen())
+ 	.  Do Writer.WriteTekst(Mag) 
+ 	.  Do Writer.ZetKnipper($S($P($G(Cnt(Mag)),D,4)!$P($G(Cnt),D,4):1,1:0)) ; Knipperen
+ 	.  If +$P($G(Cnt(Mag)),D,3)=2 Do
+	. .  Do Writer.ZetKleur(##class(TECH.LedDisplay.enu.Kleur).Rood())
+ 	.  Else  If +$P($G(Cnt(Mag)),D,3)=1 Do
+	. .  Do Writer.ZetKleur(##class(TECH.LedDisplay.enu.Kleur).Oranje())
+ 	.  Else  Do
+	. .  Do Writer.ZetKleur(##class(TECH.LedDisplay.enu.Kleur).Geel())
+ 	.  Do Writer.WriteTekst( +$P($G(Cnt(Mag)),D,2))
+ 	.  Do Writer.WriteTekst($S($O(Cnt(Mag))="":"",1:"  "))
+ 	Do Writer.Toon()
+]]></Implementation>
+</Method>
+
+<Method name="ToonMagOld">
+<FormalSpec><![CDATA[Device,&Cnt]]></FormalSpec>
+<Implementation><![CDATA[
+ Set D="\"
+ Set Kleur(0)=$$HEX^vhRtn1("1C,38") ;Geel - geen afhaling
+ Set Kleur(1)=$$HEX^vhRtn1("1C,37") ;Oranje - dringend
+ Set Kleur(2)=$$HEX^vhRtn1("1C,31") ;Rood - afhaling
+ Set Kleur(3)=$$HEX^vhRtn1("1C,31") ;Rood - superspoed
+ Set Kleur(9)=$$HEX^vhRtn1("1C,35") ;Dim green
+
+ Do Device.Write($$HEX^vhRtn1("0,0,0,0,0,01,5A,30,30,02")) ; Broadcast naar alle displays
+ Do Device.Write($$HEX^vhRtn1("41,41")) ; Write tot file "A"
+ Do Device.Write($$HEX^vhRtn1("1B,20"))
+ 
+ Do	
+ . Do Device.Write($$HEX^vhRtn1(15)) ; slow speed als er meer tekst is dan op het scherm kan
+ . Set Mag=""
+ . For  Set Mag=$O(Cnt(Mag)) Quit:Mag=""  Do
+ .. Do Device.Write($$HEX^vhRtn1(7)_"0") ; Knipperen af
+ .. Do Device.Write( Kleur(9)_Mag) 
+ .. Do Device.Write($$HEX^vhRtn1(7)_$S($P($G(Cnt(Mag)),D,4)!$P($G(Cnt),D,4):"1",1:"0")) ; Knipperen
+ .. Do Device.Write(Kleur(+$P($G(Cnt(Mag)),D,3)))
+ .. Do Device.Write( +$P($G(Cnt(Mag)),D,2))
+ .. Do Device.Write($S($O(Cnt(Mag))="":"",1:"  "))
+
+ Do Device.Write( $$HEX^vhRtn1("04"))
+ 
+ Quit
+]]></Implementation>
+</Method>
+
+<Method name="ToonKlokOld">
+<FormalSpec>Device</FormalSpec>
+<Implementation><![CDATA[
+ Set D="\"
+ Set Kleur(0)=$$HEX^vhRtn1("1C,38") ;Geel - geen afhaling
+ Set Kleur(1)=$$HEX^vhRtn1("1C,37") ;Oranje - dringend
+ Set Kleur(2)=$$HEX^vhRtn1("1C,31") ;Rood - afhaling
+ Set Kleur(3)=$$HEX^vhRtn1("1C,31") ;Rood - superspoed
+ Set Kleur(9)=$$HEX^vhRtn1("1C,35") ;Dim green
+ 
+ 
+ Do Device.Write($$HEX^vhRtn1("0,0,0,0,0,01,5A,30,30,02,45,20")_$TR($$EXTTIME^vhLib.DataTypes($H),":","")_$$HEX^vhRtn1("04"))
+ Do Device.Write($$HEX^vhRtn1("0,0,0,0,0,01,5A,30,30,02,45,27,4D,04")) ;24-uur
+ Set Date=$$EXTDATE^vhLib.DataTypes($H,"DKP")
+ Do Device.Write($$HEX^vhRtn1("0,0,0,0,0,01,5A,30,30,02,45,3B")_$P(Date,".",2)_$P(Date,".")_$P(Date,".",3)_$$HEX^vhRtn1("04")) ;Datum
+ Do Device.Write($$HEX^vhRtn1("0,0,0,0,0,01,5A,30,30,02")) ; Broadcast naar alle displays
+ Do Device.Write($$HEX^vhRtn1("41,41")) ; Write tot file "A"
+ Do Device.Write($$HEX^vhRtn1("1B,20"))
+ Do Device.Write($S($P($G(Cnt),D,4):$$HEX^vhRtn1("63"),1:$$HEX^vhRtn1("62")))
+ Do Device.Write($$HEX^vhRtn1("1D,30,31")) ; dubbelstroke
+ Do Device.Write( Kleur(9)_$$HEX^vhRtn1("0B,31,20,13"))
+ Do Device.Write($$HEX^vhRtn1("04"))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/MethodDefinition/DummyClass1.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/MethodDefinition/DummyClass1.cls.xml	(revision 0)
+++ vhUnitTest/TECH/MethodDefinition/DummyClass1.cls.xml	(revision 957)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.MethodDefinition.DummyClass1">
+<Super>vhUnitTest.TestCase</Super>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^vhUnitTest.TEC8CD9.DummyClass1D</DataLocation>
+<DefaultData>DummyClass1DefaultData</DefaultData>
+<IdLocation>^vhUnitTest.TEC8CD9.DummyClass1D</IdLocation>
+<IndexLocation>^vhUnitTest.TEC8CD9.DummyClass1I</IndexLocation>
+<StreamLocation>^vhUnitTest.TEC8CD9.DummyClass1S</StreamLocation>
+<Data name="DummyClass1DefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/EnumerationUtils/GeefMethodeNaamVoorWaarde/Enumeratie.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/EnumerationUtils/GeefMethodeNaamVoorWaarde/Enumeratie.cls.xml	(revision 0)
+++ vhUnitTest/TECH/EnumerationUtils/GeefMethodeNaamVoorWaarde/Enumeratie.cls.xml	(revision 957)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.EnumerationUtils.GeefMethodeNaamVoorWaarde.Enumeratie">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Parameter name="VALUELIST">
+<Default>;1;2</Default>
+</Parameter>
+
+<Method name="Een">
+<ClassMethod>1</ClassMethod>
+<ReturnType>vhUnitTest.TECH.EnumerationUtils.GeefMethodeNaamVoorWaarde.Enumeratie</ReturnType>
+<Implementation><![CDATA[	quit "1"
+]]></Implementation>
+</Method>
+
+<Method name="Twee">
+<ClassMethod>1</ClassMethod>
+<ReturnType>vhUnitTest.TECH.EnumerationUtils.GeefMethodeNaamVoorWaarde.Enumeratie</ReturnType>
+<Implementation><![CDATA[	quit "2"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ListUtils/TestRemoveItemFromList.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ListUtils/TestRemoveItemFromList.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ListUtils/TestRemoveItemFromList.cls.xml	(revision 957)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ListUtils.TestRemoveItemFromList">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestVerwijderWaarde1xInList">
+<Implementation><![CDATA[
+	set ListUtils = ##class(TECH.ListUtils).%New()
+	
+	#dim List As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("A","B","C")
+	do ListUtils.RemoveItemFromList("A",List)
+	do $$$AssertEqualsList(List,##class(TECH.ListUtils).CreateListOfDataTypes("B","C"))
+]]></Implementation>
+</Method>
+
+<Method name="TestVerwijderWaarde2xInList">
+<Implementation><![CDATA[
+	#define AlleWaarden	1
+	set ListUtils = ##class(TECH.ListUtils).%New()
+	
+	#dim List As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("A","B","C","A")
+	do ListUtils.RemoveItemFromList("A",List,$$$AlleWaarden)
+	do $$$AssertEqualsList(List,##class(TECH.ListUtils).CreateListOfDataTypes("B","C"))
+]]></Implementation>
+</Method>
+
+<Method name="TestVerwijderWaarde2xInListAleenEersteWaarde">
+<Implementation><![CDATA[
+	#define AlleenEersteWaarde 0
+	set ListUtils = ##class(TECH.ListUtils).%New()
+	
+	#dim List As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("A","B","C","A")
+	do ListUtils.RemoveItemFromList("A",List,$$$AlleenEersteWaarde)
+	do $$$AssertEqualsList(List,##class(TECH.ListUtils).CreateListOfDataTypes("A","B","C"))
+]]></Implementation>
+</Method>
+
+<Method name="TestVerwijderWaardeNietInList">
+<Implementation><![CDATA[
+	set ListUtils = ##class(TECH.ListUtils).%New()
+	
+	#dim List As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("A","B","C")
+	do ListUtils.RemoveItemFromList("D",List)
+	do $$$AssertEqualsList(List,##class(TECH.ListUtils).CreateListOfDataTypes("A","B","C"))
+]]></Implementation>
+</Method>
+
+<Method name="TestVerwijderLegeWaarde">
+<Implementation><![CDATA[
+	set ListUtils = ##class(TECH.ListUtils).%New()
+	
+	#dim List As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("A","B","C")
+	do ListUtils.RemoveItemFromList("",List)
+	do $$$AssertEqualsList(List,##class(TECH.ListUtils).CreateListOfDataTypes("A","B","C"))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Algo/Stapeling/TestStapeling.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Algo/Stapeling/TestStapeling.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Algo/Stapeling/TestStapeling.cls.xml	(revision 957)
@@ -0,0 +1,116 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Algo.Stapeling.TestStapeling">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/Display=all","TECH.Algo.Stapeling.TestStapeling")</Description>
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestStapelingEenvoudig">
+<Implementation><![CDATA[
+	Set o1 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o2 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o3 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o4 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o5 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o6 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o7 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o8 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o9 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o10 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	
+	Set ObjectenLijst = ##class(%ListOfObjects).%New()
+	Do ObjectenLijst.Insert(o1)
+	Do ObjectenLijst.Insert(o2)
+	Do ObjectenLijst.Insert(o3)
+	Do ObjectenLijst.Insert(o4)
+	Do ObjectenLijst.Insert(o5)
+	Do ObjectenLijst.Insert(o6)
+	Do ObjectenLijst.Insert(o7)
+	Do ObjectenLijst.Insert(o8)
+	Do ObjectenLijst.Insert(o9)
+	Do ObjectenLijst.Insert(o10)
+	
+	Set NiveauSchikkingEnkel = ##class(vhUnitTest.TECH.Algo.Stapeling.NiveauSchikkingEnkel).%New()
+	
+	Set Stapeling = ##class(TECH.Algo.Stapeling.Stapeling).%New()
+	Do Stapeling.VoegToeNiveauSchikking(NiveauSchikkingEnkel)
+	
+	Set StapelHoogte = Stapeling.GeefStapelHoogte(ObjectenLijst)
+	
+	// Elk niveau bevat 1 object
+	// 10 objecten van 10 hoog => stapelhoogte is 100
+	
+	Do $$$AssertEquals(StapelHoogte,10*10,"De stapelhoogte is 100")
+	
+	
+	
+	Set NiveauSchikkingDubbel = ##class(vhUnitTest.TECH.Algo.Stapeling.NiveauSchikkingDubbel).%New()
+	
+	Do Stapeling.VoegToeNiveauSchikking(NiveauSchikkingDubbel)
+	
+	Set StapelHoogte = Stapeling.GeefStapelHoogte(ObjectenLijst)
+	
+	// Elk niveau bevat 2 objecten, de stapeling moet gebruik maken van de niveauschikkingdubbel.
+	// 10 objecten van 10 hoog => stapelhoogte is 50
+	
+	Do $$$AssertEquals(StapelHoogte,(10*10)/2,"De stapelhoogte is 50")
+	
+	
+	
+	Set NiveauSchikkingGeen = ##class(vhUnitTest.TECH.Algo.Stapeling.NiveauSchikkingGeen).%New()
+	
+	Do Stapeling.VoegToeNiveauSchikking(NiveauSchikkingGeen)
+	
+	Set StapelHoogte = Stapeling.GeefStapelHoogte(ObjectenLijst)
+	
+	// De NiveauSchikkingGeen zal als eerste getest worden omdat zijn max aantal mogelijk = 100
+	// Maar er zullen er nooit gebruikt worden dus de stapelhoogte wordt bepaald door NiveauSchikkingDubbel en blijft dus identiek
+	
+	Do $$$AssertEquals(StapelHoogte,(10*10)/2,"De stapelhoogte is 50")
+]]></Implementation>
+</Method>
+
+<Method name="TestStapelingWisselend">
+<Implementation><![CDATA[
+	Set o1 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o2 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o3 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o4 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o5 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o6 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o7 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o8 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o9 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	Set o10 = ##class(vhUnitTest.TECH.Algo.Stapeling.UT3DObject).%New(10,10,10)
+	
+	Set ObjectenLijst = ##class(%ListOfObjects).%New()
+	Do ObjectenLijst.Insert(o1)
+	Do ObjectenLijst.Insert(o2)
+	Do ObjectenLijst.Insert(o3)
+	Do ObjectenLijst.Insert(o4)
+	Do ObjectenLijst.Insert(o5)
+	Do ObjectenLijst.Insert(o6)
+	Do ObjectenLijst.Insert(o7)
+	Do ObjectenLijst.Insert(o8)
+	Do ObjectenLijst.Insert(o9)
+	Do ObjectenLijst.Insert(o10)
+	
+	Set NiveauSchikkingWisselend = ##class(vhUnitTest.TECH.Algo.Stapeling.NiveauSchikkingWisselend).%New()
+	
+	Set Stapeling = ##class(TECH.Algo.Stapeling.Stapeling).%New()
+	Do Stapeling.VoegToeNiveauSchikking(NiveauSchikkingWisselend)
+	
+	Set StapelHoogte = Stapeling.GeefStapelHoogte(ObjectenLijst)
+	
+	// De stapeling: 1 - 3 - 1 - 3 - 1 - 1
+	// Hoogte = 6 lagen van 10
+	
+	Do $$$AssertEquals(StapelHoogte,6*10,"De stapelhoogte is 60")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ClassDefinition/DummyClass1.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ClassDefinition/DummyClass1.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ClassDefinition/DummyClass1.cls.xml	(revision 957)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ClassDefinition.DummyClass1">
+<Super>%RegisteredObject</Super>
+
+<Method name="DummyMethod1">
+<FormalSpec>Manager:vhUnitTest.Manager</FormalSpec>
+<ReturnType>vhUnitTest.TECH.ClassDefinition.DummyClass2</ReturnType>
+<Implementation><![CDATA[	do ^vhUnitTest.TECH.MethodDefinition.DummyRoutine1
+]]></Implementation>
+</Method>
+
+<Method name="DummyMethod2">
+<FormalSpec>TestCase:vhUnitTest.TestCase</FormalSpec>
+<Implementation><![CDATA[	do ^vhUnitTest.TECH.MethodDefinition.DummyRoutine2
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/DynamicSQL.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/DynamicSQL.cls.xml	(revision 0)
+++ vhUnitTest/TECH/DynamicSQL.cls.xml	(revision 957)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.DynamicSQL">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestAllesOK">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/display=all","TECH.DynamicSQL")</Description>
+<Implementation><![CDATA[
+	
+	#dim ResultSet As %ResultSet = ""
+	set SQL = ##class(TECH.DynamicSQL).%New("SELECT ID FROM Prod.Product")
+	
+	set ResultSet = SQL.VoerUit()
+	do $$$AssertTrue(ResultSet.Next(),"SQL is uitgevoerd")
+	
+	set SQL = ##class(TECH.DynamicSQL).%New("SELECT ID FROM Prod.Product WHERE ID = ? ",$listbuild(1000))
+	set ResultSet = SQL.VoerUit()
+	do $$$AssertTrue(ResultSet.Next(),"SQL is uitgevoerd")
+	do $$$AssertEquals(ResultSet.GetData(1),"1000","De juiste id werd teruggegeven")
+	do $$$AssertFalse(ResultSet.Next(),"Resultset heeft einde bereikt")
+	
+	set SQL = ##class(TECH.DynamicSQL).%New("SELECT ID FROM Prod.Product WHERE ID = ? OR ID = ?",$listbuild(1000,1001))
+	set ResultSet = SQL.VoerUit()
+	do $$$AssertTrue(ResultSet.Next(),"SQL is uitgevoerd")
+	do $$$AssertEquals(ResultSet.GetData(1),"1000","De juiste id werd teruggegeven")
+	do $$$AssertTrue(ResultSet.Next(),"ResultSet heeft nog een item gevonden")
+	do $$$AssertEquals(ResultSet.GetData(1),"1001","De juiste id werd teruggegeven")
+	do $$$AssertFalse(ResultSet.Next(),"Resultset heeft einde bereikt")
+]]></Implementation>
+</Method>
+
+<Method name="TestFoutiefStatement">
+<Implementation><![CDATA[
+	#dim ResultSet As %ResultSet = ""
+	try {
+		set SQL = ##class(TECH.DynamicSQL).%New("SELECT ID FROM Prod.Product WHERE FOUT IN SQL")
+		set ResultSet = SQL.VoerUit()
+		do $$$AssertFalse(1,"uitvoeren van SQL had fout moeten geven")
+	}
+	catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		do $$$AssertEquals(Exception.GeefExceptionCode(),"1000:GeneralError","GeneralError is verwacht")
+		do $$$AssertTrue(1,"uitvoeren van SQL heeft fout gegeven")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	 do ##super()
+	 do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData()
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	 do ##super()
+ 	 do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Comparator/TimeStampComparator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Comparator/TimeStampComparator/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Comparator/TimeStampComparator/Test.cls.xml	(revision 957)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Comparator.TimeStampComparator.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	set Comparator = ##class(TECH.Comparator.TimeStampComparator).%New()
+	
+	
+	do $$$AssertFalse(Comparator.IsKleinerDan("2013-09-03 10:23:46","2013-09-03 10:23:46"),"geen verschil")
+	
+	do $$$AssertTrue(Comparator.IsKleinerDan("2013-09-03 10:23:46","2013-09-03 10:23:47"),"second verschil")
+	do $$$AssertFalse(Comparator.IsKleinerDan("2013-09-03 10:23:46","2013-09-03 10:23:45"),"second verschil")
+	
+	do $$$AssertTrue(Comparator.IsKleinerDan("2013-09-03 10:23:46","2013-09-03 10:24:46"),"minuut verschil")
+	do $$$AssertTrue(Comparator.IsKleinerDan("2013-09-03 10:23:46","2013-09-03 11:23:46"),"uur verschil")
+	
+	do $$$AssertTrue(Comparator.IsKleinerDan("2013-12-31 23:59:59","2014-01-01 00:00:00"),"jaar overgang")
+		
+	do $$$AssertFalse(Comparator.IsKleinerDan("2013-10-01 10:00:00","2013-09-30 10:00:00"),"maand overgang")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Integer/MockClass.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Integer/MockClass.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Integer/MockClass.cls.xml	(revision 957)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Integer.MockClass">
+<Super>%RegisteredObject</Super>
+
+<Property name="IntegerMinVal200MaxVal300">
+<Type>TECH.Integer</Type>
+<Parameter name="MAXVAL" value="300"/>
+<Parameter name="MINVAL" value="200"/>
+</Property>
+
+<Property name="IntegerEvenValueList">
+<Type>TECH.Integer</Type>
+<Parameter name="VALUELIST" value=",0,2,4"/>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/vhLib/DataM.cls.xml
===================================================================
diff -u
--- vhUnitTest/vhLib/DataM.cls.xml	(revision 0)
+++ vhUnitTest/vhLib/DataM.cls.xml	(revision 957)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.vhLib.DataM">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestGeefBIndex">
+<Implementation><![CDATA[
+	do $$$AssertEquals($$GeefBIndex^vhLib.DataM(0,1),101)
+	do $$$AssertEquals($$GeefBIndex^vhLib.DataM(1,25),225)
+	do $$$AssertEquals($$GeefBIndex^vhLib.DataM(4,36),536)
+	do $$$AssertEquals($$GeefBIndex^vhLib.DataM(9,24),1024)
+	do $$$AssertEquals($$GeefBIndex^vhLib.DataM(10,24),1124)
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefPiece">
+<Implementation><![CDATA[
+	do $$$AssertEquals($$GeefPiece^vhLib.DataM(101),1)
+	do $$$AssertEquals($$GeefPiece^vhLib.DataM(225),25)
+	do $$$AssertEquals($$GeefPiece^vhLib.DataM(536),36)
+	do $$$AssertEquals($$GeefPiece^vhLib.DataM(1024),24)
+	do $$$AssertEquals($$GeefPiece^vhLib.DataM(1124),24)
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefNode">
+<Implementation><![CDATA[
+	do $$$AssertEquals($$GeefNode^vhLib.DataM(101),0)
+	do $$$AssertEquals($$GeefNode^vhLib.DataM(225),1)
+	do $$$AssertEquals($$GeefNode^vhLib.DataM(536),4)
+	do $$$AssertEquals($$GeefNode^vhLib.DataM(1024),9)
+	do $$$AssertEquals($$GeefNode^vhLib.DataM(1124),10)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Concurrency/TestTxScopeNietGenestRequired.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Concurrency/TestTxScopeNietGenestRequired.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Concurrency/TestTxScopeNietGenestRequired.cls.xml	(revision 957)
@@ -0,0 +1,149 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Concurrency.TestTxScopeNietGenestRequired">
+<Description>
+Tests op niet-geneste TxScope met optie "Required".
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","TECH.Concurrency.TestTxScopeNietGenestRequired")</Description>
+<Import>TECH.Concurrency</Import>
+<Super>AbstractTxTest</Super>
+
+<Property name="Scope">
+<Type>TECH.Concurrency.TxScope</Type>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method OnAfterOneTest(aTestName As %String) As %Status
+{
+ 	If $IsObject(..Scope) && (..Scope.GeefStatus() '= ##class(TxStatus).Committed()) && (..Scope.GeefStatus() '= ##class(TxStatus).RolledBack()) {
+	 	
+ 	}
+ 	
+ 	
+ 	Quit ##super(aTestName)
+}
+*/
+]]></Content>
+</UDLText>
+
+<Method name="TestDefaultScopeIsRequired">
+<Implementation><![CDATA[
+	Set ..Scope = ##class(TxScope).StartNieuwe()
+
+	Quit:'($$$AssertEquals(##class(TxScopeOptie).Required(), ..Scope.GeefScopeOptie()))
+	
+	Do ..Scope.Rollback()
+]]></Implementation>
+</Method>
+
+<Method name="TestNieuweRequiredScopeNietGenest">
+<Implementation><![CDATA[
+	Set ..Scope = ##class(TxScope).StartNieuwe()
+
+	Quit:'($$$AssertEquals(1, $isobject(..Scope)))
+	Quit:'($$$AssertEquals(##class(TxStatus).Gestart(), ..Scope.GeefStatus()))
+	
+	Do ..Scope.Rollback()
+]]></Implementation>
+</Method>
+
+<Method name="TestCommitRequiredScopeNietGenest">
+<Implementation><![CDATA[
+	Set ..Scope = ##class(TxScope).StartNieuwe()
+	Do ..Scope.Commit()
+
+	Quit:'($$$AssertEquals(##class(TxStatus).Committed(), ..Scope.GeefStatus()))
+]]></Implementation>
+</Method>
+
+<Method name="TestRollbackRequiredScopeNietGenest">
+<Implementation><![CDATA[
+
+	Set ..Scope = ##class(TxScope).StartNieuwe()
+	Do ..Scope.Rollback()
+
+	Quit:'($$$AssertEquals(##class(TxStatus).RolledBack(), ..Scope.GeefStatus()))
+]]></Implementation>
+</Method>
+
+<Method name="TestStart">
+<Implementation><![CDATA[
+	Set ..Scope = ##class(TxScope).%New()
+	Set %TechConcurrencyTxScopeHuidig = ..Scope
+	Do ..Scope.Start()
+	Do ..Scope.Commit()
+]]></Implementation>
+</Method>
+
+<Method name="TestChecksOpGestartStatusTijdensNietGestartStatus">
+<Implementation><![CDATA[
+	Set ..Scope = ##class(TxScope).%New()
+	
+	Do ..ChecksOpGestartStatus()
+]]></Implementation>
+</Method>
+
+<Method name="TestChecksOpGestartStatusTijdensCommittedStatus">
+<Implementation><![CDATA[
+	Set ..Scope = ##class(TxScope).StartNieuwe()
+	Do ..Scope.Commit()
+	
+	Do ..ChecksOpGestartStatus()
+]]></Implementation>
+</Method>
+
+<Method name="TestChecksOpGestartStatusTijdensRolledBackStatus">
+<Implementation><![CDATA[
+	Set ..Scope = ##class(TxScope).StartNieuwe()
+	Do ..Scope.Rollback()
+	
+	Do ..ChecksOpGestartStatus()
+]]></Implementation>
+</Method>
+
+<Method name="ChecksOpGestartStatus">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#define VerwachteExceptionMelding "Dit is niet de huidige TxScope."
+	Do $$$AssertException( "LockShared", "TECH.Exceptions.GeneralErrorException", $$$VerwachteExceptionMelding )
+	Do $$$AssertException( "RegistreerExclusiveLock", "TECH.Exceptions.GeneralErrorException", $$$VerwachteExceptionMelding )
+	Do $$$AssertException( "Commit", "TECH.Exceptions.GeneralErrorException", $$$VerwachteExceptionMelding )
+	Do $$$AssertException( "Rollback", "TECH.Exceptions.GeneralErrorException", $$$VerwachteExceptionMelding )
+	Do $$$AssertException( "Start", "TECH.Exceptions.GeneralErrorException", $$$VerwachteExceptionMelding )
+]]></Implementation>
+</Method>
+
+<Method name="LockShared">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..Scope.LockShared( ##class(%ListOfDataTypes).%New() )
+]]></Implementation>
+</Method>
+
+<Method name="RegistreerExclusiveLock">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..Scope.RegistreerExclusiveLock( ##class(%ListOfDataTypes).%New() )
+]]></Implementation>
+</Method>
+
+<Method name="Commit">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..Scope.Commit()
+]]></Implementation>
+</Method>
+
+<Method name="Rollback">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..Scope.Rollback()
+]]></Implementation>
+</Method>
+
+<Method name="Start">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..Scope.Start()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ListUtils/Object.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ListUtils/Object.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ListUtils/Object.cls.xml	(revision 957)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ListUtils.Object">
+<Description>
+</Description>
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="Data">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/vhLib/WebServiceLogger/impl/UTLogger.cls.xml
===================================================================
diff -u
--- vhUnitTest/vhLib/WebServiceLogger/impl/UTLogger.cls.xml	(revision 0)
+++ vhUnitTest/vhLib/WebServiceLogger/impl/UTLogger.cls.xml	(revision 957)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.vhLib.WebServiceLogger.impl.UTLogger">
+<Super>vhLib.WebServiceLogger.impl.VhLibLogger</Super>
+
+<Property name="LogItems">
+<Type>%ListOfDataTypes</Type>
+</Property>
+
+<Method name="LogStream">
+<FormalSpec>Stream:%Stream,Direction:%String,ClassName:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..LogItems.Insert(..GeefDebugDetail(Stream))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/TestUniekeWaardenIterator.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/TestUniekeWaardenIterator.cls.xml	(revision 0)
+++ vhUnitTest/TECH/TestUniekeWaardenIterator.cls.xml	(revision 957)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.TestUniekeWaardenIterator">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/Display=all","TECH.TestUniekeWaardenIterator")</Description>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestDeIterator">
+<Implementation><![CDATA[
+	Set LijstMetWaarden = ##class(%ListOfDataTypes).%New()
+	Do LijstMetWaarden.Insert(1)
+	Do LijstMetWaarden.Insert(2)
+	Do LijstMetWaarden.Insert(3)
+	Do LijstMetWaarden.Insert(2)
+	Do LijstMetWaarden.Insert(4)
+	Do LijstMetWaarden.Insert(4)
+	
+	Set Iterator = ##class(TECH.UniekeWaardenIterator).%New(##class(TECH.ListIterator).%New(LijstMetWaarden))
+	
+	Do $$$AssertTrue(Iterator.HasNext())
+	Do $$$AssertEquals(Iterator.Next(),1)
+	Do $$$AssertTrue(Iterator.HasNext())
+	Do $$$AssertEquals(Iterator.Next(),2)
+	Do $$$AssertTrue(Iterator.HasNext())
+	Do $$$AssertEquals(Iterator.Next(),3)
+	Do $$$AssertTrue(Iterator.HasNext())
+	Do $$$AssertEquals(Iterator.Next(),4)
+	
+	Do $$$AssertFalse(Iterator.HasNext())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Mail/impl/MailAPIMock.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Mail/impl/MailAPIMock.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Mail/impl/MailAPIMock.cls.xml	(revision 957)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Mail.impl.MailAPIMock">
+<Super>TECH.Mail.impl.MailAPI</Super>
+
+<Property name="VerzondenMails">
+<Type>TECH.Mail.Mail</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="MockInstance">
+<ClassMethod>1</ClassMethod>
+<ReturnType>vhUnitTest.TECH.Mail.impl.MailAPIMock</ReturnType>
+<Implementation><![CDATA[
+	do ##class(TECH.Context).Instance().PushMailAPIClassName(##class(vhUnitTest.TECH.Mail.impl.MailAPIMock).%ClassName(1))
+	quit ##class(TECH.Context).Instance().GeefMailAPI()
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..VerzondenMails = ##class(%ListOfObjects).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerstuurMail">
+<FormalSpec>Mail:TECH.Mail.Mail</FormalSpec>
+<Implementation><![CDATA[	Do ..VerzondenMails.Insert(Mail)
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalVerzondenMails">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..VerzondenMails.Count()
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerzondenMailIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..VerzondenMails)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerzondenMails">
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ..VerzondenMails
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/EnumerationUtils/GeefMethodeNaamVoorWaarde/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/EnumerationUtils/GeefMethodeNaamVoorWaarde/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/EnumerationUtils/GeefMethodeNaamVoorWaarde/Test.cls.xml	(revision 957)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.EnumerationUtils.GeefMethodeNaamVoorWaarde.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="EnumerationUtils">
+<Type>TECH.EnumerationUtils</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="TestxxxOnbestaandeEnumeratieKlassexxxLegeMethodeNaam">
+<Implementation><![CDATA[	do $$$AssertEquals(..EnumerationUtils.GeefMethodeNaamVoorWaarde("vhUnitTest.TECH.EnumerationUtils.GeefMethodeNaamVoorWaarde.OnbestaandeEnumeratie"),"")
+]]></Implementation>
+</Method>
+
+<Method name="TestxxxBestaandeEnumeratieKlasseOnbestaandeValuexxxLegeMethodeNaam">
+<Implementation><![CDATA[	do $$$AssertEquals(..EnumerationUtils.GeefMethodeNaamVoorWaarde("vhUnitTest.TECH.EnumerationUtils.GeefMethodeNaamVoorWaarde.Enumeratie","OnbestaandeWaarde"),"")
+]]></Implementation>
+</Method>
+
+<Method name="TestxxxBestaandeEnumeratieKlasseLegeValuexxxLegeMethodeNaam">
+<Implementation><![CDATA[	do $$$AssertEquals(..EnumerationUtils.GeefMethodeNaamVoorWaarde("vhUnitTest.TECH.EnumerationUtils.GeefMethodeNaamVoorWaarde.Enumeratie",""),"")
+]]></Implementation>
+</Method>
+
+<Method name="TestxxxBestaandeEnumeratieKlasseBestaandeWaardexxxMethodeNaamVoorWaarde">
+<Implementation><![CDATA[	do $$$AssertEquals(..EnumerationUtils.GeefMethodeNaamVoorWaarde("vhUnitTest.TECH.EnumerationUtils.GeefMethodeNaamVoorWaarde.Enumeratie","1"),"Een")
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super()
+	set ..EnumerationUtils = ##class(TECH.EnumerationUtils).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/JSON/Parser/ParseJSON/Main.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/JSON/Parser/ParseJSON/Main.cls.xml	(revision 0)
+++ vhUnitTest/TECH/JSON/Parser/ParseJSON/Main.cls.xml	(revision 957)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.JSON.Parser.ParseJSON.Main">
+<Super>%RegisteredObject</Super>
+
+<Property name="Field1">
+<Type>%String</Type>
+</Property>
+
+<Property name="Embedded">
+<Type>vhUnitTest.TECH.JSON.Parser.ParseJSON.Embedded</Type>
+<Collection>list</Collection>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Files/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Files/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Files/Test.cls.xml	(revision 957)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Files.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="DirGetNetworkVersion">
+<Implementation><![CDATA[
+
+	do $$$AssertEquals( ##class(TECH.Files).GetNetworkVersion("\\FOP\c$")      ,  "\\FOP\c$")
+	do $$$AssertEquals( ##class(TECH.Files).GetNetworkVersion("e:\Dir","FOP")  ,  "\\FOP\e$\Dir")
+	do $$$AssertEquals( ##class(TECH.Files).GetNetworkVersion("e:\Dir")        ,  "\\"_$$$Server_"\e$\Dir")
+	do $$$AssertEquals( ##class(TECH.Files).GetNetworkVersion("c:\Dir\SubDir") ,  "\\"_$$$Server_"\c$\Dir\SubDir")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Concurrency/TestVhPersistent.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Concurrency/TestVhPersistent.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Concurrency/TestVhPersistent.cls.xml	(revision 957)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Concurrency.TestVhPersistent">
+<Super>vhUnitTest.TestCase</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+///  Test locking bij open (afh van aanwezigheid en type tx)
+///  Test locking bij save (afh van aanwezigheid en type tx en insert/update)
+///  Test optimistic concurrency bij open en save
+///  Alles kan ifv de lijst van locks van de Transactie.
+
+]]></Content>
+</UDLText>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ClassDefinition/DummyClass2.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ClassDefinition/DummyClass2.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ClassDefinition/DummyClass2.cls.xml	(revision 957)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ClassDefinition.DummyClass2">
+<Super>vhUnitTest.TestCase</Super>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ListUtils/ListHasEqualValues/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ListUtils/ListHasEqualValues/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ListUtils/ListHasEqualValues/Test.cls.xml	(revision 957)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ListUtils.ListHasEqualValues.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestLijstenZijnGelijk">
+<Implementation><![CDATA[
+	#dim Lijst As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("item1","item2", "item3")
+	#dim ZijnLijstenGelijk As %Boolean = ##class(TECH.ListUtils).ListHasEqualValues(Lijst, Lijst)
+	Do $$$AssertTrue(ZijnLijstenGelijk)
+]]></Implementation>
+</Method>
+
+<Method name="TestLijstenMetDataInVerschillendeVolgordeZijnGelijk">
+<Implementation><![CDATA[
+	#dim Lijst1 As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("item1","item2", "item3")
+	#dim Lijst2 As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("item2", "item3","item1")
+	#dim ZijnLijstenGelijk As %Boolean = ##class(TECH.ListUtils).ListHasEqualValues(Lijst1, Lijst2)
+	Do $$$AssertTrue(ZijnLijstenGelijk)
+]]></Implementation>
+</Method>
+
+<Method name="TestLijstenZijnVolledigVerschillend">
+<Implementation><![CDATA[
+	#dim Lijst1 As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("item1","item2", "item3")
+	#dim Lijst2 As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("item4","item5", "item6")
+	#dim ZijnLijstenGelijk As %Boolean = ##class(TECH.ListUtils).ListHasEqualValues(Lijst1, Lijst2)
+	Do $$$AssertFalse(ZijnLijstenGelijk)
+]]></Implementation>
+</Method>
+
+<Method name="TestLijstenZijnGedeeltelijkVerschillend">
+<Implementation><![CDATA[
+	#dim Lijst1 As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("item1","item2", "item3")
+	#dim Lijst2 As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("item1","item2", "item4")
+	#dim ZijnLijstenGelijk As %Boolean = ##class(TECH.ListUtils).ListHasEqualValues(Lijst1, Lijst2)
+	Do $$$AssertFalse(ZijnLijstenGelijk)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ClassUtilsChecks.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ClassUtilsChecks.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ClassUtilsChecks.cls.xml	(revision 957)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ClassUtilsChecks">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Method name="IntegerCheck">
+<Private>1</Private>
+<ReturnType>TECH.Integer</ReturnType>
+</Method>
+
+<Method name="FloatCheck">
+<Private>1</Private>
+<ReturnType>%Float</ReturnType>
+</Method>
+
+<Method name="ObjectCheck">
+<Private>1</Private>
+<ReturnType>vhUnitTest.TECH.ClassUtilsTestObject</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/Collections/TestLinkedList.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Collections/TestLinkedList.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Collections/TestLinkedList.cls.xml	(revision 957)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Collections.TestLinkedList">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/display=all/debug","TECH.Collections.TestLinkedList")</Description>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestVoegToeEerste">
+<Implementation><![CDATA[
+	Set Lijst = ##class(TECH.Collections.LinkedList).%New()
+	Do Lijst.VoegToeEerst(1)	
+	Do $$$AssertEquals(Lijst.GeefEerste(),1)
+	Do Lijst.VoegToeEerst(2)
+	Do $$$AssertEquals(Lijst.GeefEerste(),2)
+]]></Implementation>
+</Method>
+
+<Method name="TestIsLeeg">
+<Implementation><![CDATA[
+	Set Lijst = ##class(TECH.Collections.LinkedList).%New()
+	Do $$$AssertTrue(Lijst.IsLeeg())
+	Do Lijst.VoegToeEerst(1)
+	Do $$$AssertFalse(Lijst.IsLeeg())
+]]></Implementation>
+</Method>
+
+<Method name="TestVerwijderEerste">
+<Implementation><![CDATA[
+	Set Lijst = ##class(TECH.Collections.LinkedList).%New()
+	Do $$$AssertFalse(Lijst.VerwijderEerste())
+	Do Lijst.VoegToeEerst(1)
+	Do $$$AssertTrue(Lijst.VerwijderEerste())
+	Do $$$AssertTrue(Lijst.IsLeeg())
+]]></Implementation>
+</Method>
+
+<Method name="TestVoegToeLaatst">
+<Implementation><![CDATA[
+	Set Lijst = ##class(TECH.Collections.LinkedList).%New()
+	Do Lijst.VoegToeEerst(1)
+	Do Lijst.VoegToeLaatst(2)
+	Do $$$AssertEquals(Lijst.GeefEerste(),1)
+	Do Lijst.VerwijderEerste()
+	Do $$$AssertEquals(Lijst.GeefEerste(),2)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>