Index: vhUnitTest/zTryout/WV/FPV1/DOM/impl/BodemSlicedTypeBepaler/GeefBodemSlicedType/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/zTryout/WV/FPV1/DOM/impl/BodemSlicedTypeBepaler/GeefBodemSlicedType/Test.cls.xml	(revision 0)
+++ vhUnitTest/zTryout/WV/FPV1/DOM/impl/BodemSlicedTypeBepaler/GeefBodemSlicedType/Test.cls.xml	(revision 29135)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.zTryout.WV.FPV1.DOM.impl.BodemSlicedTypeBepaler.GeefBodemSlicedType.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="BodemSlicedTypeBepaler">
+<Type>zTryout.WV.FPV1.DOM.impl.BodemSlicedTypeBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	Set ..BodemSlicedTypeBepaler = ##class(zTryout.WV.FPV1.DOM.impl.BodemSlicedTypeBepaler).%New()
+]]></Implementation>
+</Method>
+
+<Method name="TestFlatpackV1">
+<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.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1()
+	
+	Do ..AssertSlicedType(TAORKenmerken,##class(DOM.PM.Maatwerk.Calc.HF.enu.TAX.SlicedType).Sliced())
+]]></Implementation>
+</Method>
+
+<Method name="TestAlleAndereVerpakkingen">
+<Implementation><![CDATA[
+	#Dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).GeefLegeTAORKenmerken()
+	
+	#dim ValuesIterator As TECH.Iterator = ##class(DOM.PM.enu.TAORVerpakkingType).ValueListIterator()
+	While (ValuesIterator.HasNext()) {
+		#dim VerpakkingType As DOM.PM.enu.TAORVerpakkingType = ValuesIterator.Next()
+
+		Continue:(VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1())
+		
+		Set TAORKenmerken.VerpakkingType = VerpakkingType
+		Do ..AssertSlicedType(TAORKenmerken,##class(DOM.PM.Maatwerk.Calc.HF.enu.TAX.SlicedType).NonSliced())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AssertSlicedType">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,VerwachteSlicedType:DOM.PM.Maatwerk.Calc.HF.enu.TAX.SlicedType</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim SlicedType As DOM.PM.Maatwerk.Calc.HF.enu.TAX.SlicedType = ..BodemSlicedTypeBepaler.GeefBodemSlicedType(TAORKenmerken)
+	Do $$$AssertEquals(SlicedType,VerwachteSlicedType,"SlicedType voor Verpakking "_TAORKenmerken.VerpakkingType_" ")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>