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>