Index: vhUnitTest/APPS/PM/Maatwerk/End2End/common/KostAsserter.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/End2End/common/KostAsserter.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/End2End/common/KostAsserter.cls.xml	(revision 30246)
@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.End2End.common.KostAsserter">
+<Super>TECH.RegisteredObject,DOM.PM.Maatwerk.Calc.Kost.IKostItemVisitor</Super>
+
+<Property name="Test">
+<Type>Tools.Test.TestCase</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KostNaam">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Kosten">
+<Type>DOM.PM.Maatwerk.Calc.Kost.KostItem</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Test:Tools.Test.TestCase</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Test = Test
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="AssertRolAanwezig">
+<FormalSpec>Kost:TECH.String,KostItemBoom:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem</FormalSpec>
+<Implementation><![CDATA[
+	#dim Kosten As list Of DOM.PM.Maatwerk.Calc.Kost.KostItem = ..BepaalKosten(Kost, KostItemBoom)
+	Do ..Test.Asserter.AssertTrueViaMacro("",Kosten.Count()=1)
+]]></Implementation>
+</Method>
+
+<Method name="AssertRolNietAanwezig">
+<FormalSpec>Kost:TECH.String,KostItemBoom:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem</FormalSpec>
+<Implementation><![CDATA[
+	#dim Kosten As list Of DOM.PM.Maatwerk.Calc.Kost.KostItem = ..BepaalKosten(Kost, KostItemBoom)
+	Do ..Test.Asserter.AssertTrueViaMacro("",Kosten.Count()=0)
+]]></Implementation>
+</Method>
+
+<Method name="BepaalKosten">
+<FormalSpec>Kost:TECH.String,KostItemBoom:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set ..KostNaam = Kost
+	Set ..Kosten = ##class(%ListOfObjects).%New()
+	Do ..ItereerKostItems(KostItemBoom.GeefKostItemsIterator())
+	Quit ..Kosten
+]]></Implementation>
+</Method>
+
+<Method name="ItereerKostItems">
+<FormalSpec>KostItemsIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	While KostItemsIterator.HasNext() {
+		#dim KostItem As DOM.PM.Maatwerk.Calc.Kost.KostItem = KostItemsIterator.Next()
+		If KostItem.GeefVolledigeNaam() = ..KostNaam {
+			Do ..Kosten.Insert(KostItem)
+		}
+		If KostItem.%Extends(##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%ClassName(1)) {
+			#dim SamengesteldKostItem As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = KostItem
+			Do ..ItereerKostItems(SamengesteldKostItem.GeefKostItemsIterator())
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>