Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder/Test.cls.xml
===================================================================
diff -u -r47356 -r47358
--- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 47356)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 47358)
@@ -5,12 +5,21 @@
 
 <Method name="Test : een order zonder orderlijnen wordt gesorteerd en bewaart een order zonder orderlijnen">
 <Implementation><![CDATA[
-	#dim Order As DOM.VKP.impl.DataM.DataMOrder = ..GeefOrder()
+	Set OnGesorteerdeOrderLijnenLijst = ##class(%ListOfObjects).%New()
+	Set VerwachteGesorteerdeOrderLijnenLijst = ##class(%ListOfObjects).%New()
 
-	Set LegeOrderLijnenLijst = ##class(%ListOfObjects).%New()
+	Do ..AssertSorteringOrderLijst(OnGesorteerdeOrderLijnenLijst, VerwachteGesorteerdeOrderLijnenLijst)
+]]></Implementation>
+</Method>
 
+<Method name="AssertSorteringOrderLijst">
+<FormalSpec>OnGesorteerdeOrderLijnenLijst:%ListOfObjects,VerwachteGesorteerdeOrderLijnenLijst:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Order As DOM.VKP.impl.DataM.DataMOrder = ..GeefOrder(OnGesorteerdeOrderLijnenLijst)
+
 	Set OrderLijnenUpdaterMock = ##class(vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.OrderLijnenUpdater).%New()
-	Do OrderLijnenUpdaterMock.VerwachtMethodCall("UpdateOrderMetGesorteerdeLijst", Order, ..Matches.List(LegeOrderLijnenLijst)).ExactAantalKeer(1).DanDoeNiks()
+	Do OrderLijnenUpdaterMock.VerwachtMethodCall("UpdateOrderMetGesorteerdeLijst", Order, ..Matches.List(VerwachteGesorteerdeOrderLijnenLijst)).ExactAantalKeer(1).DanDoeNiks()
 	
 	Set OrderlijnenSorteerder = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder).%New(OrderLijnenUpdaterMock)
 	Do OrderlijnenSorteerder.SorteerGepersisteerdeOrderLijnen(Order)
@@ -20,6 +29,7 @@
 </Method>
 
 <Method name="GeefOrder">
+<FormalSpec>OrderLijnen:%ListOfObjects</FormalSpec>
 <Private>1</Private>
 <ReturnType>vhTest.Mock.DOM.VKP.Order</ReturnType>
 <Implementation><![CDATA[
@@ -41,8 +51,8 @@
 	Do OrderMock.IndienMethodCall("GeefID").DanReturn("DummyOrderID")
 	Do OrderMock.IndienMethodCall("ZetTextVoorAfdrukDocumentType", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
 	Do OrderMock.IndienMethodCall("GeefTextlijnenVoorAfdrukDocumentType", $$$ElkeWaarde).DanReturn(..GeefTextLijnen())
-	Do OrderMock.IndienMethodCall("GeefOrderLijnIterator").DanReturn(..GeefOrderlijnenIterator())
-	Do OrderMock.IndienMethodCall("GeefOrderLijnen").DanReturn(..GeefOrderlijnen())
+	Do OrderMock.IndienMethodCall("GeefOrderLijnIterator").DanReturn(..GeefOrderlijnenIterator(OrderLijnen))
+	Do OrderMock.IndienMethodCall("GeefOrderLijnen").DanReturn(OrderLijnen)
 	Quit OrderMock
 ]]></Implementation>
 </Method>
@@ -57,10 +67,11 @@
 </Method>
 
 <Method name="GeefOrderlijnenIterator">
+<FormalSpec>OrderLijnen:%ListOfObjects</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.ListIterator</ReturnType>
 <Implementation><![CDATA[
-	Set OrderlijnenIterator = ##class(TECH.ListIterator).%New(##class(%ListOfObjects).%New(..GeefOrderlijnen()))
+	Set OrderlijnenIterator = ##class(TECH.ListIterator).%New(##class(%ListOfObjects).%New(OrderLijnen))
 	Quit OrderlijnenIterator
 ]]></Implementation>
 </Method>