Index: vhUnitTest/TECH/XMLString/CreateIfNotEmpty/Test.cls.xml
===================================================================
diff -u -r3525 -r3527
--- vhUnitTest/TECH/XMLString/CreateIfNotEmpty/Test.cls.xml	(.../Test.cls.xml)	(revision 3525)
+++ vhUnitTest/TECH/XMLString/CreateIfNotEmpty/Test.cls.xml	(.../Test.cls.xml)	(revision 3527)
@@ -7,10 +7,10 @@
 <Implementation><![CDATA[
 	#dim Waarde As %String = "UT_Tekst01"
 	
-	Set dtoDataTransferObject = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
+	Set dtoDataTransferObject = ##class(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
 	Set dtoDataTransferObject.XmlString = ##class(TECH.XMLString).CreateIfNotEmpty(Waarde)
 	
-	Set dtoObjectIgnoreNullIs0 = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
+	Set dtoObjectIgnoreNullIs0 = ##class(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
 	Set dtoObjectIgnoreNullIs0.XmlString = ##class(TECH.XMLString).CreateIfNotEmpty(Waarde)
 	
 	Do ..AssertXmlContains(dtoDataTransferObject , "<XmlString>UT_Tekst01</XmlString>")
@@ -22,10 +22,10 @@
 <Implementation><![CDATA[
 	#dim Waarde As %String = ""
 	
-	Set dtoDataTransferObject = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
+	Set dtoDataTransferObject = ##class(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
 	Set dtoDataTransferObject.XmlString = ##class(TECH.XMLString).CreateIfNotEmpty(Waarde)
 	
-	Set dtoObjectIgnoreNullIs0 = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
+	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")
@@ -39,10 +39,10 @@
 
 <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 = ##class(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
 	Set dtoDataTransferObject.XmlString = ##class(TECH.XMLString).%New("")
 	
-	Set dtoObjectIgnoreNullIs0 = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
+	Set dtoObjectIgnoreNullIs0 = ##class(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
 	Set dtoObjectIgnoreNullIs0.XmlString = ##class(TECH.XMLString).%New("")
 	
 	Do ..AssertXmlContains(dtoDataTransferObject , "<XmlString></XmlString>")
@@ -54,10 +54,10 @@
 <Implementation><![CDATA[
 	#dim Waarde As %String = "UT_Tekst01"
 	
-	Set dtoDataTransferObject = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
+	Set dtoDataTransferObject = ##class(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
 	Set dtoDataTransferObject.GewoneString = Waarde
 	
-	Set dtoObjectIgnoreNullIs0 = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
+	Set dtoObjectIgnoreNullIs0 = ##class(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
 	Set dtoObjectIgnoreNullIs0.GewoneString = Waarde
 	
 	Do ..AssertXml(dtoDataTransferObject , "<UT_Object><GewoneString>UT_Tekst01</GewoneString></UT_Object>")
@@ -69,10 +69,10 @@
 <Implementation><![CDATA[
 	#dim Waarde As %String = ""
 	
-	Set dtoDataTransferObject = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
+	Set dtoDataTransferObject = ##class(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoDataTransferObject).%New()
 	Set dtoDataTransferObject.GewoneString = Waarde
 	
-	Set dtoObjectIgnoreNullIs0 = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
+	Set dtoObjectIgnoreNullIs0 = ##class(vhUnitTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
 	Set dtoObjectIgnoreNullIs0.GewoneString = Waarde
 	
 	Do ..AssertXml(dtoDataTransferObject , "<UT_Object><GewoneString></GewoneString></UT_Object>")