Index: vhUnitTest/TECH/File/impl/FileWriter/WriteXML.cls.xml
===================================================================
diff -u -r3174 -r3183
--- vhUnitTest/TECH/File/impl/FileWriter/WriteXML.cls.xml	(.../WriteXML.cls.xml)	(revision 3174)
+++ vhUnitTest/TECH/File/impl/FileWriter/WriteXML.cls.xml	(.../WriteXML.cls.xml)	(revision 3183)
@@ -50,6 +50,102 @@
 	Do $$$AssertContains(BestandInhoud,"<Char0Property></Char0Property>")
 ]]></Implementation>
 </Method>
+
+<Method name="Test gedrag class xmlignorenull 0 met extra parameter RuntimeIgnoreNull = 0">
+<Implementation><![CDATA[
+	Set FileWriter = ##class(TECH.File.impl.FileWriter).%New()
+	Do FileWriter.Open(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"result.xml"))
+	Do FileWriter.WriteXML(##class(vhUnitTest.TECH.File.impl.FileWriter.XMLIgnoreNullIsNul).%New(),,,,0)
+
+	Do FileWriter.GetStream().Rewind()
+	#dim BestandInhoud as %String = FileWriter.GetStream().Read()
+	Do FileWriter.Close()
+
+	Do $$$AssertNotContains(BestandInhoud,"<LegeProperty></LegeProperty>")
+	Do $$$AssertContains(BestandInhoud,"<OpgevuldeProperty>Opgevuld</OpgevuldeProperty>")
+	Do $$$AssertContains(BestandInhoud,"<Char0Property></Char0Property>")
+]]></Implementation>
+</Method>
+
+<Method name="Test gedrag class xmlignorenull 0 met extra parameter RuntimeIgnoreNull = 1">
+<Implementation><![CDATA[
+	Set FileWriter = ##class(TECH.File.impl.FileWriter).%New()
+	Do FileWriter.Open(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"result.xml"))
+	Do FileWriter.WriteXML(##class(vhUnitTest.TECH.File.impl.FileWriter.XMLIgnoreNullIsNul).%New(),,,,1)
+
+	Do FileWriter.GetStream().Rewind()
+	#dim BestandInhoud as %String = FileWriter.GetStream().Read()
+	Do FileWriter.Close()
+
+	Do $$$AssertNotContains(BestandInhoud,"<LegeProperty></LegeProperty>")
+	Do $$$AssertContains(BestandInhoud,"<OpgevuldeProperty>Opgevuld</OpgevuldeProperty>")
+	Do $$$AssertContains(BestandInhoud,"<Char0Property></Char0Property>")
+]]></Implementation>
+</Method>
+
+<Method name="Test gedrag class xmlignorenull 1 met extra parameter RuntimeIgnoreNull = 0">
+<Implementation><![CDATA[
+	Set FileWriter = ##class(TECH.File.impl.FileWriter).%New()
+	Do FileWriter.Open(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"result.xml"))
+	Do FileWriter.WriteXML(##class(vhUnitTest.TECH.File.impl.FileWriter.XMLIgnoreNullIsEen).%New(),,,,0)
+
+	Do FileWriter.GetStream().Rewind()
+	#dim BestandInhoud as %String = FileWriter.GetStream().Read()
+	Do FileWriter.Close()
+
+	Do $$$AssertContains(BestandInhoud,"<LegeProperty></LegeProperty>")
+	Do $$$AssertContains(BestandInhoud,"<OpgevuldeProperty>Opgevuld</OpgevuldeProperty>")
+	Do $$$AssertContains(BestandInhoud,"<Char0Property></Char0Property>")
+]]></Implementation>
+</Method>
+
+<Method name="Test gedrag class xmlignorenull 1 met extra parameter RuntimeIgnoreNull = 1">
+<Implementation><![CDATA[
+	Set FileWriter = ##class(TECH.File.impl.FileWriter).%New()
+	Do FileWriter.Open(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"result.xml"))
+	Do FileWriter.WriteXML(##class(vhUnitTest.TECH.File.impl.FileWriter.XMLIgnoreNullIsEen).%New(),,,,1)
+
+	Do FileWriter.GetStream().Rewind()
+	#dim BestandInhoud as %String = FileWriter.GetStream().Read()
+	Do FileWriter.Close()
+
+	Do $$$AssertContains(BestandInhoud,"<LegeProperty></LegeProperty>")
+	Do $$$AssertContains(BestandInhoud,"<OpgevuldeProperty>Opgevuld</OpgevuldeProperty>")
+	Do $$$AssertContains(BestandInhoud,"<Char0Property></Char0Property>")
+]]></Implementation>
+</Method>
+
+<Method name="Test gedrag class xmlignorenull runtime  met extra parameter RuntimeIgnoreNull = 0">
+<Implementation><![CDATA[
+	Set FileWriter = ##class(TECH.File.impl.FileWriter).%New()
+	Do FileWriter.Open(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"result.xml"))
+	Do FileWriter.WriteXML(##class(vhUnitTest.TECH.File.impl.FileWriter.XMLIgnoreNullIsRUNTIME).%New(),,,,0)
+	
+	Do FileWriter.GetStream().Rewind()
+	#dim BestandInhoud as %String = FileWriter.GetStream().Read()
+	Do FileWriter.Close()
+
+	Do $$$AssertNotContains(BestandInhoud,"<LegeProperty></LegeProperty>")
+	Do $$$AssertContains(BestandInhoud,"<OpgevuldeProperty>Opgevuld</OpgevuldeProperty>")
+	Do $$$AssertContains(BestandInhoud,"<Char0Property></Char0Property>")
+]]></Implementation>
+</Method>
+
+<Method name="Test gedrag class xmlignorenull runtime  met extra parameter RuntimeIgnoreNull = 1">
+<Implementation><![CDATA[
+	Set FileWriter = ##class(TECH.File.impl.FileWriter).%New()
+	Do FileWriter.Open(##class(TECH.Files).AppendFile( ..GeefBestandLocatie(),"result.xml"))
+	Do FileWriter.WriteXML(##class(vhUnitTest.TECH.File.impl.FileWriter.XMLIgnoreNullIsRUNTIME).%New(),,,,1)
+	
+	Do FileWriter.GetStream().Rewind()
+	#dim BestandInhoud as %String = FileWriter.GetStream().Read()
+	Do FileWriter.Close()
+
+	Do $$$AssertContains(BestandInhoud,"<LegeProperty></LegeProperty>")
+	Do $$$AssertContains(BestandInhoud,"<OpgevuldeProperty>Opgevuld</OpgevuldeProperty>")
+	Do $$$AssertContains(BestandInhoud,"<Char0Property></Char0Property>")
+]]></Implementation>
+</Method>
 </Class>