Index: vhUnitTest/AXimpl/Admin/Common/GebruikerLookup/Test.cls.xml
===================================================================
diff -u -r43677 -r50674
--- vhUnitTest/AXimpl/Admin/Common/GebruikerLookup/Test.cls.xml	(.../Test.cls.xml)	(revision 43677)
+++ vhUnitTest/AXimpl/Admin/Common/GebruikerLookup/Test.cls.xml	(.../Test.cls.xml)	(revision 50674)
@@ -48,6 +48,30 @@
 	#dim GebruikerId as %String = GebruikerLookup.GeefGebruikerId("ADUsername")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: BestaatGebruiker geeft True">
+<Implementation><![CDATA[
+	#dim Values as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes($ListBuild("1"))
+	#dim Columns as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("ID")
+	Set QueryAPIFake = ##class(vhTest.Fake.TECH.Query.PrepareOnlyQueryAPI).%New(Values,Columns)
+	
+	Set GebruikerLookup = ##class(AXimpl.Admin.Common.GebruikerLookup).%New(QueryAPIFake)
+	#dim Result as %Boolean = GebruikerLookup.BestaatGebruiker("ADUsername")
+	
+	Do $$$AssertTrue(Result)
+]]></Implementation>
+</Method>
+
+<Method name="Test: BestaatGebruiker geeft False">
+<Implementation><![CDATA[
+	Set QueryAPIFake = ##class(vhTest.Fake.TECH.Query.PrepareOnlyQueryAPI).%New()
+	
+	Set GebruikerLookup = ##class(AXimpl.Admin.Common.GebruikerLookup).%New(QueryAPIFake)
+	#dim Result as %Boolean = GebruikerLookup.BestaatGebruiker("ADUsername")
+	
+	Do $$$AssertFalse(Result)
+]]></Implementation>
+</Method>
 </Class>