FishEye: Tag 1501 refers to a dead (removed) revision in file `vhUnitTest/TECH/ListUtils/Groepeerder/GroepeerLijst/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/TECH/ListUtils/Groepeerder/GroepeerLijst/TestGroepeerGeenGroepering.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ListUtils/Groepeerder/GroepeerLijst/TestGroepeerGeenGroepering.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ListUtils/Groepeerder/GroepeerLijst/TestGroepeerGeenGroepering.cls.xml	(revision 1501)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ListUtils.Groepeerder.GroepeerLijst.TestGroepeerGeenGroepering">
+<Super>vhUnitTest.TECH.ListUtils.Groepeerder.GroepeerLijst.TestBase</Super>
+
+<Method name="Test: ProductieSequentieItemList met 0 waarden">
+<Implementation><![CDATA[	do ..AssertVerwachteGroepering(0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductieSequentieItemList met 1 waarde">
+<Implementation><![CDATA[	do ..AssertVerwachteGroepering(1,1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductieSequentieItemList met 2 waarden">
+<Implementation><![CDATA[	do ..AssertVerwachteGroepering(2,2)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductieSequentieItemList met veel waarden">
+<Implementation><![CDATA[	do ..AssertVerwachteGroepering(10,10)
+]]></Implementation>
+</Method>
+
+<Method name="GeefGroepeerder">
+<Private>1</Private>
+<ReturnType>TECH.ListUtils.Groepeerder</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.ListUtils.impl.GeenGroepering).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/ListUtils/impl/GeenGroepering.cls.xml
===================================================================
diff -u
--- TECH/ListUtils/impl/GeenGroepering.cls.xml	(revision 0)
+++ TECH/ListUtils/impl/GeenGroepering.cls.xml	(revision 1501)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.ListUtils.impl.GeenGroepering">
+<Super>TECH.RegisteredObject,TECH.ListUtils.Groepering</Super>
+
+<Property name="IsNieuweGroeperingNodig">
+<Type>%Boolean</Type>
+<InitialExpression>1</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Method name="BepaalVolgendID">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit "GeneriekeID"
+]]></Implementation>
+</Method>
+
+<Method name="IsNieuweGroeperingNodig">
+<FormalSpec>Iterator:TECH.Iterator</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsNieuweGroeperingNodig As %Boolean = ..IsNieuweGroeperingNodig
+	if ..IsNieuweGroeperingNodig set ..IsNieuweGroeperingNodig = $$$false
+	quit IsNieuweGroeperingNodig
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/ListUtils/impl/Groepeerder.cls.xml
===================================================================
diff -u -r1451 -r1501
--- TECH/ListUtils/impl/Groepeerder.cls.xml	(.../Groepeerder.cls.xml)	(revision 1451)
+++ TECH/ListUtils/impl/Groepeerder.cls.xml	(.../Groepeerder.cls.xml)	(revision 1501)
@@ -8,12 +8,11 @@
 <ReturnType>%ArrayOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="%ListOfObjects"</ReturnTypeParams>
 <Implementation><![CDATA[
-	
 	#dim Array As Array Of %ListOfObjects = ##class(%ArrayOfObjects).%New() 
 	#dim LijstIt As TECH.Iterator = ##class(TECH.ListIterator).%New(Lijst)
 	while LijstIt.HasNext() {
 		#dim Item As %Library.Base = LijstIt.Next()
-		if (Groepering.IsNieuweGroeperingNodig(LijstIt)) { 
+		if (Groepering.IsNieuweGroeperingNodig(LijstIt))  { 
 			set NieuweLijst = ##class(%ListOfObjects).%New()
 			do Array.SetAt(NieuweLijst,Groepering.BepaalVolgendID())
 		}
Index: vhUnitTest/TECH/ListUtils/Groepeerder/GroepeerLijst/TestBase.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ListUtils/Groepeerder/GroepeerLijst/TestBase.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ListUtils/Groepeerder/GroepeerLijst/TestBase.cls.xml	(revision 1501)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ListUtils.Groepeerder.GroepeerLijst.TestBase">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="AssertVerwachteGroepering">
+<FormalSpec>AantalItemsInLijst:%Integer,AantalItemsPerGroepering...:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Groepeerder As TECH.ListUtils.impl.Groepeerder = ##class(TECH.ListUtils.impl.Groepeerder).%New()
+	#dim InputLijst As %AbstractList = ..MaakLijst(AantalItemsInLijst)
+	#dim Array As %ArrayOfObjects = Groepeerder.GroepeerLijst(InputLijst,..GeefGroepeerder())
+		
+	if $$$AssertEquals(Array.Count(),+$get(AantalItemsPerGroepering)) {
+		set ArrayIterator = ##class(TECH.ListIterator).%New(Array)
+		#dim AantalItemsPerGroeperingIterator = ##class(TECH.ArrayOneDimIterator).%New(.AantalItemsPerGroepering)
+		while AantalItemsPerGroeperingIterator.HasNext() {
+			#dim List As %ListOfObjects = ArrayIterator.Next()
+			do $$$AssertEquals(List.Count(),AantalItemsPerGroeperingIterator.Next())
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakLijst">
+<FormalSpec>Aantal:TECH.Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	set Lijst = ##class(%ListOfObjects).%New()
+	#dim Counter As TECH.Integer
+	for Counter = 1 : 1 : Aantal do Lijst.Insert($$$DummyObject)
+	quit Lijst
+]]></Implementation>
+</Method>
+
+<Method name="GeefGroepeerder">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<ReturnType>TECH.ListUtils.Groepeerder</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ListUtils/Groepeerder/GroepeerLijst/Test.cls.xml
===================================================================
diff -u -r1482 -r1501
--- vhUnitTest/TECH/ListUtils/Groepeerder/GroepeerLijst/Test.cls.xml	(.../Test.cls.xml)	(revision 1482)
+++ vhUnitTest/TECH/ListUtils/Groepeerder/GroepeerLijst/Test.cls.xml	(.../TestGroepeerPerAantal.cls.xml)	(revision 1501)
@@ -1,23 +1,19 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhUnitTest.TECH.ListUtils.Groepeerder.GroepeerLijst.Test">
-<Super>vhUnitTest.TestCase</Super>
+<Class name="vhUnitTest.TECH.ListUtils.Groepeerder.GroepeerLijst.TestGroepeerPerAantal">
+<Super>vhUnitTest.TECH.ListUtils.Groepeerder.GroepeerLijst.TestBase</Super>
 
 <Parameter name="GroeperingsAantal">
-<Default>16</Default>
+<Default>3</Default>
 </Parameter>
 
 <Method name="Test: ProductieSequentieItemList met 0 waarden">
-<Implementation><![CDATA[
-		
-	do ..AssertVerwachteGroepering(0)
+<Implementation><![CDATA[	do ..AssertVerwachteGroepering(0)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: ProductieSequentieItemList met 1 waarde">
-<Implementation><![CDATA[
-		
-	do ..AssertVerwachteGroepering(1,1)
+<Implementation><![CDATA[	do ..AssertVerwachteGroepering(1,1)
 ]]></Implementation>
 </Method>
 
@@ -27,56 +23,31 @@
 </Method>
 
 <Method name="Test: ProductieSequentieItemList met evenveel items als Groeperingsaantal">
-<Implementation><![CDATA[	do ..AssertVerwachteGroepering(16,..#GroeperingsAantal)
+<Implementation><![CDATA[	do ..AssertVerwachteGroepering(..#GroeperingsAantal,..#GroeperingsAantal)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: ProductieSequentieItemList met 1 item meer al groeperingsaantal">
-<Implementation><![CDATA[	do ..AssertVerwachteGroepering(17,..#GroeperingsAantal,1)
+<Implementation><![CDATA[	do ..AssertVerwachteGroepering(..#GroeperingsAantal+1,..#GroeperingsAantal,1)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: ProductieSequentieItemList met 2 items meer als groeperingsaantal">
-<Implementation><![CDATA[	do ..AssertVerwachteGroepering(18,..#GroeperingsAantal,2)
+<Implementation><![CDATA[	do ..AssertVerwachteGroepering(..#GroeperingsAantal+2,..#GroeperingsAantal,2)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: ProductieSequentieItemList met 1 item meer als 2 keer het groeperingsaantal">
-<Implementation><![CDATA[	do ..AssertVerwachteGroepering(33,..#GroeperingsAantal,..#GroeperingsAantal,1)
+<Implementation><![CDATA[	do ..AssertVerwachteGroepering((..#GroeperingsAantal*2)+1,..#GroeperingsAantal,..#GroeperingsAantal,1)
 ]]></Implementation>
 </Method>
 
-<Method name="AssertVerwachteGroepering">
-<FormalSpec>AantalItemsInLijst:%Integer,AantalItemsPerGroepering...:%Integer</FormalSpec>
+<Method name="GeefGroepeerder">
 <Private>1</Private>
-<Implementation><![CDATA[
-	#dim Groepeerder As TECH.ListUtils.impl.Groepeerder = ##class(TECH.ListUtils.impl.Groepeerder).%New()
-	#dim InputLijst As %AbstractList = ..MaakLijst(AantalItemsInLijst)
-	#dim GroepeerPerAantal As TECH.ListUtils.impl.GroeperingPerAantal = ##class(TECH.ListUtils.impl.GroeperingPerAantal).%New(..#GroeperingsAantal)
-	#dim Array As %ArrayOfObjects = Groepeerder.GroepeerLijst(InputLijst,GroepeerPerAantal)
-		
-	if $$$AssertEquals(Array.Count(),+$get(AantalItemsPerGroepering)) {
-		set ArrayIterator = ##class(TECH.ListIterator).%New(Array)
-		#dim AantalItemsPerGroeperingIterator = ##class(TECH.ArrayOneDimIterator).%New(.AantalItemsPerGroepering)
-		while AantalItemsPerGroeperingIterator.HasNext() {
-			#dim List As %ListOfObjects = ArrayIterator.Next()
-			do $$$AssertEquals(List.Count(),AantalItemsPerGroeperingIterator.Next())
-		}
-	}
+<ReturnType>TECH.ListUtils.Groepeerder</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.ListUtils.impl.GroeperingPerAantal).%New(..#GroeperingsAantal)
 ]]></Implementation>
 </Method>
-
-<Method name="MaakLijst">
-<FormalSpec>Aantal:TECH.Integer</FormalSpec>
-<Private>1</Private>
-<ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[
-	set Lijst = ##class(%ListOfObjects).%New()
-	#dim Counter As TECH.Integer
-	for Counter = 1 : 1 : Aantal do Lijst.Insert($$$DummyObject)
-	quit Lijst
-]]></Implementation>
-</Method>
 </Class>