Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/Test.cls.xml	(revision 59151)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.OCC.OCCService.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="OCCKenmerkenConverter">
+<Type>WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..OCCKenmerkenConverter = ##class(vhTest.Mock.WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefNaarEconGeconverteerdeKenmerken geeft een response">
+<Implementation><![CDATA[
+	Set OCCKenmerkenRequest = ##class(WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest).%New()
+	Set NaarEconGeconverteerdeKenmerkenResponse = ##class(WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse).%New()
+	
+	Do ..OCCKenmerkenConverter.VerwachtMethodCall("ConverteerBlumKenmerkenNaarEconKenmerken",OCCKenmerkenRequest).DanReturn(NaarEconGeconverteerdeKenmerkenResponse)
+
+	#dim OCCService As WSimpl.Vhisie4.OCC.OCCService = ##class(WSimpl.Vhisie4.OCC.OCCService).%New(..OCCKenmerkenConverter)
+	Do OCCService.GeefNaarEconGeconverteerdeKenmerken(OCCKenmerkenRequest)
+	
+	Do ..OCCKenmerkenConverter.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: ConverteerBlumKenmerkenNaarEconKenmerken van de OCCKenmerkenConverter geeft een exceptie">
+<Implementation><![CDATA[
+	#dim RequestId As %String = "RequestId"
+	#dim SessieId As %String = "SessieId"
+	#dim KlantId As %String = "KlantId"
+	#dim PersonalityId As %String = "PersonalityId"
+	
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Fout bij converteren van OCC-kenmerken naar E-con-kenmerken. RequestId: '", RequestId, "' - SessieId: '", SessieId, "' - KlantId: '", KlantId, "' - PersonalityId: '", PersonalityId, "'.")
+	#dim Exception As TECH.Exceptions = ##class(TECH.Exceptions.GeneralErrorException).%New(Substrings)
+	#dim InnerExceptions As TECH.ExceptionList = ##class(TECH.ExceptionList).%New()
+	#dim InnerException As TECH.Exceptions.Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Inner Exception")
+	Do InnerExceptions.Insert(InnerException)
+	Do Exception.ZetInnerExcepties(InnerExceptions)
+	
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
+	
+	Set OCCKenmerkenRequest = ##class(WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest).%New()
+	Set OCCKenmerkenRequest.Header.RequestId = RequestId
+	Set OCCKenmerkenRequest.Header.SessieId = SessieId
+	Set OCCKenmerkenRequest.Header.KlantId = KlantId
+	Set OCCKenmerkenRequest.Header.PersonalityId = PersonalityId
+	
+	Do ..OCCKenmerkenConverter.IndienMethodCall("ConverteerBlumKenmerkenNaarEconKenmerken",OCCKenmerkenRequest).DanException(InnerException)
+
+	#dim OCCService As WSimpl.Vhisie4.OCC.OCCService = ##class(WSimpl.Vhisie4.OCC.OCCService).%New(..OCCKenmerkenConverter)
+	Do OCCService.GeefNaarEconGeconverteerdeKenmerken(OCCKenmerkenRequest)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>