Index: vhUnitTest/DOM/EC/Winkelkar/TestWinkelkar.cls.xml
===================================================================
diff -u -r1574 -r1674
--- vhUnitTest/DOM/EC/Winkelkar/TestWinkelkar.cls.xml	(.../TestWinkelkar.cls.xml)	(revision 1574)
+++ vhUnitTest/DOM/EC/Winkelkar/TestWinkelkar.cls.xml	(.../TestWinkelkar.cls.xml)	(revision 1674)
@@ -59,14 +59,35 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestGroepen">
+<Implementation><![CDATA[
+	Set Winkelkar = ##class(vhUnitTest.DOM.EC.Winkelkar.UnitTestWinkelkar).%New("UnitTestWinkelkar")
+	
+	Set GroepLijn1 = ##class(DOM.EC.Winkelkar.GroepLijn).%New("Groep1")
+	Do Winkelkar.VoegToe(GroepLijn1)
+	
+	Set GroepLijn2 = ##class(DOM.EC.Winkelkar.GroepLijn).%New("Groep2")
+	Do GroepLijn1.VoegToe(GroepLijn2)
+	
+	Set GroepLijn3 = ##class(DOM.EC.Winkelkar.GroepLijn).%New("Groep3")	
+	Do GroepLijn2.VoegToe(GroepLijn3)
+	
+	Set GroepLijn4 = ##class(DOM.EC.Winkelkar.GroepLijn).%New("Groep4")
+	Do GroepLijn3.VoegToe(GroepLijn4)
+	
+	Do $$$AssertEquals(Winkelkar.GeefGroepLijn("Groep1"), GroepLijn1, "Groep 1 is gevonden")
+	Do $$$AssertEquals(Winkelkar.GeefGroepLijn("Groep2"), GroepLijn2, "Groep 2 is gevonden")
+	Do $$$AssertEquals(Winkelkar.GeefGroepLijn("Groep3"), GroepLijn3, "Groep 3 is gevonden")
+	Do $$$AssertEquals(Winkelkar.GeefGroepLijn("Groep4"), GroepLijn4, "Groep 4 is gevonden")
+]]></Implementation>
+</Method>
+
 <Method name="TestOpslaan">
 <Implementation><![CDATA[
 	Set Winkelkar = ##class(vhUnitTest.DOM.EC.Winkelkar.UnitTestWinkelkar).%New("UnitTestWinkelkar")
 	
 	Set TekstLijn1 = ##class(DOM.EC.Winkelkar.TekstLijn).%New("Dit is een tekstlijn")
 	Set TekstLijn2 = ##class(DOM.EC.Winkelkar.TekstLijn).%New("Dit is een andere tekstlijn")
-	Set TekstLijn3 = ##class(DOM.EC.Winkelkar.TekstLijn).%New("Dit is nog een andere tekstlijn")
-	Set TekstLijn4 = ##class(DOM.EC.Winkelkar.TekstLijn).%New("En nog een andere tekstlijn")
 	
 	Do Winkelkar.VoegToe(TekstLijn1)
 	Set SaveStatus = Winkelkar.%Save()
@@ -84,9 +105,9 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestMaatwerkWinkelkar">
+<Method name="TestInterneWinkelkar">
 <Implementation><![CDATA[
-	Set Winkelkar = ##class(DOM.EC.Winkelkar.MaatwerkWinkelkar).%New("UnitTest")
+	Set Winkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New("UnitTest")
 	
 	Set Kenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New()
 	Set Aantal = 2
@@ -106,7 +127,7 @@
 	Set Kenmerken = ""
 	Set MaatwerkLijn = ""
 	
-	Set Winkelkar = ##class(DOM.EC.Winkelkar.MaatwerkWinkelkar).%OpenId(WinkelkarID)
+	Set Winkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%OpenId(WinkelkarID)
 	
 	Set MaatwerkLijn = Winkelkar.GeefLijnIterator().Next()
 	
@@ -119,15 +140,15 @@
 	// Laatste gewijzigd op 2 dagen geleden instellen zodat deze wel mag verwijderd worden
 	
 	Set ResultSet = ##class(%ResultSet).%New()
-	Do ResultSet.Prepare("UPDATE DOM_EC_Winkelkar.MaatwerkWinkelkar SET GewijzigdOp = ?")
+	Do ResultSet.Prepare("UPDATE DOM_EC_Winkelkar.InterneWinkelkar SET GewijzigdOp = ?")
 	Do ResultSet.Execute($H-2)
 	
 	Do Winkelkar.%Reload()
 	
 	Do $$$AssertTrue(Winkelkar.IsVerwijderbaar(),"De winkelkar is wel verwijderbaar na 2 dagen")
 	
 	Do ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%DeleteId(MaatwerkLijn.GeefIngegevenKenmerken().%Id())
-	Do ##class(DOM.EC.Winkelkar.MaatwerkWinkelkar).%DeleteId(Winkelkar.%Id())
+	Do ##class(DOM.EC.Winkelkar.InterneWinkelkar).%DeleteId(Winkelkar.%Id())
 ]]></Implementation>
 </Method>