Index: vhUnitTest/APPS/EC/impl/LoginKortingBewaarder/TestDaro.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/impl/LoginKortingBewaarder/TestDaro.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/impl/LoginKortingBewaarder/TestDaro.cls.xml	(revision 32199)
@@ -0,0 +1,119 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.impl.LoginKortingBewaarder.TestDaro">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="KortingServiceMock">
+<Type>vhUnitTest.APPS.EC.impl.LoginKortingBewaarder.KortingServiceMock</Type>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	#dim VerkoopPrijsAPIMock As vhTest.Mock.DOM.VKP.VerkoopPrijsAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopPrijsAPI).MockInstance()
+	Set ..KortingServiceMock = ##class(vhUnitTest.APPS.EC.impl.LoginKortingBewaarder.KortingServiceMock).%New()
+	Do VerkoopPrijsAPIMock.IndienMethodCall("GeefKortingService").DanReturn(..KortingServiceMock)
+]]></Implementation>
+</Method>
+
+<Method name="GeefRef">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "iStP6rzwAyDDSIg/A8r9fA--"    ; decrypted = "DARO\\\Normaal"
+]]></Implementation>
+</Method>
+
+<Method name="TestBewaarKorting10Procent">
+<Implementation><![CDATA[
+	#dim Ref As %String = ..GeefRef()
+	#dim DataOpt As %String = "KalUi6_NX85Ce0bQpd86acoUF5LKw2rq/pra5kQe/UXZ7D1qqeEFh/10jmc6cY_MZ0PxLulR7RKZQLuBtCcyZZcMOfgNB4OWAk3xmc9/mDQ-"
+	Do ..AssertBewaarCorrecteKorting(Ref,DataOpt,0.1)
+]]></Implementation>
+</Method>
+
+<Method name="TestBewaarKortingLeegMaken">
+<Implementation><![CDATA[
+	#dim Ref As %String = ..GeefRef()
+	#dim DataOpt As %String = "KalUi6_NX85Ce0bQpd86acoUF5LKw2rq/pra5kQe/UXZ7D1qqeEFh/10jmc6cY_MuuwxRFEIBHaBhpa08b3cihJ55SUNVeetn3YqYKrvRQk-"
+	Do ..AssertBewaarCorrecteKorting(Ref,DataOpt,0)
+]]></Implementation>
+</Method>
+
+<Method name="TestBewaarKortingFoutieveInputLetters">
+<Implementation><![CDATA[
+	Do $$$AssertException("AssertBewaarKortingFoutieveInputLetters","TECH.Exceptions.GeneralErrorException","Kan korting 'abc' niet parsen. (Personality: '10', Klant: 'DummyKlantID', 'DummyKlantNaam')")	
+	
+	Do $$$AssertEquals(..KortingServiceMock.IngesteldeKortingSpecificaties.Count(),0) 
+	Do $$$AssertEquals(..KortingServiceMock.IngesteldeKortingPercentages.Count(),0)
+]]></Implementation>
+</Method>
+
+<Method name="TestBewaarKortingFoutieveInputDecimaal">
+<Implementation><![CDATA[
+	// korting = 0.3 	
+	Do $$$AssertException("AssertBewaarKortingFoutieveInputDecimalen","TECH.Exceptions.GeneralErrorException","Kan korting '0.3' niet parsen. (Personality: '10', Klant: 'DummyKlantID', 'DummyKlantNaam')")	
+	
+	Do $$$AssertEquals(..KortingServiceMock.IngesteldeKortingSpecificaties.Count(),0) 
+	Do $$$AssertEquals(..KortingServiceMock.IngesteldeKortingPercentages.Count(),0)
+]]></Implementation>
+</Method>
+
+<Method name="AssertBewaarCorrecteKorting">
+<FormalSpec>Ref:%String,DataOpt:%String,Korting:TECH.Percentage</FormalSpec>
+<Implementation><![CDATA[
+	
+	Set LoginKortingBewaarder = ##class(APPS.EC.impl.LoginKortingBewaarder).%New()
+	Do LoginKortingBewaarder.BewaarMeegegevenKorting(Ref,DataOpt)
+	
+	If $$$AssertEquals(..KortingServiceMock.IngesteldeKortingSpecificaties.Count(),2) {
+		#dim KS1 As DOM.VKP.dto.KortingSpecificaties = ..KortingServiceMock.IngesteldeKortingSpecificaties.GetAt(1)
+		Do ..AssertBasisInfoKortingSpecificties(KS1)
+		Do $$$AssertEquals(KS1.Variant,##class(DOM.PM.enu.Variant).LegraboxPure())
+		
+		#dim KS2 As DOM.VKP.dto.KortingSpecificaties = ..KortingServiceMock.IngesteldeKortingSpecificaties.GetAt(2)
+		Do ..AssertBasisInfoKortingSpecificties(KS2)
+		Do $$$AssertEquals(KS2.Variant,##class(DOM.PM.enu.Variant).Taorbox())
+	}
+	
+	If $$$AssertEquals(..KortingServiceMock.IngesteldeKortingPercentages.Count(),2) {
+		Do $$$AssertEquals(..KortingServiceMock.IngesteldeKortingPercentages.GetAt(1),Korting)
+		Do $$$AssertEquals(..KortingServiceMock.IngesteldeKortingPercentages.GetAt(2),Korting)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AssertBewaarKortingFoutieveInputLetters">
+<Implementation><![CDATA[
+	#dim Ref As %String = ..GeefRef()
+	#dim DataOpt As %String = "KalUi6_NX85Ce0bQpd86acoUF5LKw2rq/pra5kQe/UXZ7D1qqeEFh/10jmc6cY_Me7H4lqlB38GInju6WYg0gd6IVpyYhhI85KbU2ZA249c-"
+	
+	Set LoginKortingBewaarder = ##class(APPS.EC.impl.LoginKortingBewaarder).%New()
+	Do LoginKortingBewaarder.BewaarMeegegevenKorting(Ref,DataOpt)
+]]></Implementation>
+</Method>
+
+<Method name="AssertBewaarKortingFoutieveInputDecimalen">
+<Implementation><![CDATA[
+	#dim Ref As %String = ..GeefRef()
+	#dim DataOpt As %String = "KalUi6_NX85Ce0bQpd86acoUF5LKw2rq/pra5kQe/UXZ7D1qqeEFh/10jmc6cY_M4LGcaJjU7qxuv606OyXSpd6IVpyYhhI85KbU2ZA249c-"
+	
+	Set LoginKortingBewaarder = ##class(APPS.EC.impl.LoginKortingBewaarder).%New()
+	Do LoginKortingBewaarder.BewaarMeegegevenKorting(Ref,DataOpt)
+]]></Implementation>
+</Method>
+
+<Method name="AssertBasisInfoKortingSpecificties">
+<FormalSpec>KS:DOM.VKP.dto.KortingSpecificaties</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(KS.Aantal,1)
+	Do $$$AssertEquals(KS.Familie,##class(DOM.PM.enu.Familie).Lade())
+	Do $$$AssertEquals(KS.KlantID,"daro_DummyKlantID")
+	Do $$$AssertEquals(KS.PersonalityID,##class(DOM.common.enu.Personality).Daro())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/EncryptDecryptKlantSessieData/Test.cls.xml
===================================================================
diff -u -r29059 -r32199
--- vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/EncryptDecryptKlantSessieData/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/EncryptDecryptKlantSessieData/Test.cls.xml	(.../Test.cls.xml)	(revision 32199)
@@ -111,6 +111,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestGeefEncryptedKlantSessieDataVoorKlantVanDaroShop">
+<Implementation><![CDATA[
+	#dim DomeinVerwerker As APPS.EC.enu.WebShopVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).Daro()
+
+	Set KSD = ##class(APPS.EC.dto.KlantSessieData).%New()   ; E\5\Tom Gillespy\tom@outstandingweb.co.uk\10\   --> LET OP : laatste piece (6e) is de GebruikerID, moet leeg zijn! 
+	Set KSD.Email = "tom@outstandingweb.co.uk"
+	Set KSD.GebruikerID = ""
+	Set KSD.KlantID = "5"
+	Set KSD.KlantNaam = "Tom Gillespy"
+	Set KSD.Korting = "10"
+	Set KSD.Taal = "E"
+
+	#dim VerwachteEncryptedKlantSessieData As %String = "yZQMHTjTWCJEw7H3A70iJVJ6cc1ZzQvCgOyEGLX5cfHhNmxwOYnNzv4ilwDJz1tv"
+
+	Do ..AssertEncryptDecryptKlantSessieData(KSD,DomeinVerwerker,VerwachteEncryptedKlantSessieData)
+]]></Implementation>
+</Method>
+
 <Method name="AssertEncryptDecryptKlantSessieData">
 <FormalSpec>KlantSessieData:APPS.EC.dto.KlantSessieData,DomeinVerwerker:APPS.EC.enu.WebShopVerwerker,VerwachteEncryptedKlantSessieData:%String</FormalSpec>
 <Private>1</Private>