Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.TestKenmerkenServiceGeef") 1 vhUnitTest.TestCase 0 vhUnitTest.DOM.PM.TestData 1 AManager:Tools.Test.Manager %Status Product met multipleNr's testen Product met multipleNr's testen Product met kenmerken in meerdere groepen testen. 0,"Er zijn kenmerkgroepen gevonden.") Do $$$AssertTrue($IsObject(KenmerkGroepen.GetAt(1))) Do $$$AssertEquals(KenmerkGroepen.GetAt(1).%ClassName(1),"APPS.PM.dto.Kenm.KenmerkGroepData") ]]> KenmerkMetadataNaam:%String 1 APPS.PM.dto.Kenm.KenmerkMetadata KenmerkMetadataNaam:%String,Waarde:%String 1 APPS.PM.dto.Kenm.ProductKenmerk PRNrStart:%Integer,PRNrStop:%Integer=PRNrStart 1 PRNrStart:%Integer,PRNrStop:%Integer=PRNrStart 1