Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/Wikkel/TAOR/WikkelLengteBepaler/BepaalWikkelLengte/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/Wikkel/TAOR/WikkelLengteBepaler/BepaalWikkelLengte/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/Wikkel/TAOR/WikkelLengteBepaler/BepaalWikkelLengte/Test.cls.xml	(revision 54584)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.Wikkel.TAOR.WikkelLengteBepaler.BepaalWikkelLengte.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="WikkelLengteBepaler">
+<Type>DOM.PM.Maatwerk.Calc.HF.impl.Wikkel.TAOR.WikkelLengteBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Parameter name="Factor">
+<Type>%Decimal</Type>
+<Default>1.1</Default>
+</Parameter>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	Set ..WikkelLengteBepaler = ##class(DOM.PM.Maatwerk.Calc.HF.impl.Wikkel.TAOR.WikkelLengteBepaler).%New()
+]]></Implementation>
+</Method>
+
+<Method name="TestFront">
+<Implementation><![CDATA[
+	#dim ProductieWijze As DOM.PM.enu.TAORProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Front()
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefTAORKenmerken(ProductieWijze)
+	Do ..InitLadeUtilsMock(TAORKenmerken, 100)
+	Do ..Assert(TAORKenmerken, 100 * 2 * ..#Factor)
+]]></Implementation>
+</Method>
+
+<Method name="TestBodem">
+<Implementation><![CDATA[
+	#dim ProductieWijze As DOM.PM.enu.TAORProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Bodem()
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefTAORKenmerken(ProductieWijze)
+	Do ..Assert(TAORKenmerken, 100 * 2 * ..#Factor)
+]]></Implementation>
+</Method>
+
+<Method name="TestRug">
+<Implementation><![CDATA[
+	#dim ProductieWijze As DOM.PM.enu.TAORProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Rug()
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefTAORKenmerken(ProductieWijze)
+	Do ..InitLadeUtilsMock(TAORKenmerken, 100)
+	Do ..Assert(TAORKenmerken, 100 * 2 * ..#Factor)
+]]></Implementation>
+</Method>
+
+<Method name="InitLadeUtilsMock">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,LadeHoogteInMM:TECH.Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set LadeUtilsMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Lade.LadeUtils).%New()
+	Do LadeUtilsMock.IndienMethodCall("GeefFysiekeLadeHoogteMM", TAORKenmerken.LadeHoogte, TAORKenmerken.IsBinnenlade).DanReturn(LadeHoogteInMM)
+	Set ..WikkelLengteBepaler = ##class(DOM.PM.Maatwerk.Calc.HF.impl.Wikkel.TAOR.WikkelLengteBepaler).%New(LadeUtilsMock)
+]]></Implementation>
+</Method>
+
+<Method name="Assert">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,VerwachteWikkelLengte:TECH.Decimal</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim WikkelLengte As TECH.Decimal = ..WikkelLengteBepaler.BepaalWikkelLengte(TAORKenmerken)
+	Do $$$AssertEquals(WikkelLengte,VerwachteWikkelLengte)
+]]></Implementation>
+</Method>
+
+<Method name="GeefTAORKenmerken">
+<FormalSpec>ProductieWijze:DOM.PM.enu.TAORProductieWijze</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).GeefLegeTAORKenmerken()
+	Set TAORKenmerken.ProductieWijze = ProductieWijze
+	Set TAORKenmerken.LadeDiepte = 100
+	Set TAORKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()
+	Set TAORKenmerken.IsBinnenlade = $$$True
+	Quit TAORKenmerken
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 33802 refers to a dead (removed) revision in file `vhTest/Dummy/DOM/PM/Maatwerk/Calc/Common/impl/TAORKenmerken.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?