Index: vhUnitTest/DOM/PM/Maatwerk/impl/IngegevenKenmerkenTypeAPI/IsGemonteerdeLadeBepaler/IsGemonteerdeLade/Test.cls.xml
===================================================================
diff -u -r29774 -r38275
--- vhUnitTest/DOM/PM/Maatwerk/impl/IngegevenKenmerkenTypeAPI/IsGemonteerdeLadeBepaler/IsGemonteerdeLade/Test.cls.xml	(.../Test.cls.xml)	(revision 29774)
+++ vhUnitTest/DOM/PM/Maatwerk/impl/IngegevenKenmerkenTypeAPI/IsGemonteerdeLadeBepaler/IsGemonteerdeLade/Test.cls.xml	(.../Test.cls.xml)	(revision 38275)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI.IsGemonteerdeLadeBepaler.IsGemonteerdeLade.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="TestTaorLade">
+<Method name="Test: TaorLade is een gemonteerde lade">
 <Implementation><![CDATA[
 	#Dim TAORVerpakkingType As DOM.PM.enu.TAORVerpakkingType.AutoComplete = ##class(DOM.PM.enu.TAORVerpakkingType.AutoComplete).%New()
 	#Dim VerpakkingTypeIterator As TECH.Iterator = ##class(DOM.PM.enu.TAORVerpakkingType).ValueListIterator()
@@ -15,11 +15,11 @@
 		
 		If ##class(TECH.StringUtils).Equals(VerpakkingType, TAORVerpakkingType.V1, TAORVerpakkingType.Probox) {
 			Set VerwachteWaarde = $$$True
-		} ElseIf ##class(TECH.StringUtils).Equals(VerpakkingType, TAORVerpakkingType.BulkPerOnderdeelGegroepeerd, TAORVerpakkingType.FlatpackV1, TAORVerpakkingType.LosseComponentenInBulk) {
+		} ElseIf ##class(TECH.StringUtils).Equals(VerpakkingType, TAORVerpakkingType.BulkPerOnderdeelGegroepeerd, TAORVerpakkingType.FlatpackV1, TAORVerpakkingType.LosseComponentenInBulk, TAORVerpakkingType.FlatpackProcom) {
 			Set VerwachteWaarde = $$$False
 		}
 		
-		Do ..Assert(TAORKenmerken, VerwachteWaarde)
+		Do ..AssertIsGemonteerdeLade(TAORKenmerken, VerwachteWaarde)
 	}
 ]]></Implementation>
 </Method>
@@ -29,7 +29,7 @@
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Kaderdeur is geen lade en kan niet verwerkt worden door de IsGemonteerdeLadeBepaler")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.IllegalUsageException).%ClassName(1),Substrings))
 	
-	Do ..Assert(##class(DOM.PM.Maatwerk.Calc.Common.impl.KADKenmerken).%New())
+	Do ..AssertIsGemonteerdeLade(##class(DOM.PM.Maatwerk.Calc.Common.impl.KADKenmerken).%New())
 ]]></Implementation>
 </Method>
 
@@ -38,7 +38,7 @@
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Orgalux kenmerken zijn geen lade en kunnen niet verwerkt worden door de IsGemonteerdeLadeBepaler")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.IllegalUsageException).%ClassName(1),Substrings))
 	
-	Do ..Assert(##class(DOM.PM.Maatwerk.Calc.Common.impl.OLMKenmerken).%New())
+	Do ..AssertIsGemonteerdeLade(##class(DOM.PM.Maatwerk.Calc.Common.impl.OLMKenmerken).%New())
 ]]></Implementation>
 </Method>
 
@@ -47,11 +47,11 @@
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Een mat is geen lade en kan niet verwerkt worden door de IsGemonteerdeLadeBepaler")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.IllegalUsageException).%ClassName(1),Substrings))
 	
-	Do ..Assert(##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New())
+	Do ..AssertIsGemonteerdeLade(##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New())
 ]]></Implementation>
 </Method>
 
-<Method name="Assert">
+<Method name="AssertIsGemonteerdeLade">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,VerwachteWaarde:%Boolean=""</FormalSpec>
 <Implementation><![CDATA[
 	Set Bepaler = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI.IsGemonteerdeLadeBepaler).%New()