Index: vhUnitTest/DOM/PM/Maatwerk/TAX/impl/ConceptBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/TAX/impl/ConceptBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/TAX/impl/ConceptBepaler/Test.cls.xml	(revision 33836)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.TAX.impl.ConceptBepaler.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Property name="ConceptBepaler">
+<Type>DOM.PM.Maatwerk.TAX.ConceptBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TAORKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..ConceptBepaler = ##class(DOM.PM.Maatwerk.TAX.impl.ConceptBepaler).%New()
+	Set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien afwijkende RugHoogte altijd Concept Baliko">
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.C
+	Set ..TAORKenmerken.RugHoogte = ..Enum.RugHoogte.M
+	
+	Do ..AssertConcept(..Enum.Concept.Baliko)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien geen afwijkende RugHoogte wordt gekeken naar het concept van de IngegevenKenmerken">
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.M
+	Set ..TAORKenmerken.RugHoogte = ..Enum.RugHoogte.M
+	
+	Set ..TAORKenmerken.Concept = ..Enum.Concept.Valinge
+	Do ..AssertConcept(..Enum.Concept.Valinge)
+	
+	Set ..TAORKenmerken.Concept = ..Enum.Concept.Baliko
+	Do ..AssertConcept(..Enum.Concept.Baliko)
+]]></Implementation>
+</Method>
+
+<Method name="AssertConcept">
+<FormalSpec>VerwachtConcept:DOM.PM.enu.TAORConcept</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Concept As DOM.PM.enu.TAORConcept = ..ConceptBepaler.Bepaal(..TAORKenmerken)
+	
+	Do $$$AssertEquals(Concept, VerwachtConcept)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>