Do ##class(vhUnitTest.Manager).RunTest("/display=all/debug","TECH.DataTransferObjectUtils") vhUnitTest.TestCase " , maar niet telkens controleren Do $$$AssertEquals(XMLStream.ReadLine(),"<"_TopTag_">") } ]]> XMLStream:%AbstractStream,Veld1:%String 1 ") Do $$$AssertEquals(XMLStream.ReadLine(),"") Do $$$AssertEquals(XMLStream.ReadLine(),Indent_""_Veld1_"") Do $$$AssertEquals(XMLStream.ReadLine(),Indent_"") Do $$$AssertEquals(XMLStream.ReadLine(),"") ]]> Veld1:%String 1 vhUnitTest.TECH.XmlObjectUtils.DataTransferObject