Index: vhUnitTest/DOM/common/impl/VanHoeckeGebruikerBeheerder/Test.cls.xml
===================================================================
diff -u -r37653 -r39750
--- vhUnitTest/DOM/common/impl/VanHoeckeGebruikerBeheerder/Test.cls.xml	(.../Test.cls.xml)	(revision 37653)
+++ vhUnitTest/DOM/common/impl/VanHoeckeGebruikerBeheerder/Test.cls.xml	(.../Test.cls.xml)	(revision 39750)
@@ -33,6 +33,12 @@
 <Private>1</Private>
 </Property>
 
+<Property name="GebruikerEmail">
+<Type>TECH.String</Type>
+<InitialExpression>"WillekeurigeGebruikerEmail"</InitialExpression>
+<Private>1</Private>
+</Property>
+
 <Property name="GebruikerBeheerder">
 <Type>DOM.common.VanHoeckeGebruikerBeheerder</Type>
 <Private>1</Private>
@@ -66,6 +72,7 @@
 <Implementation><![CDATA[
 	Do ..AssertGebruiker(..GebruikerBeheerder.GeefGebruiker(..GebruikerId))
 	Do ..AssertGebruiker(..GebruikerBeheerder.GeefGebruikerViaPincode(..Pincode))
+	Do ..AssertGebruiker(..GebruikerBeheerder.GeefGebruikerViaEmail(..GebruikerEmail))
 ]]></Implementation>
 </Method>
 
@@ -91,13 +98,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Exceptie wordt geraised indien Email niet gevonden wordt">
+<Implementation><![CDATA[
+	#dim OnbestaandEmailAdres As TECH.String = "OnbestaandEmailAdres"
+	
+	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen gebruiker gevonden met Email ", OnbestaandEmailAdres)
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Omschrijvingen))
+	
+	Do ..GebruikerBeheerder.GeefGebruikerViaEmail(OnbestaandEmailAdres)
+]]></Implementation>
+</Method>
+
 <Method name="AssertGebruiker">
 <FormalSpec>Gebruiker:DOM.common.VanHoeckeGebruiker</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do $$$AssertEquals(Gebruiker.GeefVhUserID(), ..GebruikerId)
 	Do $$$AssertEquals(Gebruiker.GeefInitialen(), ..GebruikerInitialen)
 	Do $$$AssertEquals(Gebruiker.GeefNaam(), ..GebruikerNaamExtern)
+	Do $$$AssertEquals(Gebruiker.GeefEmailAdres(), ##class(TECH.StringUtils).ToLower(..GebruikerEmail))
 ]]></Implementation>
 </Method>
 
@@ -106,6 +125,7 @@
 <Implementation><![CDATA[
 	Set ^vhUSER("IW", ..Pincode) = ..GebruikerId
 	Set ^vhUSER("D", ..GebruikerId) = "\" _ ..GebruikerNaamIntern _"\\" _ ..GebruikerInitialen _ "\" _ ..GebruikerNaamExtern _ "\\\\\\\\\\\\"
+	Set ^vhUSER("D", ..GebruikerId,"M") = "\\\\\\\\\\\\" _ ..GebruikerEmail _"\"
 ]]></Implementation>
 </Method>