Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.algemeen.VhintraShell.TestBeschikbareApplicatieService") vhUnitTest.TestCase %String 4682||1000 vhUnitTest.APPS.algemeen.VhintraShell.Data 0,"Er zijn applicaties ter beschikking gesteld.") #dim GevondenUnitTestAfdeling As %Boolean = 0 #dim GevondenAppGroep As %Boolean = 0 #dim GevondenApp As %Boolean = 0 #dim ApplicatiesVanAfdelingIt As TECH.Iterator = ##class(TECH.ListIterator).%New(ApplicatiesVanAfdelingen) While ApplicatiesVanAfdelingIt.HasNext() { #dim ApplicatiesVanAfdeling As APPS.algemeen.VhintraShell.dto.ApplicatiesVanAfdeling = ApplicatiesVanAfdelingIt.Next() Set:(ApplicatiesVanAfdeling.Afdeling.Label["UnitTestAfdeling") GevondenUnitTestAfdeling = 1 #dim ApplicatieGroepIt As TECH.Iterator = ##class(TECH.ListIterator).%New(ApplicatiesVanAfdeling.ApplicatieGroepen) While (ApplicatieGroepIt.HasNext()) { #dim ApplicatieGroep As APPS.algemeen.VhintraShell.dto.ApplicatieGroep = ApplicatieGroepIt.Next() Set:(ApplicatieGroep.Label = "UnitTestGroep3") GevondenAppGroep = 1 #dim ApplicatieIt As TECH.Iterator = ##class(TECH.ListIterator).%New(ApplicatieGroep.Applicaties) While ApplicatieIt.HasNext() { #dim Applicatie As APPS.algemeen.VhintraShell.dto.Applicatie = ApplicatieIt.Next() If (Applicatie.ApplicatieID="UnitTestApp3") { Set GevondenApp = 1 Do $$$AssertEquals(Applicatie.Icoon,"WijzigOfferte.jpg","Icoon van applicatie is correct.") Do $$$AssertEquals(Applicatie.Label,"Wijzig offerte","Label van applicatie is correct.") } } } } Do $$$AssertTrue(GevondenUnitTestAfdeling,"De unit test Afdeling is terug gevonden.") Do $$$AssertTrue(GevondenAppGroep,"De unit test ApplicatieGroep is terug gevonden.") Do $$$AssertTrue(GevondenApp,"De unit test Applicatie is terug gevonden.") ]]> 0,"Er zijn applicaties ter beschikking gesteld.") #dim GevondenUnitTestAfdeling As %Boolean = 0 #dim ApplicatiesVanAfdelingIt As TECH.Iterator = ##class(TECH.ListIterator).%New(ApplicatiesVanAfdelingen) While ApplicatiesVanAfdelingIt.HasNext() { #dim ApplicatiesVanAfdeling As APPS.algemeen.VhintraShell.dto.ApplicatiesVanAfdeling = ApplicatiesVanAfdelingIt.Next() Set:(ApplicatiesVanAfdeling.Afdeling.Label["UnitTestAfdeling") GevondenUnitTestAfdeling = 1 } Do $$$AssertFalse(GevondenUnitTestAfdeling,"De unit test Afdeling wordt niet meer getoond door de ontzegde permissies") Do ..VerwijderOntzegdePermissies() ]]> 1