vhUnitTest.TestCase 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) ]]> KlantSessieData:APPS.EC.dto.KlantSessieData,DomeinVerwerker:APPS.EC.enu.WebShopVerwerker,VerwachteEncryptedKlantSessieData:%String 1