Index: vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestGeleiderCode.cls.xml
===================================================================
diff -u -r31017 -r69568
--- vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestGeleiderCode.cls.xml	(.../TestGeleiderCode.cls.xml)	(revision 31017)
+++ vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestGeleiderCode.cls.xml	(.../TestGeleiderCode.cls.xml)	(revision 69568)
@@ -5,10 +5,9 @@
 
 <Method name="Test">
 <Implementation><![CDATA[
-	do ..VerwachteWaarden.SetAt("3", ..Enum.Draagkracht.Draagkracht30)
 	do ..VerwachteWaarden.SetAt("4", ..Enum.Draagkracht.Draagkracht40)
-	do ..VerwachteWaarden.SetAt("5", ..Enum.Draagkracht.Draagkracht50)
-	do ..VerwachteWaarden.SetAt("6", ..Enum.Draagkracht.Draagkracht60)
+	do ..VerwachteWaarden.SetAt("7", ..Enum.Draagkracht.Draagkracht60) // Bij Draagkracht 60 kg wordt Geleider met Draagkracht 70 kg geselecteerd.
+	do ..VerwachteWaarden.SetAt("7", ..Enum.Draagkracht.Draagkracht70)
 	
 	do ..AssertWaarden(..TAORKenmerken, ##class(DOM.PM.enu.TAORDraagkracht).ValueListIterator(), ..Enum.KenmerkNaam.Draagkracht, 3, 3)
 ]]></Implementation>
@@ -28,6 +27,19 @@
 	quit Kenmerken
 ]]></Implementation>
 </Method>
+
+<Method name="AssertNodig">
+<FormalSpec>PropertyNaam:%String,Waarde:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	If ((PropertyNaam = ..Enum.KenmerkNaam.Draagkracht) && (##class(TECH.StringUtils).Equals(Waarde, ..Enum.Draagkracht.Draagkracht30, ..Enum.Draagkracht.Draagkracht50))) {
+		Quit $$$False
+	}
+	
+	Quit $$$True
+]]></Implementation>
+</Method>
 </Class>