Index: vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/TAOR/Test.cls.xml
===================================================================
diff -u -r32273 -r33606
--- vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/TAOR/Test.cls.xml	(.../Test.cls.xml)	(revision 32273)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/TAOR/Test.cls.xml	(.../Test.cls.xml)	(revision 33606)
@@ -13,57 +13,42 @@
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 	
-	Set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
+	Set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
 ]]></Implementation>
 </Method>
 
-<Method name="Test TAORKenmerken">
-<Implementation><![CDATA[	Do ..AssertInfoDiverse(..TAORKenmerken, ..VerwachteInfoDiverseItems)
-]]></Implementation>
-</Method>
-
 <Method name="Test TAORKenmerken met Werktuigloze koppeling">
 <Implementation><![CDATA[
 	Set ..TAORKenmerken.KoppelingType = ..Enum.KoppelingType.Drevel
-	
-	Do ..VerwachteInfoDiverseItems.Insert("[DiverseTAXKoppeling]")
-	Do ..AssertInfoDiverse(..TAORKenmerken, ..VerwachteInfoDiverseItems)
+	Do ..AssertInfoDiverse(..TAORKenmerken, "[DiverseTAXKoppeling]")
 ]]></Implementation>
 </Method>
 
 <Method name="Test TAORKenmerken met AfdekkapKleur">
 <Implementation><![CDATA[
 	Set ..TAORKenmerken.AfdekkapBovenKleur = ..Enum.AfdekkapBovenKleur.AluminiumLook
-	
-	Do ..VerwachteInfoDiverseItems.Insert("[DiverseTAXEindkap]: [AL]")
-	Do ..AssertInfoDiverse(..TAORKenmerken, ..VerwachteInfoDiverseItems)
+	Do ..AssertInfoDiverse(..TAORKenmerken, "[DiverseTAXEindkap]: [AL]")
 ]]></Implementation>
 </Method>
 
 <Method name="Test losse component">
 <Implementation><![CDATA[
 	Set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenladeVerpaktIn(..Enum.VerpakkingType.LosseComponentenInBulk)
-	
-	Do ..VerwachteInfoDiverseItems.Insert("Losse component: Bodem")
-	Do ..AssertInfoDiverse(..TAORKenmerken, ..VerwachteInfoDiverseItems)
+	Do ..AssertInfoDiverse(..TAORKenmerken, "Losse component: Bodem")
 ]]></Implementation>
 </Method>
 
 <Method name="Test TAORKenmerken met GeleiderTechnologie TIP-ON">
 <Implementation><![CDATA[
 	Set ..TAORKenmerken.GeleiderTechnologie = ..Enum.GeleiderTechnologie.TIPON
-	
-	Do ..VerwachteInfoDiverseItems.Insert("[DiverseTipon]")
-	Do ..AssertInfoDiverse(..TAORKenmerken, ..VerwachteInfoDiverseItems)
+	Do ..AssertInfoDiverse(..TAORKenmerken, "[DiverseTipon]")
 ]]></Implementation>
 </Method>
 
 <Method name="Test TAORKenmerken met GeleiderTechnologie TIP-ON BLUMOTION">
 <Implementation><![CDATA[
 	Set ..TAORKenmerken.GeleiderTechnologie = ..Enum.GeleiderTechnologie.TIPONBLUMOTION
-	
-	Do ..VerwachteInfoDiverseItems.Insert("[DiverseTOB]")
-	Do ..AssertInfoDiverse(..TAORKenmerken, ..VerwachteInfoDiverseItems)
+	Do ..AssertInfoDiverse(..TAORKenmerken, "[DiverseTOB]")
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/LBX/Test.cls.xml
===================================================================
diff -u -r32363 -r33606
--- vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/LBX/Test.cls.xml	(.../Test.cls.xml)	(revision 32363)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/LBX/Test.cls.xml	(.../Test.cls.xml)	(revision 33606)
@@ -13,39 +13,28 @@
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 
-	Set ..LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Set ..LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
 ]]></Implementation>
 </Method>
 
