Index: vhUnitTest/TECH/Comparator/FileInfoComparator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Comparator/FileInfoComparator/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Comparator/FileInfoComparator/Test.cls.xml	(revision 2702)
@@ -0,0 +1,113 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Comparator.FileInfoComparator.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: naam van FileInfo1 komt voor naam FileInfo2 ">
+<Implementation><![CDATA[
+	#Dim FileInfoComparator As TECH.Comparator.FileInfoComparator = ##class(TECH.Comparator.FileInfoComparator).%New("Name")
+	#Dim FileInfo1 As TECH.FileInfo = ##class(TECH.FileInfo).%New()
+	Set FileInfo1.Name = "A"
+	#Dim FileInfo2 As TECH.FileInfo = ##class(TECH.FileInfo).%New()
+	Set FileInfo2.Name = "B"
+	
+	Do $$$AssertTrue(FileInfoComparator.IsKleinerDan(FileInfo1,FileInfo2))
+]]></Implementation>
+</Method>
+
+<Method name="Test: naam van FileInfo1 komt niet voor naam FileInfo2 ">
+<Implementation><![CDATA[
+	#Dim FileInfoComparator As TECH.Comparator.FileInfoComparator = ##class(TECH.Comparator.FileInfoComparator).%New("Name")
+	#Dim FileInfo1 As TECH.FileInfo = ##class(TECH.FileInfo).%New()
+	Set FileInfo1.Name = "X"
+	#Dim FileInfo2 As TECH.FileInfo = ##class(TECH.FileInfo).%New()
+	Set FileInfo2.Name = "B"
+	
+	Do $$$AssertFalse(FileInfoComparator.IsKleinerDan(FileInfo1,FileInfo2))
+]]></Implementation>
+</Method>
+
+<Method name="Test: type FileInfo1 komt voor type FileInfo2 ">
+<Implementation><![CDATA[
+	#Dim FileInfoComparator As TECH.Comparator.FileInfoComparator = ##class(TECH.Comparator.FileInfoComparator).%New("Type")
+	#Dim FileInfo1 As TECH.FileInfo = ##class(TECH.FileInfo).%New()
+	Set FileInfo1.Type = "cls"
+	#Dim FileInfo2 As TECH.FileInfo = ##class(TECH.FileInfo).%New()
+	Set FileInfo2.Type = "pdf"
+	
+	Do $$$AssertTrue(FileInfoComparator.IsKleinerDan(FileInfo1,FileInfo2))
+]]></Implementation>
+</Method>
+
+<Method name="Test: type FileInfo1 komt niet voor type FileInfo2 ">
+<Implementation><![CDATA[
+	#Dim FileInfoComparator As TECH.Comparator.FileInfoComparator = ##class(TECH.Comparator.FileInfoComparator).%New("Type")
+	#Dim FileInfo1 As TECH.FileInfo = ##class(TECH.FileInfo).%New()
+	Set FileInfo1.Type = "xsd"
+	#Dim FileInfo2 As TECH.FileInfo = ##class(TECH.FileInfo).%New()
+	Set FileInfo2.Type = "cls"
+	
+	Do $$$AssertFalse(FileInfoComparator.IsKleinerDan(FileInfo1,FileInfo2))
+]]></Implementation>
+</Method>
+
+<Method name="Test: property bestaat niet voor TECH FileInfo klasse geeft foutmelding">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("NietBestaandeProperty bestaat niet als property voor TECH.FileInfo.")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+
+	#Dim FileInfoComparator As TECH.Comparator.FileInfoComparator = ##class(TECH.Comparator.FileInfoComparator).%New("NietBestaandeProperty")
+]]></Implementation>
+</Method>
+
+<Method name="Test: size FileInfo1 is kleiner dan size FileInfo2 ">
+<Implementation><![CDATA[
+	#Dim FileInfoComparator As TECH.Comparator.FileInfoComparator = ##class(TECH.Comparator.FileInfoComparator).%New("Size")
+	#Dim FileInfo1 As TECH.FileInfo = ##class(TECH.FileInfo).%New()
+	Set FileInfo1.Size = 5
+	#Dim FileInfo2 As TECH.FileInfo = ##class(TECH.FileInfo).%New()
+	Set FileInfo2.Size = 10
+	
+	Do $$$AssertTrue(FileInfoComparator.IsKleinerDan(FileInfo1,FileInfo2))
+]]></Implementation>
+</Method>
+
+<Method name="Test: size FileInfo1 size is niet kleiner dan size FileInfo2 ">
+<Implementation><![CDATA[
+	#Dim FileInfoComparator As TECH.Comparator.FileInfoComparator = ##class(TECH.Comparator.FileInfoComparator).%New("Size")
+	#Dim FileInfo1 As TECH.FileInfo = ##class(TECH.FileInfo).%New()
+	Set FileInfo1.Size = 10
+	#Dim FileInfo2 As TECH.FileInfo = ##class(TECH.FileInfo).%New()
+	Set FileInfo2.Size = 5
+	
+	Do $$$AssertFalse(FileInfoComparator.IsKleinerDan(FileInfo1,FileInfo2))
+]]></Implementation>
+</Method>
+
+<Method name="Test: creatiedatum FileInfo1 is kleiner dan creatiedatum FileInfo2">
+<Implementation><![CDATA[
+	#Dim FileInfoComparator As TECH.Comparator.FileInfoComparator = ##class(TECH.Comparator.FileInfoComparator).%New("DateCreated")
+	#Dim FileInfo1 As TECH.FileInfo = ##class(TECH.FileInfo).%New()
+	Set FileInfo1.DateCreated = 64100
+	#Dim FileInfo2 As TECH.FileInfo = ##class(TECH.FileInfo).%New()
+	Set FileInfo2.DateCreated = 64200
+	
+	Do $$$AssertTrue(FileInfoComparator.IsKleinerDan(FileInfo1,FileInfo2))
+]]></Implementation>
+</Method>
+
+<Method name="Test: creatiedatum FileInfo1 is niet kleiner dan creatiedatum FileInfo2">
+<Implementation><![CDATA[
+	#Dim FileInfoComparator As TECH.Comparator.FileInfoComparator = ##class(TECH.Comparator.FileInfoComparator).%New("DateCreated")
+	#Dim FileInfo1 As TECH.FileInfo = ##class(TECH.FileInfo).%New()
+	Set FileInfo1.DateCreated = 64400
+	#Dim FileInfo2 As TECH.FileInfo = ##class(TECH.FileInfo).%New()
+	Set FileInfo2.DateCreated = 64300
+	
+	Do $$$AssertFalse(FileInfoComparator.IsKleinerDan(FileInfo1,FileInfo2))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ClassUtils/BestaatProperty/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ClassUtils/BestaatProperty/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ClassUtils/BestaatProperty/Test.cls.xml	(revision 2702)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ClassUtils.BestaatProperty.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test : bestaat property geeft true als property bestaat">
+<Implementation><![CDATA[	Do $$$AssertTrue(##class(TECH.ClassUtils).BestaatProperty("vhTest.Utils.TECH.ClassUtils.PropertyTestClass","BestaandeProperty"))
+]]></Implementation>
+</Method>
+
+<Method name="Test : bestaat property geeft false als property niet bestaat">
+<Implementation><![CDATA[	Do $$$AssertFalse(##class(TECH.ClassUtils).BestaatProperty("vhTest.Utils.TECH.ClassUtils.PropertyTestClass","NietBestaandeProperty"))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>