Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/Zweygart.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/Zweygart.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/Zweygart.cls.xml	(revision 53997)
@@ -0,0 +1,100 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder.Test.Zweygart">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Personality Zweygart wordt bepaald door Hostname">
+<Implementation><![CDATA[
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatZweygart"
+	
+	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New()
+	#dim DecrypteerResponse As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(DecrypteerRequest)
+	
+	Do $$$AssertEquals(DecrypteerResponse.PersonalityId, ##class(DOM.common.enu.Personality).Zweygart())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Ongeldig indien geen Ref voor Personality Zweygart">
+<Implementation><![CDATA[
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatZweygart"
+	Set DecrypteerRequest.Ref = ""
+	Set DecrypteerRequest.DataOpt = "RandomDataOpt"
+	
+	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New()
+	#dim DecrypteerResponse As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(DecrypteerRequest)
+	
+	Do $$$AssertFalse(DecrypteerResponse.IsGeldig)
+	Do $$$AssertFalse(DecrypteerResponse.IsContactGegevensFormulierNodig)
+	Do $$$AssertFalse(DecrypteerResponse.IsLoginFormulierNodig)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Ongeldig indien geen DataOpt voor Personality Zweygart">
+<Implementation><![CDATA[
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatZweygart"
+	Set DecrypteerRequest.Ref = "RandomRef"
+	Set DecrypteerRequest.DataOpt = ""
+	
+	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New()
+	#dim DecrypteerResponse As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(DecrypteerRequest)
+	
+	Do $$$AssertFalse(DecrypteerResponse.IsGeldig)
+	Do $$$AssertFalse(DecrypteerResponse.IsContactGegevensFormulierNodig)
+	Do $$$AssertFalse(DecrypteerResponse.IsLoginFormulierNodig)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geldig indien Ref en DataOpt voor Personality Zweygart">
+<Implementation><![CDATA[
+	Set LoginParameters = ##class(WSimpl.Unishop.Login.ParametersHandel).%New()
+	Set LoginParameters.GebruikerID = "1"
+	Set LoginParameters.KlantID = "Zweygart_5"
+	Set LoginParameters.PersonalityID = ##class(DOM.common.enu.Personality).Zweygart()
+	Set LoginParameters.RemoteIP = "127.0.0.257"
+	Set LoginParameters.Taal = "E"
+
+	Set KlantData = ##class(DOM.common.dto.HandelKlantData).%New()
+	Set KlantData.ID = "5"
+	Set KlantData.Naam = "Een Naam"
+
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatZweygart"
+	Set DecrypteerRequest.Ref = "RandomRef"
+	Set DecrypteerRequest.DataOpt = "RandomDataOpt"
+	
+	Set LoginParameterBepalerStub = ##class(vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler).%New()
+	Do LoginParameterBepalerStub.IndienMethodCall("GeefLoginParameters",DecrypteerRequest.Ref, DecrypteerRequest.DataOpt, DecrypteerRequest.Header.Taal, DecrypteerRequest.Header.GebruikerIp).ExactAantalKeer(1).DanReturn(LoginParameters)
+	
+	#dim KortingBewaarderStub As vhTest.Mock.WSimpl.Unishop.Login.KortingBewaarder = ##class(vhTest.Mock.WSimpl.Unishop.Login.KortingBewaarder).%New()
+	Do KortingBewaarderStub.IndienMethodCall("BewaarMeegegevenKorting", DecrypteerRequest.Ref, DecrypteerRequest.DataOpt).DanDoeNiks()
+
+	Set HandelPersonalityStub = ##class(vhTest.Mock.DOM.common.HandelPersonality).%New()
+	Do HandelPersonalityStub.IndienMethodCall("GeefID").DanReturn(##class(DOM.common.enu.Personality).Zweygart())
+	Do HandelPersonalityStub.IndienMethodCall("GeefPrefix").DanReturn("Zweygart_")
+	Do HandelPersonalityStub.IndienMethodCall("Accept",$$$ElkeWaarde).DanReturn(KlantData)
+
+	Set HandelPersonalityRepositoryStub = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
+	Do HandelPersonalityRepositoryStub.IndienMethodCall("GeefViaID", ##class(DOM.common.enu.Personality).Zweygart()).DanReturn(HandelPersonalityStub)
+	
+	#dim HandelKlantDataRepositoryStub As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Do HandelKlantDataRepositoryStub.IndienMethodCall("GeefViaID", LoginParameters.KlantID).DanReturn(KlantData)
+	Do HandelKlantDataRepositoryStub.IndienMethodCall("BestaatViaID", LoginParameters.KlantID).DanReturn($$$True)
+	
+	Set KlantDataBewaarderStub = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
+	Do KlantDataBewaarderStub.IndienMethodCall("Bewaar",HandelPersonalityStub,$$$ElkeWaarde).DanDoeNiks()
+	
+	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerStub,,HandelPersonalityRepositoryStub,,KortingBewaarderStub,,,KlantDataBewaarderStub,HandelKlantDataRepositoryStub)
+	#dim DecrypteerResponse As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(DecrypteerRequest)
+	
+	Do $$$AssertTrue(DecrypteerResponse.IsGeldig)
+	Do $$$AssertFalse(DecrypteerResponse.IsContactGegevensFormulierNodig)
+	Do $$$AssertFalse(DecrypteerResponse.IsLoginFormulierNodig)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>