Index: vhUnitTest/WSimpl/Unishop/Login/KortingVoorVariantBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Unishop/Login/KortingVoorVariantBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Unishop/Login/KortingVoorVariantBepaler/Test.cls.xml	(revision 60934)
@@ -0,0 +1,112 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Unishop.Login.KortingVoorVariantBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test Standaard KortingVoorVariantBepaler geeft lege korting mee">
+<Implementation><![CDATA[
+	#dim KlantSessieDataKorting = ""
+	#dim Variant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).LegraboxPure()
+	#dim Korting As %String = ##class(WSimpl.Unishop.Login.KortingVoorVariantBepaler).%New().GeefKortingVoorVariant(KlantSessieDataKorting, Variant)
+	
+	Do $$$AssertEquals(Korting, "")
+]]></Implementation>
+</Method>
+
+<Method name="Test Standaard KortingVoorVariantBepaler geeft 1 korting mee">
+<Implementation><![CDATA[
+	#dim KlantSessieDataKorting = "15.5"
+	#dim Variant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).LegraboxPure()
+	#dim Korting As %String = ##class(WSimpl.Unishop.Login.KortingVoorVariantBepaler).%New().GeefKortingVoorVariant(KlantSessieDataKorting, Variant)
+	
+	Do $$$AssertEquals(Korting, 15.5)
+]]></Implementation>
+</Method>
+
+<Method name="Test Standaard KortingVoorVariantBepaler geeft 1 korting mee maar er is een foutief/overbodig extra niet numerisch char aanwezig dus moet fout geven">
+<Implementation><![CDATA[
+	#dim KlantSessieDataKorting = "15.5;"
+	#dim LBXVariant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).LegraboxPure()
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Korting werd niet in het correcte formaat meegegeven. Dit moet 1 numeriek veld zijn of in het formaat 'TBX=20;LBX=25.5;TAOR=15'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+	#dim LBXKorting As %String = ##class(WSimpl.Unishop.Login.KortingVoorVariantBepaler).%New().GeefKortingVoorVariant(KlantSessieDataKorting, LBXVariant)
+]]></Implementation>
+</Method>
+
+<Method name="Test KortingVoorVariantBepaler geeft korting per ladetype mee">
+<Implementation><![CDATA[
+	#dim KlantSessieDataKorting = "TBX=20.5;LBX=25.5;TAOR=30.5"
+	#dim TBXVariant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).TandemboxAntaro()
+	#dim LBXVariant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).LegraboxPure()
+	#dim TAORVariant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Taorbox()
+	
+	#dim TBXKorting As %String = ##class(WSimpl.Unishop.Login.KortingVoorVariantBepaler).%New().GeefKortingVoorVariant(KlantSessieDataKorting, TBXVariant)
+	#dim LBXKorting As %String = ##class(WSimpl.Unishop.Login.KortingVoorVariantBepaler).%New().GeefKortingVoorVariant(KlantSessieDataKorting, LBXVariant)	
+	#dim TAORKorting As %String = ##class(WSimpl.Unishop.Login.KortingVoorVariantBepaler).%New().GeefKortingVoorVariant(KlantSessieDataKorting, TAORVariant)
+	
+	Do $$$AssertEquals(TBXKorting, 20.5)
+	Do $$$AssertEquals(LBXKorting, 25.5)	
+	Do $$$AssertEquals(TAORKorting, 30.5)
+]]></Implementation>
+</Method>
+
+<Method name="Test KortingVoorVariantBepaler korting per ladetype krijgt maar een ladetype mee">
+<Implementation><![CDATA[
+	#dim KlantSessieDataKorting = "TAOR=30.5"
+	#dim TAORVariant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Taorbox()
+	
+	#dim TAORKorting As %String = ##class(WSimpl.Unishop.Login.KortingVoorVariantBepaler).%New().GeefKortingVoorVariant(KlantSessieDataKorting, TAORVariant)
+	
+	Do $$$AssertEquals(TAORKorting, 30.5)
+]]></Implementation>
+</Method>
+
+<Method name="Test KortingVoorVariantBepaler korting per ladetype krijgt ongeldig formaat mee, geen lade initialen aanwezig maar geen korting">
+<Implementation><![CDATA[
+	#dim KlantSessieDataKorting = "TBX="	
+	#dim TBXVariant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).TandemboxAntaro()
+	
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Ladetype werd meegegeven maar korting werd als leeg meegegeven. Korting moet 1 numeriek veld zijn of in het formaat 'TBX=20;LBX=25.5;TAOR=15'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+	#dim TBXKorting As %String = ##class(WSimpl.Unishop.Login.KortingVoorVariantBepaler).%New().GeefKortingVoorVariant(KlantSessieDataKorting, TBXVariant)
+]]></Implementation>
+</Method>
+
+<Method name="Test KortingVoorVariantBepaler korting per ladetype, geen korting aanwezig voor verwachte variant">
+<Implementation><![CDATA[
+	#dim KlantSessieDataKorting = "TBX=20"	
+	#dim TBXVariant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Taorbox()	
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen kortingscode gevonden voor deze variant")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+	#dim TBXKorting As %String = ##class(WSimpl.Unishop.Login.KortingVoorVariantBepaler).%New().GeefKortingVoorVariant(KlantSessieDataKorting, TBXVariant)
+]]></Implementation>
+</Method>
+
+<Method name="Test KortingVoorVariantBepaler korting per ladetype krijgt ongeldig formaat mee, geen = aanwezig tussen variant en korting">
+<Implementation><![CDATA[
+	#dim KlantSessieDataKorting = "TBX20"	
+	#dim TBXVariant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).TandemboxAntaro()
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Korting werd niet in het correcte formaat meegegeven. Dit moet 1 numeriek veld zijn of in het formaat 'TBX=20;LBX=25.5;TAOR=15'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+	#dim TBXKorting As %String = ##class(WSimpl.Unishop.Login.KortingVoorVariantBepaler).%New().GeefKortingVoorVariant(KlantSessieDataKorting, TBXVariant)
+]]></Implementation>
+</Method>
+
+<Method name="Test KortingVoorVariantBepaler korting per ladetype krijgt ongeldig formaat mee">
+<Implementation><![CDATA[
+	#dim KlantSessieDataKorting = "20;30;40"	
+	#dim TBXVariant As DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).TandemboxAntaro()
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Korting werd niet in het correcte formaat meegegeven. Dit moet 1 numeriek veld zijn of in het formaat 'TBX=20;LBX=25.5;TAOR=15'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+	#dim TBXKorting As %String = ##class(WSimpl.Unishop.Login.KortingVoorVariantBepaler).%New().GeefKortingVoorVariant(KlantSessieDataKorting, TBXVariant)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>