Index: vhUnitTest/DOM/VKP/impl/EindPersonalityBepaler/GeefEindPersonality/Test.cls.xml
===================================================================
diff -u -r51259 -r51260
--- vhUnitTest/DOM/VKP/impl/EindPersonalityBepaler/GeefEindPersonality/Test.cls.xml	(.../Test.cls.xml)	(revision 51259)
+++ vhUnitTest/DOM/VKP/impl/EindPersonalityBepaler/GeefEindPersonality/Test.cls.xml	(.../Test.cls.xml)	(revision 51260)
@@ -2,6 +2,55 @@
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.VKP.impl.EindPersonalityBepaler.GeefEindPersonality.Test">
 <Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Ketting met crappy data">
+<Implementation><![CDATA[
+	#dim Ketting As %String = $$$DummyString
+	
+	Do $$$AssertEquals(..VoerUit(Ketting).GeefID(), ##class(DOM.common.enu.Personality).VanHoecke())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Ketting met 0 items">
+<Implementation><![CDATA[
+	#dim Ketting As %String = "()"
+	
+	Do $$$AssertEquals(..VoerUit(Ketting).GeefID(), ##class(DOM.common.enu.Personality).VanHoecke())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Ketting met 1 items (bv Van Hoecke)">
+<Implementation><![CDATA[
+	#dim Ketting As %String = "((1, ""K||7833"", 255025))"
+	
+	Do $$$AssertEquals(..VoerUit(Ketting).GeefID(), ##class(DOM.common.enu.Personality).VanHoecke())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Ketting met 2 items (bv Hein -&gt; Van Hoecke)">
+<Implementation><![CDATA[
+	#dim Ketting As %String = "((11, ""hein_221"", 255024), (1, ""K||7833"", 255025))"
+	
+	Do $$$AssertEquals(..VoerUit(Ketting).GeefID(), ##class(DOM.common.enu.Personality).Hein())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Ketting met 3 items (bv Seefelder -&gt; Hein -&gt; Van Hoecke)">
+<Implementation><![CDATA[
+	#dim Ketting As %String = "((13, ""seefelder"", 1234), (11, ""hein_221"", 255024), (1, ""K||7833"", 255025))"
+	
+	Do $$$AssertEquals(..VoerUit(Ketting).GeefID(), ##class(DOM.common.enu.Personality).Seefelder())
+]]></Implementation>
+</Method>
+
+<Method name="VoerUit">
+<FormalSpec>Ketting:%String</FormalSpec>
+<ReturnType>DOM.common.Personality</ReturnType>
+<Implementation><![CDATA[
+	Set EindPersonalityBepaler = ##class(DOM.VKP.impl.EindPersonalityBepaler).%New()
+	Quit EindPersonalityBepaler.GeefEindPersonality(Ketting)
+]]></Implementation>
+</Method>
 </Class>