Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.TestProductService") APPS.PM.OL.Common 1 vhUnitTest.TestCase vhUnitTest.DOM.PM.TestData 1 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") ]]> Als verdwijnende of ontstaande producten met overeenkomstige dossiernummers te lastig zijn, om deze test te onderhouden, dan kunnen we test-producten gaan gebruiken. Testen of de productafbeeldingen meekomen bij een productzoek Testen of de productafbeeldingen meekomen bij een productzoek HerkendeProducten:%ListOfObjects 1 Classificatie:DOM.PM.ClassificatieKnoop,Groep:%String 1