Index: vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/ZoekVerpakkingen/Test.cls.xml
===================================================================
diff -u -r37552 -r37558
--- vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/ZoekVerpakkingen/Test.cls.xml	(.../Test.cls.xml)	(revision 37552)
+++ vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/ZoekVerpakkingen/Test.cls.xml	(.../Test.cls.xml)	(revision 37558)
@@ -4,28 +4,25 @@
 <Super>vhUnitTest.TestCase</Super>
 
 <Method name="Test: geeft lege lijst indien geen overeenkomstig LadeType met FlatpackV1">
-<Implementation><![CDATA[
-	#dim VerpakkingTypeFlatpackV1 As APPS.VKP.Offerte.enu.VerpakkingType = ##class(APPS.VKP.Offerte.enu.VerpakkingType).FlatpackV1()
-	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = ##class(vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList).GeefVerpakkingsList()
-	#dim VerpakkingListResultaat As TECH.ListOfObjects = VerpakkingList.ZoekVerpakkingen(VerpakkingTypeFlatpackV1, "")
-	Do $$$AssertEquals(VerpakkingListResultaat.Count(),0)
+<Implementation><![CDATA[	Do ..AssertVerpakkingList(##class(APPS.VKP.Offerte.enu.VerpakkingType).FlatpackV1())
 ]]></Implementation>
 </Method>
 
 <Method name="Test: geeft lege lijst indien geen overeenkomstig LadeType met V1">
-<Implementation><![CDATA[
-	#dim VerpakkingTypeV1 As APPS.VKP.Offerte.enu.VerpakkingType = ##class(APPS.VKP.Offerte.enu.VerpakkingType).V1()
-	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = ##class(vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList).GeefVerpakkingsList()
-	#dim VerpakkingListResultaat As TECH.ListOfObjects = VerpakkingList.ZoekVerpakkingen(VerpakkingTypeV1, "")
-	Do $$$AssertEquals(VerpakkingListResultaat.Count(),0)
+<Implementation><![CDATA[	Do ..AssertVerpakkingList(##class(APPS.VKP.Offerte.enu.VerpakkingType).V1())
 ]]></Implementation>
 </Method>
 
 <Method name="Test: geeft lege lijst indien geen overeenkomstig LadeType met Probox">
+<Implementation><![CDATA[	Do ..AssertVerpakkingList(##class(APPS.VKP.Offerte.enu.VerpakkingType).Probox())
+]]></Implementation>
+</Method>
+
+<Method name="AssertVerpakkingList">
+<FormalSpec>VerpakkingType:APPS.VKP.Offerte.enu.VerpakkingType</FormalSpec>
 <Implementation><![CDATA[
-	#dim VerpakkingTypeProbox As APPS.VKP.Offerte.enu.VerpakkingType = ##class(APPS.VKP.Offerte.enu.VerpakkingType).Probox()
 	#dim VerpakkingList As APPS.VKP.Offerte.dto.VerpakkingList = ##class(vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList).GeefVerpakkingsList()
-	#dim VerpakkingListResultaat As TECH.ListOfObjects = VerpakkingList.ZoekVerpakkingen(VerpakkingTypeProbox, "")
+	#dim VerpakkingListResultaat As TECH.ListOfObjects = VerpakkingList.ZoekVerpakkingen(VerpakkingType, "")
 	Do $$$AssertEquals(VerpakkingListResultaat.Count(),0)
 ]]></Implementation>
 </Method>