Index: vhUnitTest/Derde/EC/ToegangRepository/ZoekGebruikerIDViaEmail/Test.cls.xml
===================================================================
diff -u -r40961 -r40962
--- vhUnitTest/Derde/EC/ToegangRepository/ZoekGebruikerIDViaEmail/Test.cls.xml	(.../Test.cls.xml)	(revision 40961)
+++ vhUnitTest/Derde/EC/ToegangRepository/ZoekGebruikerIDViaEmail/Test.cls.xml	(.../Test.cls.xml)	(revision 40962)
@@ -17,22 +17,40 @@
 <Private>1</Private>
 </Property>
 
-<Method name="TestGeenGebruikerGevonden">
+<Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
+	Do ##super()
+	Set ..ToegangRepository = ##class(Derde.EC.ToegangRepository).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set GebruikerIterator = ##class(TECH.ListIterator).%New(..DummyToegangGebruikers)
+	While GebruikerIterator.HasNext() {
+		Do GebruikerIterator.Next().Delete()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen Gebruiker Gevonden">
+<Implementation><![CDATA[
 	#dim IDLijst As %ListOfDataTypes = ..ToegangRepository.ZoekGebruikerIDViaEmail(..#DummyMail)
 	Do $$$AssertEquals(IDLijst.Count(),0)
 ]]></Implementation>
 </Method>
 
-<Method name="Test1BestaandeGebruikerMetToegang">
+<Method name="Test: 1 bestaande gebruiker met toegang">
 <Implementation><![CDATA[
 	Do ..MaakDummyToegangsGebruiker(1)
 	#dim IDLijst As %ListOfDataTypes = ..ToegangRepository.ZoekGebruikerIDViaEmail(..#DummyMail)
 	Do $$$AssertEquals(IDLijst.Count(),1)
 ]]></Implementation>
 </Method>
 
-<Method name="Test2BestaandeGebruikerMetToegang">
+<Method name="Test: 2 bestaande gebruikers met toegang">
 <Implementation><![CDATA[
 	Do ..MaakDummyToegangsGebruiker(1)
 	Do ..MaakDummyToegangsGebruiker(1)
@@ -52,24 +70,6 @@
 	Do ..DummyToegangGebruikers.Insert(DummyToegangGebruiker)
 ]]></Implementation>
 </Method>
-
-<Method name="OnAfterOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
-	Do ##super(aTestName)
-	Set GebruikerIterator = ##class(TECH.ListIterator).%New(..DummyToegangGebruikers)
-	While GebruikerIterator.HasNext() {
-		Do GebruikerIterator.Next().Delete()
-	}
-]]></Implementation>
-</Method>
-
-<Method name="OnBeforeAllTests">
-<Implementation><![CDATA[
-	Do ##super()
-	Set ..ToegangRepository = ##class(Derde.EC.ToegangRepository).%New()
-]]></Implementation>
-</Method>
 </Class>