Index: vhUnitTest/TECH/XMLString/CreateIfNotEmpty/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/XMLString/CreateIfNotEmpty/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/XMLString/CreateIfNotEmpty/Test.cls.xml	(revision 3525)
@@ -0,0 +1,109 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.XMLString.CreateIfNotEmpty.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Ingevulde waarde wordt in xml-tag gezet">
+<Implementation><![CDATA[
+	#dim Waarde As %String = "UT_Tekst01"
+	
+	Set dtoDataTransferObject = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
+	Set dtoDataTransferObject.XmlString = ##class(TECH.XMLString).CreateIfNotEmpty(Waarde)
+	
+	Set dtoObjectIgnoreNullIs0 = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
+	Set dtoObjectIgnoreNullIs0.XmlString = ##class(TECH.XMLString).CreateIfNotEmpty(Waarde)
+	
+	Do ..AssertXmlContains(dtoDataTransferObject , "<XmlString>UT_Tekst01</XmlString>")
+	Do ..AssertXmlContains(dtoObjectIgnoreNullIs0, "<XmlString>UT_Tekst01</XmlString>")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Lege waarde wordt NIET in xml-tag gezet">
+<Implementation><![CDATA[
+	#dim Waarde As %String = ""
+	
+	Set dtoDataTransferObject = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
+	Set dtoDataTransferObject.XmlString = ##class(TECH.XMLString).CreateIfNotEmpty(Waarde)
+	
+	Set dtoObjectIgnoreNullIs0 = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
+	Set dtoObjectIgnoreNullIs0.XmlString = ##class(TECH.XMLString).CreateIfNotEmpty(Waarde)
+	
+	#dim Result1 As %Boolean = $$$AssertNotContains(..GeefXml(dtoDataTransferObject) , "XmlString")
+	#dim Result2 As %Boolean = $$$AssertNotContains(..GeefXml(dtoObjectIgnoreNullIs0), "XmlString")
+	
+	// Volgende 2 checks zijn handig wanneer bovenstaande zou falen. 
+	Do:($$$Not(Result1)) ..AssertXml(dtoDataTransferObject , "<UT_Object><GewoneString></GewoneString></UT_Object>")
+	Do:($$$Not(Result2)) ..AssertXml(dtoObjectIgnoreNullIs0, "<UT_Object></UT_Object>")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Lege waarde wordt WEL in xml-tag gezet indien toegevoegd via New i.p.v. via CreateOrEmpty">
+<Implementation><![CDATA[
+	Set dtoDataTransferObject = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
+	Set dtoDataTransferObject.XmlString = ##class(TECH.XMLString).%New("")
+	
+	Set dtoObjectIgnoreNullIs0 = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
+	Set dtoObjectIgnoreNullIs0.XmlString = ##class(TECH.XMLString).%New("")
+	
+	Do ..AssertXmlContains(dtoDataTransferObject , "<XmlString></XmlString>")
+	Do ..AssertXmlContains(dtoObjectIgnoreNullIs0, "<XmlString></XmlString>")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verschil met GewoneString - ingevulde waarde : OK">
+<Implementation><![CDATA[
+	#dim Waarde As %String = "UT_Tekst01"
+	
+	Set dtoDataTransferObject = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
+	Set dtoDataTransferObject.GewoneString = Waarde
+	
+	Set dtoObjectIgnoreNullIs0 = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
+	Set dtoObjectIgnoreNullIs0.GewoneString = Waarde
+	
+	Do ..AssertXml(dtoDataTransferObject , "<UT_Object><GewoneString>UT_Tekst01</GewoneString></UT_Object>")
+	Do ..AssertXml(dtoObjectIgnoreNullIs0, "<UT_Object><GewoneString>UT_Tekst01</GewoneString></UT_Object>")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verschil met GewoneString - lege waarde : ander gedrag">
+<Implementation><![CDATA[
+	#dim Waarde As %String = ""
+	
+	Set dtoDataTransferObject = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
+	Set dtoDataTransferObject.GewoneString = Waarde
+	
+	Set dtoObjectIgnoreNullIs0 = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
+	Set dtoObjectIgnoreNullIs0.GewoneString = Waarde
+	
+	Do ..AssertXml(dtoDataTransferObject , "<UT_Object><GewoneString></GewoneString></UT_Object>")
+	Do ..AssertXml(dtoObjectIgnoreNullIs0, "<UT_Object></UT_Object>")
+]]></Implementation>
+</Method>
+
+<Method name="AssertXml">
+<FormalSpec>dtoObject:%RegisteredObject,VerwachteTekst:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do $$$AssertEquals(..GeefXml(dtoObject) , VerwachteTekst)
+]]></Implementation>
+</Method>
+
+<Method name="AssertXmlContains">
+<FormalSpec>dtoObject:%RegisteredObject,VerwachteTekst:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do $$$AssertContains(..GeefXml(dtoObject) , VerwachteTekst)
+]]></Implementation>
+</Method>
+
+<Method name="GeefXml">
+<FormalSpec>dtoObject:%RegisteredObject,TopTag:%String="UT_Object"</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim fmt As %String = ""
+	Quit $$ObjToXML^vhLib(dtoObject,TopTag,fmt)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>