Oproepen via do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","BL.Legacy.GADataProduct") 1 vhUnitTest.TestCase BL.Legacy.GADataProduct.impl.XMLParser 1 " #dim GADataItemIterator As TECH.Iterator = ..GeefGADataItemIteratorVoorXML(XMLString) If $$$AssertTrue(GADataItemIterator.HasNext()) { #dim GADataItem As BL.Legacy.GADataProduct.impl.XMLParser.ITEM = GADataItemIterator.Next() Do $$$AssertEquals(GADataItem.ID,"PR1DIM015") Do $$$AssertEquals(GADataItem.OMS,"Bodem") Do $$$AssertEquals(GADataItem.Label,"PRBDHO") Do $$$AssertEquals(GADataItem.SubGroep,"HOUT") Do $$$AssertEquals(GADataItem.Meta,"PR1DIM") } ]]> " #dim GADataItemIterator As TECH.Iterator = ..GeefGADataItemIteratorVoorXML(XMLString) If $$$AssertTrue(GADataItemIterator.HasNext()) { #dim GADataItem As BL.Legacy.GADataProduct.impl.XMLParser.ITEM = GADataItemIterator.Next() Do $$$AssertEquals(GADataItem.WAARDE,"","Onderscheid tussen leeg en $C(0) : $$$LCVT(Property)="_$$$LCVT(GADataItem.WAARDE)_" is niet leeg! ") } ]]> " #dim GADataItemIterator As TECH.Iterator = ..GeefGADataItemIteratorVoorXML(XMLString) If $$$AssertTrue(GADataItemIterator.HasNext()) { #dim GADataItem As BL.Legacy.GADataProduct.impl.XMLParser.ITEM = GADataItemIterator.Next() Do $$$AssertEquals(GADataItem.WAARDE,"","Lege tag! Onderscheid tussen leeg en $C(0) : $$$LCVT(Property)="_$$$LCVT(GADataItem.WAARDE)_" is niet leeg! ") } ]]> UT_TestWaarde" #dim GADataItemIterator As TECH.Iterator = ..GeefGADataItemIteratorVoorXML(XMLString) If $$$AssertTrue(GADataItemIterator.HasNext()) { Do $$$AssertEquals(GADataItemIterator.Next().WAARDE,"UT_TestWaarde") } ]]> UT_TestProgLabel" #dim GADataItemIterator As TECH.Iterator = ..GeefGADataItemIteratorVoorXML(XMLString) If $$$AssertTrue(GADataItemIterator.HasNext()) { Do $$$AssertEquals(GADataItemIterator.Next().PROGLABEL,"UT_TestProgLabel") } ]]> UT_TestGroep" #dim GADataItemIterator As TECH.Iterator = ..GeefGADataItemIteratorVoorXML(XMLString) If $$$AssertTrue(GADataItemIterator.HasNext()) { Do $$$AssertEquals(GADataItemIterator.Next().GROEP.content,"UT_TestGroep") } ]]> Bodem" #dim GADataItemIterator As TECH.Iterator = ..GeefGADataItemIteratorVoorXML(XMLString) If $$$AssertTrue(GADataItemIterator.HasNext()) { #dim GADataItem As BL.Legacy.GADataProduct.impl.XMLParser.ITEM = GADataItemIterator.Next() Do $$$AssertEquals(GADataItem.GROEP.content,"Bodem") Do $$$AssertEquals(GADataItem.GROEP.OMS,"BODEM") } ]]> UT_TestPRNr" #dim GADataItemIterator As TECH.Iterator = ..GeefGADataItemIteratorVoorXML(XMLString) If $$$AssertTrue(GADataItemIterator.HasNext()) { Do $$$AssertEquals(GADataItemIterator.Next().PRNR,"UT_TestPRNr") } ]]> UT_TestQty" #dim GADataItemIterator As TECH.Iterator = ..GeefGADataItemIteratorVoorXML(XMLString) If $$$AssertTrue(GADataItemIterator.HasNext()) { Do $$$AssertEquals(GADataItemIterator.Next().QTY.content,"UT_TestQty") } ]]> 2.75" #dim GADataItemIterator As TECH.Iterator = ..GeefGADataItemIteratorVoorXML(XMLString) If $$$AssertTrue(GADataItemIterator.HasNext()) { #dim GADataItem As BL.Legacy.GADataProduct.impl.XMLParser.ITEM = GADataItemIterator.Next() Do $$$AssertEquals(GADataItem.QTY.content,"2.75") Do $$$AssertEquals(GADataItem.QTY.unit,"st") Do $$$AssertEquals(GADataItem.QTY.invers,"1") } ]]> 788" #dim GADataItemIterator As TECH.Iterator = ..GeefGADataItemIteratorVoorXML(XMLString) If $$$AssertTrue(GADataItemIterator.HasNext()) { #dim GADataItem As BL.Legacy.GADataProduct.impl.XMLParser.ITEM = GADataItemIterator.Next() #dim DIMHF As BL.Legacy.GADataProduct.impl.XMLParser.DIMHF = GADataItem.DIMHF.GetAt(1) If $$$AssertTrue($IsObject(DIMHF)) { Do $$$AssertEquals(DIMHF.content,"788") Do $$$AssertEquals(DIMHF.unit,"mm") Do $$$AssertEquals(DIMHF.invers,"","Onderscheid tussen leeg en $C(0) : $$$LCVT(Property)="_$$$LCVT(DIMHF.invers)_" is niet leeg! ") } } ]]> Bodemstrook, {vhINVERS}wit{/vhINVERS}, 376mm, langer dan de standaard 50 chars" #dim GADataItemIterator As TECH.Iterator = ..GeefGADataItemIteratorVoorXML(XMLString) If $$$AssertTrue(GADataItemIterator.HasNext()) { #dim GADataItem As BL.Legacy.GADataProduct.impl.XMLParser.ITEM = GADataItemIterator.Next() Do $$$AssertEquals(GADataItem.LANGTEKST.GetAt(1),"Bodemstrook, {vhINVERS}wit{/vhINVERS}, 376mm, langer dan de standaard 50 chars") } ]]> UT_Langtekst1UT_Langtekst2" #dim GADataItemIterator As TECH.Iterator = ..GeefGADataItemIteratorVoorXML(XMLString) If $$$AssertTrue(GADataItemIterator.HasNext()) { #dim GADataItem As BL.Legacy.GADataProduct.impl.XMLParser.ITEM = GADataItemIterator.Next() Do $$$AssertEquals(GADataItem.LANGTEKST.Count(),2) Do $$$AssertEquals(GADataItem.LANGTEKST.GetAt(1),"UT_Langtekst1") Do $$$AssertEquals(GADataItem.LANGTEKST.GetAt(2),"UT_Langtekst2") } ]]> SPF.B400 B-STR2840 BZWI{vhINVERS}SPF.B400{/vhINVERS}{NBSP/}{NBSP/}{NBSP/}B-STR2840{NBSP/}BZWI" #dim GADataItemIterator As TECH.Iterator = ..GeefGADataItemIteratorVoorXML(XMLString) If $$$AssertTrue(GADataItemIterator.HasNext()) { #dim GADataItem As BL.Legacy.GADataProduct.impl.XMLParser.ITEM = GADataItemIterator.Next() Do $$$AssertEquals(GADataItem.KORTTEKST,"SPF.B400 B-STR2840 BZWI") Do $$$AssertEquals(GADataItem.KORTTEKSTfmt,"{vhINVERS}SPF.B400{/vhINVERS}{NBSP/}{NBSP/}{NBSP/}B-STR2840{NBSP/}BZWI") } ]]> UT_TestWaarde01" _"UT_TestWaarde02" #dim GADataItemIterator As TECH.Iterator = ..GeefGADataItemIteratorVoorXML(XMLString) If $$$AssertTrue(GADataItemIterator.HasNext()) { Do $$$AssertEquals(GADataItemIterator.Next().WAARDE,"UT_TestWaarde01") Do $$$AssertEquals(GADataItemIterator.Next().WAARDE,"UT_TestWaarde02") Do $$$AssertFalse(GADataItemIterator.HasNext(),"Iterator bevat nog meer items.") } ]]> UT_LadeCodeUT_LadeDiepteUT_ImageUrlUT_DossierNummer" Set XMLString = XMLString _ "UT_TestWaarde01"_"UT_TestWaarde02" #dim TopTag As %String = "GAPROD" #dim ItemList As BL.Legacy.GADataProduct.impl.XMLParser.ItemList = ..XMLParser.GeefItemListVoorGADataXML(..GeefStreamVoorItemListXML(XMLString,TopTag,"OMS=""UT_Titel"""), TopTag) If $$$AssertTrue($IsObject(ItemList)) { Do $$$AssertEquals(ItemList.Titel,"UT_Titel") Do $$$AssertEquals(ItemList.LADECODE,"UT_LadeCode") Do $$$AssertEquals(ItemList.LADEDIEPTE,"UT_LadeDiepte") Do $$$AssertEquals(ItemList.IMAGEURL,"UT_ImageUrl") Do $$$AssertEquals(ItemList.DOSSIERNR,"UT_DossierNummer") If $$$AssertEquals(ItemList.ITEM.Count(),2) { Do $$$AssertEquals(ItemList.ITEM.GetAt(1).WAARDE,"UT_TestWaarde01") Do $$$AssertEquals(ItemList.ITEM.GetAt(2).WAARDE,"UT_TestWaarde02") } } ]]> Het volledige ITEM Bodem568122Bodemstrook, {vhINVERS}wit{/vhINVERS}, 376mmSPF.B400 B-STR2840 BZWI{vhINVERS}SPF.B400{/vhINVERS}{NBSP/}{NBSP/}{NBSP/}B-STR2840{NBSP/}BZWI1788" #dim GADataItemIterator As TECH.Iterator = ..GeefGADataItemIteratorVoorXML(XMLString) If $$$AssertTrue(GADataItemIterator.HasNext()) { #dim GADataItem As BL.Legacy.GADataProduct.impl.XMLParser.ITEM = GADataItemIterator.Next() // Volledig object vergelijken ;Do $$$AssertObject(GADataItem,VerwachteItem,"DataItem is correct") Do $$$AssertObject(GADataItem.GROEP,VerwachteItem.GROEP,"Groep-object is correct") Do $$$AssertObject(GADataItem.QTY,VerwachteItem.QTY,"Qty-object is correct") If $$$AssertEquals(GADataItem.DIMHF.Count(),1) { Do $$$AssertObject(GADataItem.DIMHF.GetAt(1),VerwachteItem.DIMHF.GetAt(1),"DimHF-object is correct") } } ]]> XMLString:%String,TopTag:%String,Attribute1:%String="" 1 %GlobalCharacterStream ") Do XMLstream.Write(XMLString) Do XMLstream.Write("") Quit XMLstream ]]> XMLString:%String 1 TECH.Iterator