Index: vhUnitTest/APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaWinkelkarToepasser/TAOR/Test.cls.xml
===================================================================
diff -u -r34593 -r34907
--- vhUnitTest/APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaWinkelkarToepasser/TAOR/Test.cls.xml	(.../Test.cls.xml)	(revision 34593)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaWinkelkarToepasser/TAOR/Test.cls.xml	(.../Test.cls.xml)	(revision 34907)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaWinkelkarToepasser.TAOR.Test">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
 
 <Parameter name="WinkelkarID">
 <Type>%String</Type>
@@ -13,94 +13,84 @@
 <Private>1</Private>
 </Property>
 
-<Property name="WinkelkarService">
-<Type>vhTest.Mock.DOM.EC.Winkelkar.WinkelkarService</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="VorigeKenmerken">
-<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="VorigeWinkelkarLijn">
-<Type>DOM.EC.Winkelkar.MaatwerkLijn</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="Test doet niets indien winkelkar onbestaand">
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	Do ..MockUitWinkelkarEnWinkelkarService()
-	Do ..WinkelkarService.VerwachtMethodCall("GeefLaatstGewijzigdeMaatwerkLijn", ..#WinkelkarID, "Lade", "TAOR").DanDoeNiks()
-	
-	#Dim DefaultKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..PasToeEnGeefDefaults()
-	Do $$$AssertEquals( DefaultKenmerken.AfdekkapBovenKleur, "" )
-]]></Implementation>
-</Method>
+	Do ##super()
 
