Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/Wikkel/TAOR/WikkelBreedteBepaler/BepaalWikkelBreedte/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/Wikkel/TAOR/WikkelBreedteBepaler/BepaalWikkelBreedte/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/Wikkel/TAOR/WikkelBreedteBepaler/BepaalWikkelBreedte/Test.cls.xml	(revision 54585)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.Wikkel.TAOR.WikkelBreedteBepaler.BepaalWikkelBreedte.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	Set WikkelBreedteBepaler = ##class(DOM.PM.Maatwerk.Calc.HF.impl.Wikkel.WikkelBreedteBepaler).%New()
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).GeefLegeTAORKenmerken()
+	Set IngegevenKenmerken.CorpusBinnenbreedte = 601
+	#dim WikkelBreedte As TECH.Decimal = WikkelBreedteBepaler.BepaalWikkelBreedte(IngegevenKenmerken)
+	Do $$$AssertEquals(WikkelBreedte,"661.1")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>