Do ##class(vhUnitTest.Manager).RunTest("","APPS.PM.TestProductService") 1 vhUnitTest.TestCase 62188,43172.836947 62159,61432.98957 0 %Status %Status Multiple Korttekst:%String,VerwachtAantal:%Integer 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") ]]> Test die nagaat of opgegeven PRNrs bestaan voor de opgegeven leverancier. Testen of de productafbeeldingen meekomen bij een productzoek 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