Index: vhUnitTest/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI/IsSmalleLadeBepaler/Test.cls.xml
===================================================================
diff -u -r57878 -r58020
--- vhUnitTest/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI/IsSmalleLadeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 57878)
+++ vhUnitTest/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI/IsSmalleLadeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58020)
@@ -4,28 +4,21 @@
 <Super>vhUnitTest.TestCase</Super>
 
 <Method name="Test: LBX breedte kleiner dan 237 is een smalle lade">
-<Implementation><![CDATA[
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).DummyLade()
-	Set LBXKenmerken.InterneBreedte = 236
-
-	Set ExtremaStandaardladeMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Standaardlade).%New()
-	Do ExtremaStandaardladeMock.VerwachtMethodCall("GeefMinimumBreedte",LBXKenmerken).DanReturn(237)
-	
-	Set CorpusBreedteBepalerMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Lade.CorpusBreedteBepaler).%New()
-	Do CorpusBreedteBepalerMock.VerwachtMethodCall("GeefCorpusBreedte",LBXKenmerken,"").DanReturn(LBXKenmerken.InterneBreedte)
-	
-	Set IsSmalleLadeBepaler = ##class(DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI.IsSmalleLadeBepaler).%New(ExtremaStandaardladeMock, CorpusBreedteBepalerMock)
-	
-	Do $$$AssertTrue(IsSmalleLadeBepaler.IsSmalleLade(LBXKenmerken))
-	Do CorpusBreedteBepalerMock.Verifieer()
-	Do ExtremaStandaardladeMock.Verifieer()
+<Implementation><![CDATA[	Do ..AssertSmalleLade(236, $$$True)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: LBX breedte vanaf 237 is geen smalle lade">
+<Implementation><![CDATA[	Do ..AssertSmalleLade(237, $$$False)
+]]></Implementation>
+</Method>
+
+<Method name="AssertSmalleLade">
+<FormalSpec>Breedte:%Numeric,VerwachteWaarde:%Boolean</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).DummyLade()
-	Set LBXKenmerken.InterneBreedte = 237
+	Set LBXKenmerken.InterneBreedte = Breedte
 
 	Set ExtremaStandaardladeMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Standaardlade).%New()
 	Do ExtremaStandaardladeMock.VerwachtMethodCall("GeefMinimumBreedte",LBXKenmerken).DanReturn(237)
@@ -35,7 +28,7 @@
 	
 	Set IsSmalleLadeBepaler = ##class(DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI.IsSmalleLadeBepaler).%New(ExtremaStandaardladeMock, CorpusBreedteBepalerMock)
 	
-	do $$$AssertFalse(IsSmalleLadeBepaler.IsSmalleLade(LBXKenmerken))
+	do $$$AssertEquals(IsSmalleLadeBepaler.IsSmalleLade(LBXKenmerken), VerwachteWaarde)
 	Do CorpusBreedteBepalerMock.Verifieer()
 	Do ExtremaStandaardladeMock.Verifieer()
 ]]></Implementation>