Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesDataProgrammaAanvuller/VulAan/Test.cls.xml
===================================================================
diff -u -r29059 -r30366
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesDataProgrammaAanvuller/VulAan/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesDataProgrammaAanvuller/VulAan/Test.cls.xml	(.../Test.cls.xml)	(revision 30366)
@@ -3,69 +3,40 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.Activiteit.impl.TAOR.Zijkant.KamerFreesDataProgrammaAanvuller.VulAan.Test">
 <Super>vhUnitTest.APPS.Halux.PPS.Activiteit.impl.TAOR.Zijkant.KamerFreesDataAanvullerTestBase</Super>
 
-<Property name="ISOProgrammaVolledigeNaamLinksBinnen">
-<Type>TECH.String</Type>
-<Private>1</Private>
-</Property>
+<Parameter name="LinksBinnen">
+<Type>%String</Type>
+<Default>Valinge1.2\M_Left_Inner.iso</Default>
+</Parameter>
 
-<Property name="ISOProgrammaVolledigeNaamLinksBuiten">
-<Type>TECH.String</Type>
-<Private>1</Private>
-</Property>
+<Parameter name="LinksBuiten">
+<Type>%String</Type>
+<Default>Valinge1.2\M_Left_Outer.iso</Default>
+</Parameter>
 
-<Property name="ISOProgrammaVolledigeNaamRechtsBinnen">
-<Type>TECH.String</Type>
-<Private>1</Private>
-</Property>
+<Parameter name="RechtsBinnen">
+<Type>%String</Type>
+<Default>Valinge1.2\M_Right_Inner.iso</Default>
+</Parameter>
 
-<Property name="ISOProgrammaVolledigeNaamRechtsBuiten">
-<Type>TECH.String</Type>
-<Private>1</Private>
-</Property>
+<Parameter name="RechtsBuiten">
+<Type>%String</Type>
+<Default>Valinge1.2\M_Right_Outer.iso</Default>
+</Parameter>
 
 <Method name="Test: ProgramLeftInner Aangevuld">
 <Implementation><![CDATA[
-	Set ..ISOProgrammaVolledigeNaamLinksBinnen = "Valinge1.2\M_Left_Inner.iso"
-	Do ..VulAan()
-	Do $$$AssertEquals(..ZijkantKamerFreesUitvoeringInfo.KamerFreesData.ProgramLeftInner,..ISOProgrammaVolledigeNaamLinksBinnen)
-]]></Implementation>
-</Method>
+	Set ProgrammaBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.Zijkant.KamerFreesIsoProgrammaBepaler).%New()
+	Do ProgrammaBepaler.IndienMethodCall("GeefLinksBinnen", ..Lade).DanReturn(..#LinksBinnen)
+	Do ProgrammaBepaler.IndienMethodCall("GeefLinksBuiten", ..Lade).DanReturn(..#LinksBuiten)
+	Do ProgrammaBepaler.IndienMethodCall("GeefRechtsBinnen", ..Lade).DanReturn(..#RechtsBinnen)
+	Do ProgrammaBepaler.IndienMethodCall("GeefRechtsBuiten", ..Lade).DanReturn(..#RechtsBuiten)
 
-<Method name="Test: ProgramLeftOuter Aangevuld">
-<Implementation><![CDATA[
-	Set ..ISOProgrammaVolledigeNaamLinksBuiten = "Valinge1.2\M_Left_Outer.iso"
-	Do ..VulAan()
-	Do $$$AssertEquals(..ZijkantKamerFreesUitvoeringInfo.KamerFreesData.ProgramLeftOuter,..ISOProgrammaVolledigeNaamLinksBuiten)
-]]></Implementation>
-</Method>
-
-<Method name="Test: ProgramRightInner Aangevuld">
-<Implementation><![CDATA[
-	Set ..ISOProgrammaVolledigeNaamRechtsBinnen = "Valinge1.2\M_Right_Inner.iso"
-	Do ..VulAan()
-	Do $$$AssertEquals(..ZijkantKamerFreesUitvoeringInfo.KamerFreesData.ProgramRightInner,..ISOProgrammaVolledigeNaamRechtsBinnen)
-]]></Implementation>
-</Method>
-
-<Method name="Test: ProgramRightOuter Aangevuld">
-<Implementation><![CDATA[
-	Set ..ISOProgrammaVolledigeNaamRechtsBuiten = "Valinge1.2\M_Right_Outer.iso"
-	Do ..VulAan()
-	Do $$$AssertEquals(..ZijkantKamerFreesUitvoeringInfo.KamerFreesData.ProgramRightOuter,..ISOProgrammaVolledigeNaamRechtsBuiten)
-]]></Implementation>
-</Method>
-
-<Method name="VulAan">
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set ProgrammaBepalerMock = ##class(vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.Zijkant.KamerFreesIsoProgrammaBepaler).%New()
-	Do ProgrammaBepalerMock.IndienMethodCall("GeefLinksBinnen", ..Lade).DanReturn(..ISOProgrammaVolledigeNaamLinksBinnen)
-	Do ProgrammaBepalerMock.IndienMethodCall("GeefLinksBuiten", ..Lade).DanReturn(..ISOProgrammaVolledigeNaamLinksBuiten)
-	Do ProgrammaBepalerMock.IndienMethodCall("GeefRechtsBinnen", ..Lade).DanReturn(..ISOProgrammaVolledigeNaamRechtsBinnen)
-	Do ProgrammaBepalerMock.IndienMethodCall("GeefRechtsBuiten", ..Lade).DanReturn(..ISOProgrammaVolledigeNaamRechtsBuiten)
-	
-	Set KamerZijkantFreesDataAanvuller = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Zijkant.KamerFreesDataProgrammaAanvuller).%New(..Lade, ProgrammaBepalerMock)
+	Set KamerZijkantFreesDataAanvuller = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Zijkant.KamerFreesDataProgrammaAanvuller).%New(..Lade, ProgrammaBepaler)
 	Do KamerZijkantFreesDataAanvuller.VulAan(..ZijkantKamerFreesUitvoeringInfo, ..ProductieSequentieItem)
+	Do $$$AssertEquals(..ZijkantKamerFreesUitvoeringInfo.KamerFreesData.ProgramLeftOuter,..#LinksBuiten)
+	Do $$$AssertEquals(..ZijkantKamerFreesUitvoeringInfo.KamerFreesData.ProgramLeftInner,..#LinksBinnen)
+	Do $$$AssertEquals(..ZijkantKamerFreesUitvoeringInfo.KamerFreesData.ProgramRightInner,..#RechtsBinnen)
+	Do $$$AssertEquals(..ZijkantKamerFreesUitvoeringInfo.KamerFreesData.ProgramRightOuter,..#RechtsBuiten)
 ]]></Implementation>
 </Method>
 </Class>