Index: vhUnitTest/Derde/EC/ToegangRepository/ZoekGebruikerIDViaEmail/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/Derde/EC/ToegangRepository/ZoekGebruikerIDViaEmail/Test.cls.xml	(revision 0)
+++ vhUnitTest/Derde/EC/ToegangRepository/ZoekGebruikerIDViaEmail/Test.cls.xml	(revision 40961)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Derde.EC.ToegangRepository.ZoekGebruikerIDViaEmail.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="DummyMail">
+<Default>dummy@dum.my</Default>
+</Parameter>
+
+<Property name="DummyToegangGebruikers">
+<Type>%ListOfObjects</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToegangRepository">
+<Type>Derde.EC.ToegangRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="TestGeenGebruikerGevonden">
+<Implementation><![CDATA[
+	#dim IDLijst As %ListOfDataTypes = ..ToegangRepository.ZoekGebruikerIDViaEmail(..#DummyMail)
+	Do $$$AssertEquals(IDLijst.Count(),0)
+]]></Implementation>
+</Method>
+
+<Method name="Test1BestaandeGebruikerMetToegang">
+<Implementation><![CDATA[
+	Do ..MaakDummyToegangsGebruiker(1)
+	#dim IDLijst As %ListOfDataTypes = ..ToegangRepository.ZoekGebruikerIDViaEmail(..#DummyMail)
+	Do $$$AssertEquals(IDLijst.Count(),1)
+]]></Implementation>
+</Method>
+
+<Method name="Test2BestaandeGebruikerMetToegang">
+<Implementation><![CDATA[
+	Do ..MaakDummyToegangsGebruiker(1)
+	Do ..MaakDummyToegangsGebruiker(1)
+	#dim IDLijst As %ListOfDataTypes = ..ToegangRepository.ZoekGebruikerIDViaEmail(..#DummyMail)
+	Do $$$AssertEquals(IDLijst.Count(),2)
+]]></Implementation>
+</Method>
+
+<Method name="MaakDummyToegangsGebruiker">
+<FormalSpec>HasAcces:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set DummyToegangGebruiker = ##class(Derde.EC.Toegang).%New()
+	Set DummyToegangGebruiker.EmailAdres = ..#DummyMail
+	Set DummyToegangGebruiker.HasAccess = HasAcces
+	Do DummyToegangGebruiker.Save()
+	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>
+
+
+</Export>
Index: BL/EC/Toegang.cls.xml
===================================================================
diff -u -r29059 -r40961
--- BL/EC/Toegang.cls.xml	(.../Toegang.cls.xml)	(revision 29059)
+++ BL/EC/Toegang.cls.xml	(.../Toegang.cls.xml)	(revision 40961)
@@ -84,7 +84,7 @@
 
 <UDLText name="T">
 <Content><![CDATA[
-//IP agent name
+// IP agent name
 
 ]]></Content>
 </UDLText>
@@ -816,20 +816,6 @@
 	Do o.%Save()
 ]]></Implementation>
 </Method>
-
-<Method name="GeefGebruikerIDsVoorEmail">
-<FormalSpec>Email:%String</FormalSpec>
-<ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[
-	Set GebruikerIDLijst = ##class(%ListOfDataTypes).%New() 
-	#dim Query As %String = "select ID, HasAccess from derde_ec.Toegang where EmailAdres Like ?"
-	#dim ResultSet As TECH.ResultSet = ##class(TECH.ResultSet).Create(Query, $ListBuild(Email))
-	while ResultSet.Next() {
-			Do GebruikerIDLijst.Insert(ResultSet.Data("ID"))
-	}
-	Quit GebruikerIDLijst
-]]></Implementation>
-</Method>
 </Class>
 
 
FishEye: Tag 40961 refers to a dead (removed) revision in file `vhUnitTest/BL/EC/Toegang/GeefGebruikerIDsVoorEmail/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?