do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.VKP.TestNieuwOrder") vhUnitTest.TestCase DOM.VKP.Order 1 DOM.common.PartijID 1 %String 1 100000) #dim OrderID As %String = ..Order.GeefID() Do $$$AssertTrue(##class(DOM.DomeinContext).Instance().GeefOrderAPI().BestaatOrder(OrderID)) Do ..ControleerIndexen() Do ..ControleerDefaults() Do ..ControleerHoofdingDataZetters() #dim TekstLijn As DOM.VKP.TekstOrderlijn = ..Order.MaakNieuweTekstLijn("Dit is de tekst") Do $$$AssertTrue($IsObject(TekstLijn)) Do ..Order.Save() Set TekstLijn = "" Set ..Order = "" // unswizzle Set ..Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(OrderID) Set TekstLijn = ..Order.GeefOrderLijnIterator().Next() Do $$$AssertEquals(TekstLijn.GeefTekst(),"Dit is de tekst") Do ##class(DOM.DomeinContext).Instance().GeefOrderAPI().VerwijderOrder(OrderID) ]]> 1 1 1