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 Multiple 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") ]]> 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