Index: vhUnitTest/APPS/Verpakking/OrgaluxBonOptimizer/Test.cls.xml
===================================================================
diff -u -r72361 -r72367
--- vhUnitTest/APPS/Verpakking/OrgaluxBonOptimizer/Test.cls.xml	(.../Test.cls.xml)	(revision 72361)
+++ vhUnitTest/APPS/Verpakking/OrgaluxBonOptimizer/Test.cls.xml	(.../Test.cls.xml)	(revision 72367)
@@ -77,6 +77,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestGegroepeerdeTaorIndeling">
+<Implementation><![CDATA[
+	#dim ProductID As %String = "TestTaorIndeling"
+	Set ^Prod.OptiBox.BoxDataD("PR",ProductID,1) = $lb("","Aantal","Params(""AANTAL"")","","1","1","","1","1","1","1",1,"506","","","","","","","",,"TAOR indelingen||Verzameldoos voor losse elastieken||1")
+	Set ^KUL(..#KlantID,"F",..#BonID,112)	=	"703002 \"_ProductID_"\2\\\4.01\35.6340288924558587#0\8\0.000000\0.000000\703002 \\\\1100\0.000000\KF6\\\\E1\EUR\10\1\66812\\\\\\\\\\\\\\\\\\\\\0\\\\\\\\\109063268\"
+	
+	#dim BoxDataList As List of DS.Prod.OptiBox.BoxDataMetID = ..OrgaluxBonOptimizer.GeefBoxDataVoorBonMetNesting(..#BonID)
+	#dim BoxDataListNaGroepering As List of DS.Prod.OptiBox.BoxDataMetID = ..OrgaluxBonOptimizer.GroepeerBoxDataIndienNodig(BoxDataList)
+	Do $$$AssertEquals(BoxDataListNaGroepering.Count(), 12)
+	Do $$$AssertEquals(BoxDataListNaGroepering.GetAt(2).OrigineleBoxDataID, "TAOR indelingen||Verzameldoos voor losse elastieken||1")
+	
+	Kill ^KUL(..#KlantID,"F",..#BonID,112)
+	Kill ^Prod.OptiBox.BoxDataD("PR",ProductID)
+]]></Implementation>
+</Method>
+
 <Method name="TestGeefBoxDataVanGegroepeerdeMatten">
 <Implementation><![CDATA[
 	#dim BoxDataListMetNesting As List of DS.Prod.OptiBox.BoxDataMetID = ..OrgaluxBonOptimizer.GeefBoxDataVoorBonMetNesting(..#BonID)