Index: vhUnitTest/APPS/TBXWeb/TestTBXContext.cls.xml
===================================================================
diff -u -r664 -r725
--- vhUnitTest/APPS/TBXWeb/TestTBXContext.cls.xml	(.../TestTBXContext.cls.xml)	(revision 664)
+++ vhUnitTest/APPS/TBXWeb/TestTBXContext.cls.xml	(.../TestTBXContext.cls.xml)	(revision 725)
@@ -55,6 +55,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestIsGebruikerToegelatenHFLE">
+<Implementation><![CDATA[
+	Set TBXContext=..GeefTBXContextHFLE()
+	Do $$$AssertEquals(TBXContext.IsGebruikerToegelaten("NL1234567"),1,"Klant NL1234567 is toegelaten op HFLE")
+	Do $$$AssertEquals(TBXContext.IsGebruikerToegelaten(1234555),1,"Klant 1234555 is toegelaten op HFLE")
+	Do $$$AssertEquals(TBXContext.IsGebruikerToegelaten(""),0,"Klant """" (leeg) is niet toegelaten op HFLE")
+]]></Implementation>
+</Method>
+
 <Method name="TestBulkConfigOptiesUitbreiden">
 <Implementation><![CDATA[
 	Set TBXContext=..GeefTBXContextVHEPN()
@@ -146,5 +155,13 @@
 	Quit TBXContext
 ]]></Implementation>
 </Method>
+
+<Method name="GeefTBXContextHFLE">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set TBXContext=##class(APPS.TBXWeb.TBXContext).%New($$$TBoxWebDomeinHFLE)
+	Quit TBXContext
+]]></Implementation>
+</Method>
 </Class>
 </Export>