Index: vhUnitTest/ECONimpl/PM/Maatwerk/LadeUitsparingHelper/GeefUitsparingCode/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/ECONimpl/PM/Maatwerk/LadeUitsparingHelper/GeefUitsparingCode/Test.cls.xml	(revision 0)
+++ vhUnitTest/ECONimpl/PM/Maatwerk/LadeUitsparingHelper/GeefUitsparingCode/Test.cls.xml	(revision 52935)
@@ -0,0 +1,74 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.ECONimpl.PM.Maatwerk.LadeUitsparingHelper.GeefUitsparingCode.Test">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase,DOM.PM.Maatwerk.TAX.impl.Base</Super>
+
+<Property name="LadeUitsparingHelper">
+<Type>ECONimpl.PM.Maatwerk.LadeUitsparingHelper</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..LadeUitsparingHelper = ##class(ECONimpl.PM.Maatwerk.LadeUitsparingHelper).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: UitsparingCode voor TAX">
+<Implementation><![CDATA[
+	#dim Hoogte As %String = "EenderWat"
+	#dim VerwachteUitsparingCode As %String = "SY_Recht_Hx_D270_B274"
+
+	Do ..AssertUitsparingCodeTax(Hoogte, VerwachteUitsparingCode)
+]]></Implementation>
+</Method>
+
+<Method name="Test: UitsparingCode voor LBX">
+<Implementation><![CDATA[
+	#dim Hoogte As %String = "EenderWat"
+	#dim VerwachteUitsparingCode As %String = "SY_Recht_M_D240_B160"
+
+	Do ..AssertUitsparingCodeLbx(Hoogte, VerwachteUitsparingCode)
+]]></Implementation>
+</Method>
+
+<Method name="Test: UitsparingCode geeft exceptie voor andere Variant">
+<Implementation><![CDATA[
+	#dim Substrings as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Ongeldige input om UitsparingCode te bepalen", "AndereVariant")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+
+	Do ..LadeUitsparingHelper.GeefUitsparingCode("AndereVariant", "", "", "", "")
+]]></Implementation>
+</Method>
+
+<Method name="AssertUitsparingCodeTax">
+<FormalSpec>Hoogte:%String,VerwachteUitsparingCode:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Variant As DOM.PM.enu.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TAOR()
+	#dim Vorm As %String = "Recht"
+	#dim Diepte As %String = 270
+	#dim Breedte As %String = 274
+	Do $$$AssertEquals(..LadeUitsparingHelper.GeefUitsparingCode(Variant, Vorm, Hoogte, Diepte, Breedte) ,VerwachteUitsparingCode)
+]]></Implementation>
+</Method>
+
+<Method name="AssertUitsparingCodeLbx">
+<FormalSpec>Hoogte:%String,VerwachteUitsparingCode:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Variant As DOM.PM.enu.LadeVariant = ##class(DOM.PM.enu.LadeVariant).LBXPure()
+	#dim Vorm As %String = "Recht"
+	#dim Diepte As %String = 240
+	#dim Breedte As %String = 160
+	Do $$$AssertEquals(..LadeUitsparingHelper.GeefUitsparingCode(Variant, Vorm, Hoogte, Diepte, Breedte) ,VerwachteUitsparingCode)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>