Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.TestProductService") APPS.PM.OL.Common 1 vhUnitTest.TestCase 0 vhUnitTest.DOM.PM.TestData 1 %Status %Status Geeft maar één PRNr]]> Korttekst:%String,VerwachtAantal:%Integer GeneratieTypes:%ListOfDataTypes 1 0,"Een leverancier heeft producten.") } */ ]]> 0, "Er zijn hoofdgroepen classificaties aanwezig.") Do ..ClassificatieControle(ClassificatieRoot.SubClassificaties.GetAt(1),"Hoofdgroep") Do $$$AssertTrue(ClassificatieRoot.SubClassificaties.GetAt(1).SubClassificaties.Count() > 0, "Er zijn groepen classificaties aanwezig.") Do ..ClassificatieControle(ClassificatieRoot.SubClassificaties.GetAt(1).SubClassificaties.GetAt(1),"Groep") Do $$$AssertTrue(ClassificatieRoot.SubClassificaties.GetAt(1).SubClassificaties.GetAt(1).SubClassificaties.Count() > 0, "Er zijn subgroepen classificaties aanwezig.") Do ..ClassificatieControle(ClassificatieRoot.SubClassificaties.GetAt(1).SubClassificaties.GetAt(1).SubClassificaties.GetAt(1),"Subgroep") ]]> Testen of de productafbeeldingen meekomen bij een productzoek Testen of de productafbeeldingen meekomen bij een productzoek HerkendeProducten:%ListOfObjects 1 Classificatie:DOM.PM.Classificatie,Groep:%String 1