Index: vhTest/TECH/XMLString/CreateIfNotEmpty/Test.cls.xml
===================================================================
diff -u -r55368 -r55370
--- vhTest/TECH/XMLString/CreateIfNotEmpty/Test.cls.xml (.../Test.cls.xml) (revision 55368)
+++ vhTest/TECH/XMLString/CreateIfNotEmpty/Test.cls.xml (.../Test.cls.xml) (revision 55370)
@@ -13,7 +13,7 @@
Set dtoObjectIgnoreNullIs0 = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
Set dtoObjectIgnoreNullIs0.XmlString = ##class(TECH.XMLString).CreateIfNotEmpty(Waarde)
- Do ..AssertXmlContains(dtoDataTransferObject , "UT_Tekst01")
+ Do ..AssertXmlContains(dtoDataTransferObject , "UT_Tekst01")
Do ..AssertXmlContains(dtoObjectIgnoreNullIs0, "UT_Tekst01")
]]>
@@ -28,11 +28,11 @@
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 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 , "")
+ Do:($$$Not(Result1)) ..AssertXml(dtoDataTransferObject , "")
Do:($$$Not(Result2)) ..AssertXml(dtoObjectIgnoreNullIs0, "")
]]>
@@ -45,7 +45,7 @@
Set dtoObjectIgnoreNullIs0 = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
Set dtoObjectIgnoreNullIs0.XmlString = ##class(TECH.XMLString).%New("")
- Do ..AssertXmlContains(dtoDataTransferObject , "")
+ Do ..AssertXmlContains(dtoDataTransferObject , "")
Do ..AssertXmlContains(dtoObjectIgnoreNullIs0, "")
]]>
@@ -60,7 +60,7 @@
Set dtoObjectIgnoreNullIs0 = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
Set dtoObjectIgnoreNullIs0.GewoneString = Waarde
- Do ..AssertXml(dtoDataTransferObject , "UT_Tekst01")
+ Do ..AssertXml(dtoDataTransferObject , "UT_Tekst01")
Do ..AssertXml(dtoObjectIgnoreNullIs0, "UT_Tekst01")
]]>
@@ -75,7 +75,7 @@
Set dtoObjectIgnoreNullIs0 = ##class(vhTest.TECH.XMLString.CreateIfNotEmpty.dtoObjectIgnoreNullIs0).%New()
Set dtoObjectIgnoreNullIs0.GewoneString = Waarde
- Do ..AssertXml(dtoDataTransferObject , "")
+ Do ..AssertXml(dtoDataTransferObject , "")
Do ..AssertXml(dtoObjectIgnoreNullIs0, "")
]]>