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, "") ]]>