Index: vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/VerpakkingEenheden/Test.cls.xml
===================================================================
diff -u -r69222 -r69226
--- vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/VerpakkingEenheden/Test.cls.xml	(.../Test.cls.xml)	(revision 69222)
+++ vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/VerpakkingEenheden/Test.cls.xml	(.../Test.cls.xml)	(revision 69226)
@@ -111,19 +111,19 @@
 <Method name="TestLeveringMeerdereVerpakkingEenheden">
 <Implementation><![CDATA[
 	; Arrange
-	set VerpakkingEenhedenDrieItems = ##class(%ListOfObjects).%New()
-	do VerpakkingEenhedenDrieItems.Insert(##class(vhUnitTest.APPS.TRANSP.VerpakkingEenheidMock).%New(##class(DOM.TRANSP.enu.VerpakkingEenheidType).Colli()))
-	do VerpakkingEenhedenDrieItems.Insert(##class(vhUnitTest.APPS.TRANSP.VerpakkingEenheidMock).%New(##class(DOM.TRANSP.enu.VerpakkingEenheidType).Langgoed()))
-	do VerpakkingEenhedenDrieItems.Insert(##class(vhUnitTest.APPS.TRANSP.VerpakkingEenheidMock).%New(##class(DOM.TRANSP.enu.VerpakkingEenheidType).BuitenmaatsPallet()))
-	do VerpakkingEenhedenDrieItems.Insert(##class(vhUnitTest.APPS.TRANSP.VerpakkingEenheidMock).%New(##class(DOM.TRANSP.enu.VerpakkingEenheidType).WegwerpPallet()))	
+	set VerpakkingEenhedenVierItems = ##class(%ListOfObjects).%New()
+	do VerpakkingEenhedenVierItems.Insert(##class(vhUnitTest.APPS.TRANSP.VerpakkingEenheidMock).%New(##class(DOM.TRANSP.enu.VerpakkingEenheidType).Colli()))
+	do VerpakkingEenhedenVierItems.Insert(##class(vhUnitTest.APPS.TRANSP.VerpakkingEenheidMock).%New(##class(DOM.TRANSP.enu.VerpakkingEenheidType).Langgoed()))
+	do VerpakkingEenhedenVierItems.Insert(##class(vhUnitTest.APPS.TRANSP.VerpakkingEenheidMock).%New(##class(DOM.TRANSP.enu.VerpakkingEenheidType).BuitenmaatsPallet()))
+	do VerpakkingEenhedenVierItems.Insert(##class(vhUnitTest.APPS.TRANSP.VerpakkingEenheidMock).%New(##class(DOM.TRANSP.enu.VerpakkingEenheidType).WegwerpPallet()))
 	do ..MaakStubs()
 	
 	do ..LeveringStub.IndienMethodCall("GeefAantalColli").DanReturn(1)
 	do ..LeveringStub.IndienMethodCall("GeefAantalEuroPalletten").DanReturn(0)
 	do ..LeveringStub.IndienMethodCall("GeefAantalWegwerpPalletten").DanReturn(1)
 	do ..LeveringStub.IndienMethodCall("GeefAantalLanggoed").DanReturn(2)
 	do ..LeveringStub.IndienMethodCall("GeefAantalBuitenmaatsPalletten").DanReturn(3)
-	do ..LeveringStub.IndienMethodCall("GeefVerpakkingEenheden").DanReturn(VerpakkingEenhedenDrieItems)
+	do ..LeveringStub.IndienMethodCall("GeefVerpakkingEenheden").DanReturn(VerpakkingEenhedenVierItems)
 	do ..LeveringStub.IndienMethodCall("GeefBonIterator").DanReturn(##class(TECH.ListIterator).%New(##class(%ListOfObjects).%New()))
 	
 	; Act 
@@ -141,9 +141,10 @@
 			do $$$AssertEquals(3,LeveringInfo.VerpakkingEenheden.GetAt(2).Lengtes.GetAt(1))
 			do $$$AssertEquals(2,LeveringInfo.VerpakkingEenheden.GetAt(2).Lengtes.GetAt(2))
 		}
+		
+		do $$$AssertEquals( ##class(DOM.TRANSP.enu.VerpakkingEenheidType).WegwerpPallet() ,LeveringInfo.VerpakkingEenheden.GetAt(4).Type)
 		do $$$AssertEquals(1,LeveringInfo.VerpakkingEenheden.GetAt(4).Aantal,1)
-		Do ##class(Tools.Wlip).%New(207).ListOfObjectsToText(LeveringInfo.VerpakkingEenheden)
-		w !, LeveringInfo.VerpakkingEenheden.GetAt(4).Type
+		
 	}
 ]]></Implementation>
 </Method>