Index: vhUnitTest/APPS/EC/Winkelkar/impl/TestGroepNaamVoorLijnBepaler.cls.xml
===================================================================
diff -u -r29059 -r30766
--- vhUnitTest/APPS/EC/Winkelkar/impl/TestGroepNaamVoorLijnBepaler.cls.xml	(.../TestGroepNaamVoorLijnBepaler.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/TestGroepNaamVoorLijnBepaler.cls.xml	(.../TestGroepNaamVoorLijnBepaler.cls.xml)	(revision 30766)
@@ -3,32 +3,54 @@
 <Class name="vhUnitTest.APPS.EC.Winkelkar.impl.TestGroepNaamVoorLijnBepaler">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="TestMaatwerkLijn">
+<Property name="Winkelkar">
+<Type>DOM.EC.Winkelkar.Winkelkar</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="GroepNaamBepaler">
+<Type>APPS.EC.Winkelkar.impl.GroepNaamVoorLijnBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set TAORKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set TAORKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurEikenhout()
-	set TAORKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurEikenhout()
-	Set MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
-	Do MaatwerkLijn.ZetIngegevenKenmerken(TAORKenmerken)
-	Set Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New("")
-	Do Winkelkar.ZetKlantID("K||1000")
+	do ##super(aTestName)
 	
-	Set Bepaler = ##class(APPS.EC.Winkelkar.impl.GroepNaamVoorLijnBepaler).%New(MaatwerkLijn, Winkelkar)
+	set ..Winkelkar =  ##class(DOM.EC.Winkelkar.Winkelkar).%New("")
 	
-	Do $$$AssertEquals(Bepaler.GeefGroepNaam(),"TA'OR BOX lade Natuur eikenhout, bodem Natuur eikenhout")
+	do ..Winkelkar.ZetKlantID("K||1000")
 ]]></Implementation>
 </Method>
 
-<Method name="TestStandaardProductLijn">
+<Method name="TestMaatwerkLijn">
 <Implementation><![CDATA[
-	Set ProductLijn = ##class(DOM.EC.Winkelkar.ProductLijn).%New(3510,1)
-	Set Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New("")
-	Do Winkelkar.ZetKlantID("K||1000")
-	Set Bepaler = ##class(APPS.EC.Winkelkar.impl.GroepNaamVoorLijnBepaler).%New(ProductLijn, Winkelkar)
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
+
+	do MaatwerkLijn.ZetIngegevenKenmerken(TAORKenmerken)
 	
-	Do $$$AssertEquals(Bepaler.GeefGroepNaam(),"Standaard product")
+	do ..AssertGroepNaam(MaatwerkLijn, "TA'OR BOX lade Natuur notenhout, bodem Natuur notenhout")
 ]]></Implementation>
 </Method>
+
+<Method name="TestStandaardProductLijn">
+<Implementation><![CDATA[
+	#dim ProductLijn As DOM.EC.Winkelkar.ProductLijn = ##class(DOM.EC.Winkelkar.ProductLijn).%New(3510, 1)
+
+	do ..AssertGroepNaam(ProductLijn, "Standaard product")
+]]></Implementation>
+</Method>
+
+<Method name="AssertGroepNaam">
+<FormalSpec>Lijn:DOM.EC.Winkelkar.Lijn,GroepNaam:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set ..GroepNaamBepaler = ##class(APPS.EC.Winkelkar.impl.GroepNaamVoorLijnBepaler).%New(Lijn, ..Winkelkar)
+	do $$$AssertEquals(..GroepNaamBepaler.GeefGroepNaam(), GroepNaam)
+]]></Implementation>
+</Method>
 </Class>