-<Method name="Test LBXKenmerken">
-<Implementation><![CDATA[	Do ..AssertInfoDiverse(..LBXKenmerken, ..VerwachteInfoDiverseItems)
-]]></Implementation>
-</Method>
-
 <Method name="Test LBXKenmerken met Tip-on Blumotion">
 <Implementation><![CDATA[
 	Set ..LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()
-	
-	Do ..VerwachteInfoDiverseItems.Insert("[DiverseTOB]")
-	Do ..AssertInfoDiverse(..LBXKenmerken, ..VerwachteInfoDiverseItems)
+	Do ..AssertInfoDiverse(..LBXKenmerken, "[DiverseTOB]")
 ]]></Implementation>
 </Method>
 
 <Method name="Test LBXKenmerken met ZijwandType Free">
 <Implementation><![CDATA[
 	Set ..LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free()
-	
-	Do ..VerwachteInfoDiverseItems.Insert("[DiverseLBXFree]")
-	Do ..AssertInfoDiverse(..LBXKenmerken, ..VerwachteInfoDiverseItems)
+	Do ..AssertInfoDiverse(..LBXKenmerken, "[DiverseLBXFree]")
 ]]></Implementation>
 </Method>
 
 <Method name="Test LBXKenmerken met Tip-on">
 <Implementation><![CDATA[
 	Set ..LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON()
-	
-	Do ..VerwachteInfoDiverseItems.Insert("[DiverseTipon]")
-	Do ..AssertInfoDiverse(..LBXKenmerken, ..VerwachteInfoDiverseItems)
+	Do ..AssertInfoDiverse(..LBXKenmerken, "[DiverseTipon]")
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/TestBase.cls.xml
===================================================================
diff -u -r29441 -r33606
--- vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 29441)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 33606)
@@ -4,31 +4,22 @@
 <Abstract>1</Abstract>
 <Super>vhUnitTest.TestCase</Super>
 
-<Property name="VerwachteInfoDiverseItems">
-<Type>%ListOfDataTypes</Type>
+<Property name="VerwachteInfoDiverseItem">
+<Type>%String</Type>
 <Private>1</Private>
 </Property>
 
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
-	Do ##super(aTestName)
-	
-	Set ..VerwachteInfoDiverseItems = ##class(%ListOfDataTypes).%New()
-]]></Implementation>
-</Method>
-
 <Method name="AssertInfoDiverse">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,VerwachteInfoDiverseItems:%ListOfDataTypes</FormalSpec>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,VerwachteInfoDiverseItem:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#Dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
-	#Dim StandaardVertalerStub As vhTest.Utils.Vertaler = ##class(vhTest.Utils.Vertaler).%New("")
-	#Dim KleurCodeVertalerStub As vhTest.Utils.Vertaler = ##class(vhTest.Utils.Vertaler).%New("")
-	#Dim InfoDiverseBepaler As DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler).%New(Taal, StandaardVertalerStub, KleurCodeVertalerStub)
-	#Dim InfoDiverseItems As %ListOfDataTypes = InfoDiverseBepaler.BepaalInfoDiverseItems(IngegevenKenmerken)
-	
-	Do $$$AssertEqualsList(InfoDiverseItems, VerwachteInfoDiverseItems)
+	#dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
+	#dim StandaardVertalerStub As vhTest.Utils.Vertaler = ##class(vhTest.Utils.Vertaler).%New("")
+	#dim KleurCodeVertalerStub As vhTest.Utils.Vertaler = ##class(vhTest.Utils.Vertaler).%New("")
+	#dim InfoDiverseBepaler As DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler).%New(Taal, StandaardVertalerStub, KleurCodeVertalerStub)
+	#dim InfoDiverseItems As %ListOfDataTypes = InfoDiverseBepaler.BepaalInfoDiverseItems(IngegevenKenmerken)
+
+	Do $$$AssertInList(InfoDiverseItems, VerwachteInfoDiverseItem)
 ]]></Implementation>
 </Method>
 </Class>