Index: vhUnitTest/APPS/VKP/Korting/impl/KortingService/KortingServiceHelper/GeefVariantenVoorPersonality/Test.cls.xml
===================================================================
diff -u -r67197 -r67686
--- vhUnitTest/APPS/VKP/Korting/impl/KortingService/KortingServiceHelper/GeefVariantenVoorPersonality/Test.cls.xml	(.../Test.cls.xml)	(revision 67197)
+++ vhUnitTest/APPS/VKP/Korting/impl/KortingService/KortingServiceHelper/GeefVariantenVoorPersonality/Test.cls.xml	(.../Test.cls.xml)	(revision 67686)
@@ -42,6 +42,23 @@
 	Do $$$AssertEqualsListbuild(Varianten, VerwachteVarianten)
 ]]></Implementation>
 </Method>
+
+<Method name="Test Niet-Haefele Personality bevat enkel TBX_Antaro">
+<Implementation><![CDATA[
+	#dim PersonalityIDOngeldig As DOM.common.enu.Personality = "Ongeldige PersonalityID"
+	#dim PersonalityIDSFS As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).SFS()
+	#dim PersonalityIDDupont As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).Dupont()
+	
+	#dim VariantenOngeldig As %ListOfDataTypes = ..KortingServiceHelper.GeefVariantenVoorPersonality(PersonalityIDOngeldig)
+	#dim VariantenSFS As %ListOfDataTypes = ..KortingServiceHelper.GeefVariantenVoorPersonality(PersonalityIDSFS)
+	#dim VariantenDupont As %ListOfDataTypes = ..KortingServiceHelper.GeefVariantenVoorPersonality(PersonalityIDDupont)
+	#dim VerwachteVarianten As %ListOfDataTypes = $ListBuild("TBX_Antaro")
+	
+	Do $$$AssertEqualsListbuild(VariantenOngeldig, VerwachteVarianten)
+	Do $$$AssertEqualsListbuild(VariantenSFS, VerwachteVarianten)
+	Do $$$AssertEqualsListbuild(VariantenDupont, VerwachteVarianten)
+]]></Implementation>
+</Method>
 </Class>