Index: vhUnitTest/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler/Test.cls.xml	(revision 54565)
@@ -0,0 +1,71 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Standaardgedrag">
+<Implementation><![CDATA[
+	#dim DummyPlaatAfwerking As APPS.Halux.PPS.enu.TAORDecor = ##class(APPS.Halux.PPS.enu.TAORDecor).Fineer()
+	#dim DummyProgramma As TECH.String = "DummyProgramma"
+	
+	#dim DummyKantenbandData As APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData).%New()
+	Set DummyKantenbandData.Decor = DummyPlaatAfwerking
+	
+	#dim DummyKantenbandProgramma As APPS.Halux.Machine.Kantenband.data.KantenbandProgramma = ##class(APPS.Halux.Machine.Kantenband.data.KantenbandProgramma).%New($$$DummyInteger)
+	#dim KantenbandRepositoryMock As vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenBandProgrammaRepository = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenBandProgrammaRepository).%New()
+	Do KantenbandRepositoryMock.VerwachtMethodCall("GeefProgramma", DummyProgramma).DanReturn(DummyKantenbandProgramma)	
+	
+	#dim DikteCodeBepalerMock As vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.DikteCodeBepaler = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.DikteCodeBepaler).%New()
+	Do DikteCodeBepalerMock.VerwachtMethodCall("BepaalCode", DummyPlaatAfwerking).DanReturn("DummyDikteCode")
+	
+	#dim BreedteCodeBepalerMock As vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.BreedteCodeBepaler = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.BreedteCodeBepaler).%New()
+	Do BreedteCodeBepalerMock.VerwachtMethodCall("BepaalCode", DummyPlaatAfwerking).DanReturn("DummyBreedteCode")
+	
+	#dim KantenbandBepaler As APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler = ##class(APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler).%New(KantenbandRepositoryMock, DikteCodeBepalerMock, BreedteCodeBepalerMock)
+	#dim Kantenband As %String = KantenbandBepaler.BepaalKantenband(DummyKantenbandData, DummyProgramma)
+	
+	Do KantenbandRepositoryMock.Verifieer()
+	Do DikteCodeBepalerMock.Verifieer()
+	Do BreedteCodeBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Heeft Kantenband nodig">
+<Implementation><![CDATA[
+	Do ..AssertKantenband($$$True, "DummyDikteCode", "DummyBreedteCode", "", "Indien KantenbandProgramma met doorvoer is, is geen kantenband nodig")
+	Do ..AssertKantenband($$$False, "DummyDikteCode", "DummyBreedteCode", "DummyDikteCodeDummyBreedteCode", "Indien KantenbandProgramma zonder doorvoer is, is geen kantenband nodig")
+]]></Implementation>
+</Method>
+
+<Method name="AssertKantenband">
+<FormalSpec>IsDoorVoer:%Boolean,DikteCode:%String,BreedteCode:%String,VerwachteWaarde:%String,Omschrijving:%String=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DummyPlaatAfwerking As APPS.Halux.PPS.enu.TAORDecor = ##class(APPS.Halux.PPS.enu.TAORDecor).Fineer()
+	#dim DummyProgramma As TECH.String = "DummyProgramma"
+	
+	#dim DummyKantenbandData As APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData).%New()
+	Set DummyKantenbandData.Decor = DummyPlaatAfwerking
+	
+	#dim KantenbandProgramma As APPS.Halux.Machine.Kantenband.data.KantenbandProgramma = ##class(APPS.Halux.Machine.Kantenband.data.KantenbandProgramma).%New($$$DummyInteger)
+	Do KantenbandProgramma.ZetIsDoorvoer(IsDoorVoer)
+	
+	#dim KantenbandRepositoryStub As vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenBandProgrammaRepository = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenBandProgrammaRepository).%New()
+	Do KantenbandRepositoryStub.IndienMethodCall("GeefProgramma", DummyProgramma).DanReturn(KantenbandProgramma)
+	
+	#dim DikteCodeBepalerStub As vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.DikteCodeBepaler = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.DikteCodeBepaler).%New()
+	Do DikteCodeBepalerStub.IndienMethodCall("BepaalCode", DummyPlaatAfwerking).DanReturn(DikteCode)
+	
+	#dim BreedteCodeBepalerStub As vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.BreedteCodeBepaler = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.BreedteCodeBepaler).%New()
+	Do BreedteCodeBepalerStub.IndienMethodCall("BepaalCode", DummyPlaatAfwerking).DanReturn(BreedteCode)	
+	
+	#dim KantenbandBepaler As APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler = ##class(APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler).%New(KantenbandRepositoryStub, DikteCodeBepalerStub, BreedteCodeBepalerStub)
+	#dim Kantenband As %String = KantenbandBepaler.BepaalKantenband(DummyKantenbandData, DummyProgramma)
+	
+	Do $$$AssertEquals(Kantenband, VerwachteWaarde, Omschrijving)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>