-<Method name="Test: Eindkapkleuren ZAL wordt overgenomen">
-<Implementation><![CDATA[	Do ..AssertEindkapkleurenWordenOvergenomen( ##class(DOM.PM.enu.TAORAfdekkapBovenKleur).ZwartAluminiumLook() )
+	Set ..Winkelkar = ##class(APPS.EC.Winkelkar.dto.Winkelkar).%New()
+	Set ..Winkelkar.WinkelkarID = ..#WinkelkarID
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Eindkapkleuren AL wordt overgenomen">
-<Implementation><![CDATA[	Do ..AssertEindkapkleurenWordenOvergenomen( ##class(DOM.PM.enu.TAORAfdekkapBovenKleur).AluminiumLook() )
+<Method name="Test: Methods worden opgeroepen">
+<Implementation><![CDATA[
+	#dim WinkelkarServiceMock As vhTest.Mock.DOM.EC.Winkelkar.WinkelkarService = ##class(vhTest.Mock.DOM.EC.Winkelkar.WinkelkarService).%New()
+	#dim MaatwerkDefaultsViaWinkelkarToepasser As APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaWinkelkarToepasser = ##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaWinkelkarToepasser).%New(..Winkelkar, WinkelkarServiceMock)
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
+	
+	Do WinkelkarServiceMock.VerwachtMethodCall("GeefLaatstGewijzigdeMaatwerkLijn", ..#WinkelkarID, "Lade", "TAOR")
+	Do TAORKenmerken.Accept(MaatwerkDefaultsViaWinkelkarToepasser)
+	Do WinkelkarServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="AssertEindkapkleurenWordenOvergenomen">
-<FormalSpec>VerwachteEindKapKleur:DOM.PM.enu.TAORAfdekkapBovenKleur</FormalSpec>
+<Method name="Test: Geen defaulting indien Winkelkar onbestaand">
 <Implementation><![CDATA[
-	Do ..MockUitWinkelkarEnWinkelkarService()
-	Set ..VorigeKenmerken.AfdekkapBovenKleur = VerwachteEindKapKleur
-	Set ..VorigeKenmerken.FrontEindkapKleur = VerwachteEindKapKleur
-	Do ..MockUitVorigeWinkelkarLijnMetVorigeKenmerken()
+	#dim WinkelkarServiceStub As vhTest.Mock.DOM.EC.Winkelkar.WinkelkarService = ##class(vhTest.Mock.DOM.EC.Winkelkar.WinkelkarService).%New()
+	#dim MaatwerkDefaultsViaWinkelkarToepasser As APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaWinkelkarToepasser = ##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaWinkelkarToepasser).%New(..Winkelkar, WinkelkarServiceStub)
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
 	
-	#Dim DefaultKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..PasToeEnGeefDefaults()
+	Do WinkelkarServiceStub.IndienMethodCall("GeefLaatstGewijzigdeMaatwerkLijn", ..#WinkelkarID, "Lade", "TAOR").DanDoeNiks()
+	Do TAORKenmerken.Accept(MaatwerkDefaultsViaWinkelkarToepasser)
 	
-	Do $$$AssertEquals( VerwachteEindKapKleur, DefaultKenmerken.AfdekkapBovenKleur )
-	Do $$$AssertEquals( VerwachteEindKapKleur, DefaultKenmerken.FrontEindkapKleur )
+	Do $$$AssertEquals(TAORKenmerken.AfdekkapBovenKleur, "")
 ]]></Implementation>
 </Method>
 
-<Method name="MockUitWinkelkarEnWinkelkarService">
-<Private>1</Private>
+<Method name="Test: AfdekkapBovenKleur wordt overgenomen van vorige WinkelkarLijn">
 <Implementation><![CDATA[
-	Set ..Winkelkar = ##class(APPS.EC.Winkelkar.dto.Winkelkar).%New()
-	Set ..Winkelkar.WinkelkarID = ..#WinkelkarID
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
+	#dim VorigeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
 	
-	Set ..WinkelkarService = ##class(vhTest.Mock.DOM.EC.Winkelkar.WinkelkarService).%New()
+	Set VorigeKenmerken.AfdekkapBovenKleur = ..Enum.AfdekkapBovenKleur.AluminiumLook
+	
+	#dim GedefaulteKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefGedefaulteKenmerken(TAORKenmerken, VorigeKenmerken) 
+
+	Do $$$AssertEquals(GedefaulteKenmerken.AfdekkapBovenKleur, VorigeKenmerken.AfdekkapBovenKleur)
 ]]></Implementation>
 </Method>
 
-<Method name="MockUitVorigeWinkelkarLijnMetVorigeKenmerken">
-<Private>1</Private>
+<Method name="Test: FrontEindkapKleur wordt overgenomen van vorige WinkelkarLijn">
 <Implementation><![CDATA[
-	Do ..VorigeWinkelkarLijn.ZetIngegevenKenmerken( ..VorigeKenmerken )
-	Do ..WinkelkarService.VerwachtMethodCall("GeefLaatstGewijzigdeMaatwerkLijn", ..#WinkelkarID , "Lade", "TAOR").DanReturn( ..VorigeWinkelkarLijn )
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
+	#dim VorigeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
+	
+	Set VorigeKenmerken.FrontEindkapKleur = ..Enum.FrontEindkapKleur.ZwartAluminiumLook
+	
+	#dim GedefaulteKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefGedefaulteKenmerken(TAORKenmerken, VorigeKenmerken) 
+
+	Do $$$AssertEquals(GedefaulteKenmerken.FrontEindkapKleur, VorigeKenmerken.FrontEindkapKleur)
 ]]></Implementation>
 </Method>
 
-<Method name="PasToeEnGeefDefaults">
+<Method name="GeefGedefaulteKenmerken">
+<FormalSpec>NieuweKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,VorigeKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#Dim Defaulter = ##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaWinkelkarToepasser).%New( ..Winkelkar, ..WinkelkarService )
-	#Dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
-	Do TAORKenmerken.Accept(Defaulter)
-	Do ..WinkelkarService.Verifieer()
-	Quit TAORKenmerken
+	#dim WinkelkarServiceStub As vhTest.Mock.DOM.EC.Winkelkar.WinkelkarService = ##class(vhTest.Mock.DOM.EC.Winkelkar.WinkelkarService).%New()
+	#dim MaatwerkDefaultsViaWinkelkarToepasser As APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaWinkelkarToepasser = ##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaWinkelkarToepasser).%New(..Winkelkar, WinkelkarServiceStub)
+	#dim VorigeWinkelkarLijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	
+	Do VorigeWinkelkarLijn.ZetIngegevenKenmerken(VorigeKenmerken)
+	
+	Do WinkelkarServiceStub.IndienMethodCall("GeefLaatstGewijzigdeMaatwerkLijn", ..#WinkelkarID, "Lade", "TAOR").DanReturn(VorigeWinkelkarLijn)
+	Do NieuweKenmerken.Accept(MaatwerkDefaultsViaWinkelkarToepasser)
+	
+	Quit NieuweKenmerken
 ]]></Implementation>
 </Method>
-
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
-	Do ##super()
-	Set ..VorigeWinkelkarLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
-	Set ..VorigeKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
-]]></Implementation>
-</Method>
 </Class>