1 vhUnitTest.TestCase 62165,38576.334646 62159,61432.98957 0 %Status %Status Multiple Korttekst:%String,VerwachtAantal:%Integer 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") ]]> Classificatie:DOM.PM.Classificatie,Groep:%String 1