Do ##class(vhUnitTest.Manager).RunTest("","APPS.PM.TestProductService") 1 vhUnitTest.TestCase 62193,31085.770385 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