Index: vhUnitTest/TECH/XMLString/CreateIfNotEmpty/Test.cls.xml
===================================================================
diff -u -r3527 -r3530
--- vhUnitTest/TECH/XMLString/CreateIfNotEmpty/Test.cls.xml	(.../Test.cls.xml)	(revision 3527)
+++ vhUnitTest/TECH/XMLString/CreateIfNotEmpty/Test.cls.xml	(.../Test.cls.xml)	(revision 3530)
@@ -7,76 +7,76 @@
 <Implementation><![CDATA[
 	#dim Waarde As %String = "UT_Tekst01"
 	
-	Set dtoDataTransferObject = ##class(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
-	Set dtoDataTransferObject.XmlString = ##class(TECH.XMLString).CreateIfNotEmpty(Waarde)
+	Set DtoDataTransferObject = ##class(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
+	Set DtoDataTransferObject.XmlString = ##class(TECH.XMLString).CreateIfNotEmpty(Waarde)
 	
-	Set dtoObjectIgnoreNullIs0 = ##class(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
-	Set dtoObjectIgnoreNullIs0.XmlString = ##class(TECH.XMLString).CreateIfNotEmpty(Waarde)
+	Set DtoObjectIgnoreNullIs0 = ##class(vhUnitTest.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>")
+	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(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
-	Set dtoDataTransferObject.XmlString = ##class(TECH.XMLString).CreateIfNotEmpty(Waarde)
+	Set DtoDataTransferObject = ##class(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
+	Set DtoDataTransferObject.XmlString = ##class(TECH.XMLString).CreateIfNotEmpty(Waarde)
 	
-	Set dtoObjectIgnoreNullIs0 = ##class(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
-	Set dtoObjectIgnoreNullIs0.XmlString = ##class(TECH.XMLString).CreateIfNotEmpty(Waarde)
+	Set DtoObjectIgnoreNullIs0 = ##class(vhUnitTest.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")
+	#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>")
+	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(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
-	Set dtoDataTransferObject.XmlString = ##class(TECH.XMLString).%New("")
+	Set DtoDataTransferObject = ##class(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
+	Set DtoDataTransferObject.XmlString = ##class(TECH.XMLString).%New("")
 	
-	Set dtoObjectIgnoreNullIs0 = ##class(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
-	Set dtoObjectIgnoreNullIs0.XmlString = ##class(TECH.XMLString).%New("")
+	Set DtoObjectIgnoreNullIs0 = ##class(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
+	Set DtoObjectIgnoreNullIs0.XmlString = ##class(TECH.XMLString).%New("")
 	
-	Do ..AssertXmlContains(dtoDataTransferObject , "<XmlString></XmlString>")
-	Do ..AssertXmlContains(dtoObjectIgnoreNullIs0, "<XmlString></XmlString>")
+	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(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
-	Set dtoDataTransferObject.GewoneString = Waarde
+	Set DtoDataTransferObject = ##class(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
+	Set DtoDataTransferObject.GewoneString = Waarde
 	
-	Set dtoObjectIgnoreNullIs0 = ##class(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
-	Set dtoObjectIgnoreNullIs0.GewoneString = Waarde
+	Set DtoObjectIgnoreNullIs0 = ##class(vhUnitTest.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>")
+	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(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
-	Set dtoDataTransferObject.GewoneString = Waarde
+	Set DtoDataTransferObject = ##class(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
+	Set DtoDataTransferObject.GewoneString = Waarde
 	
-	Set dtoObjectIgnoreNullIs0 = ##class(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
-	Set dtoObjectIgnoreNullIs0.GewoneString = Waarde
+	Set DtoObjectIgnoreNullIs0 = ##class(vhUnitTest.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>")
+	Do ..AssertXml(DtoDataTransferObject , "<UT_Object><GewoneString></GewoneString></UT_Object>")
+	Do ..AssertXml(DtoObjectIgnoreNullIs0, "<UT_Object></UT_Object>")
 ]]></Implementation>
 </Method>
 
@@ -99,8 +99,8 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim fmt As %String = ""
-	Quit $$ObjToXML^vhLib(dtoObject,TopTag,fmt)
+	#dim Format As %String = ""
+	Quit $$ObjToXML^vhLib(dtoObject,TopTag,Format)
 ]]></Implementation>
 </Method>
 </Class>