do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.VKP.TestAPI") 1 vhUnitTest.TestCase 62153,31330.744169 0 0,"De lijstprijs is ingevuld") Do $$$AssertTrue(VerkoopPrijsInfo.GeefVerkoopPrijs() > 0,"De verkoopprijs is ingevuld") Do $$$AssertTrue(VerkoopPrijsInfo.GeefVerkoopPrijsNaCommissie() > 0,"De verkoopprijs na commissie is ingevuld") Do $$$AssertTrue($IsObject(VerkoopPrijsInfo.GeefBerekeningsSpecificatie()),"De berekeningsspecificatie is ingesteld") ]]>