Index: vhUnitTest/TECH/XMLCorrelator/GeefObjectVanBestand/Test.cls.xml
===================================================================
diff -u -r3176 -r3180
--- vhUnitTest/TECH/XMLCorrelator/GeefObjectVanBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 3176)
+++ vhUnitTest/TECH/XMLCorrelator/GeefObjectVanBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 3180)
@@ -41,6 +41,84 @@
 	Do $$$AssertEquals(result.OpgevuldeProperty,"Opgevuld")
 ]]></Implementation>
 </Method>
+
+<Method name="Test gedrag class xmlignorenull 0 met extra parameter ignorenull is 0">
+<Implementation><![CDATA[
+	Set correlator = ##class(TECH.XMLCorrelater).%New()
+	#dim classname as %String = ##class(vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsNul).%ClassName(1)
+	#Dim result as vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsNul
+	Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"Input.xml"),classname,"XMLIgnoreNullIsNul",0)
+	
+	Do $$$AssertEquals(result.LegeProperty,$char(0))
+	Do $$$AssertEquals(result.PropertyNietInXML,"")
+	Do $$$AssertEquals(result.OpgevuldeProperty,"Opgevuld")
+]]></Implementation>
+</Method>
+
+<Method name="Test gedrag class xmlignorenull 0 met extra parameter ignorenull is 1">
+<Implementation><![CDATA[
+	Set correlator = ##class(TECH.XMLCorrelater).%New()
+	#dim classname as %String = ##class(vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsNul).%ClassName(1)
+	#Dim result as vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsNul
+	Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"Input.xml"),classname,"XMLIgnoreNullIsNul",1)
+	
+	Do $$$AssertEquals(result.LegeProperty,$char(0))
+	Do $$$AssertEquals(result.PropertyNietInXML,"")
+	Do $$$AssertEquals(result.OpgevuldeProperty,"Opgevuld")
+]]></Implementation>
+</Method>
+
+<Method name="Test gedrag class xmlignorenull 1 met extra parameter ignorenull is 0">
+<Implementation><![CDATA[
+	Set correlator = ##class(TECH.XMLCorrelater).%New()
+	#dim classname as %String = ##class(vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsEen).%ClassName(1)
+	#Dim result as vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsEen
+	Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"Input.xml"),classname,"XMLIgnoreNullIsEen", 0)
+	
+	Do $$$AssertEquals(result.LegeProperty,"")
+	Do $$$AssertEquals(result.PropertyNietInXML,"")
+	Do $$$AssertEquals(result.OpgevuldeProperty,"Opgevuld")
+]]></Implementation>
+</Method>
+
+<Method name="Test gedrag class xmlignorenull 1 met extra parameter ignorenull is 1">
+<Implementation><![CDATA[
+	Set correlator = ##class(TECH.XMLCorrelater).%New()
+	#dim classname as %String = ##class(vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsEen).%ClassName(1)
+	#Dim result as vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsEen
+	Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"Input.xml"),classname,"XMLIgnoreNullIsEen", 1)
+	
+	Do $$$AssertEquals(result.LegeProperty,"")
+	Do $$$AssertEquals(result.PropertyNietInXML,"")
+	Do $$$AssertEquals(result.OpgevuldeProperty,"Opgevuld")
+]]></Implementation>
+</Method>
+
+<Method name="Test gedrag class xmlignorenull RUNTIME met extra parameter ignorenull is 0">
+<Implementation><![CDATA[
+	Set correlator = ##class(TECH.XMLCorrelater).%New()
+	#dim classname as %String = ##class(vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsRUNTIME).%ClassName(1)
+	#Dim result as vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsRUNTIME
+	Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"Input.xml"),classname,"XMLIgnoreNullIsRUNTIME",0)
+	
+	Do $$$AssertEquals(result.LegeProperty,$char(0))
+	Do $$$AssertEquals(result.PropertyNietInXML,"")
+	Do $$$AssertEquals(result.OpgevuldeProperty,"Opgevuld")
+]]></Implementation>
+</Method>
+
+<Method name="Test gedrag class xmlignorenull RUNTIME met extra parameter ignorenull is 1">
+<Implementation><![CDATA[
+	Set correlator = ##class(TECH.XMLCorrelater).%New()
+	#dim classname as %String = ##class(vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsRUNTIME).%ClassName(1)
+	#Dim result as vhUnitTest.TECH.XMLCorrelator.GeefObjectVanBestand.XMLIgnoreNullIsRUNTIME
+	Set result = correlator.GeefObjectVanBestand(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"Input.xml"),classname,"XMLIgnoreNullIsRUNTIME",1)
+	
+	Do $$$AssertEquals(result.LegeProperty,"")
+	Do $$$AssertEquals(result.PropertyNietInXML,"")
+	Do $$$AssertEquals(result.OpgevuldeProperty,"Opgevuld")
+]]></Implementation>
+</Method>
 </Class>