Index: vhUnitTest/APPS/TRANSP/impl/TransportAPI/GeefCommunicatieService.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/impl/TransportAPI/GeefCommunicatieService.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/impl/TransportAPI/GeefCommunicatieService.cls.xml	(revision 60391)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.impl.TransportAPI.GeefCommunicatieService">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="ProjectsettingAPI">
+<Type>DOM.common.ProjectSettingsAPI</Type>
+</Property>
+
+<Property name="Transporteur">
+<Type>DOM.TRANSP.enu.Transporteur.AutoComplete</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>AManager:Tools.Test.Manager</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##Super(AManager)
+	set ..Transporteur = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super()
+	set ..ProjectsettingAPI = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).MockInstance()
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefCommunicatieservice Transsmart niet actief">
+<Implementation><![CDATA[
+	Do ..ProjectsettingAPI.VerwachtMethodCall("IsTranssmartActive").DanReturn($$$False)
+	
+	set TransportAPI = ##class(APPS.TRANSP.impl.TransportAPI).%New(..ProjectsettingAPI)
+	
+	Do $$$AssertClassName(TransportAPI.GeefCommunicatieService(..Transporteur.VRD),##class(APPS.TRANSP.impl.CommunicatieService).%ClassName(1))
+	Do $$$AssertClassName(TransportAPI.GeefCommunicatieService(..Transporteur.DHL),##class(APPS.TRANSP.impl.CommunicatieService).%ClassName(1))
+	Do $$$AssertClassName(TransportAPI.GeefCommunicatieService(..Transporteur.GLSBelgiumFreight),##class(APPS.TRANSP.GLS.impl.CommunicatieService).%ClassName(1))
+	Do $$$AssertClassName(TransportAPI.GeefCommunicatieService(..Transporteur.GLSBelgiumParcel),##class(APPS.TRANSP.GLS.impl.CommunicatieService).%ClassName(1))
+	Do ..ProjectsettingAPI.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefCommunicatieservice voor VRD Transsmart actief">
+<Implementation><![CDATA[
+	Do ..ProjectsettingAPI.VerwachtMethodCall("IsTranssmartActive").DanReturn($$$True)
+	
+	set TransportAPI = ##class(APPS.TRANSP.impl.TransportAPI).%New(..ProjectsettingAPI)
+	
+	Do $$$AssertClassName(TransportAPI.GeefCommunicatieService(..Transporteur.VRD),##class(APPS.TRANSP.Transsmart.impl.CommunicatieService).%ClassName(1))
+	Do $$$AssertClassName(TransportAPI.GeefCommunicatieService(..Transporteur.DHL),##class(APPS.TRANSP.Transsmart.impl.CommunicatieService).%ClassName(1))
+	Do $$$AssertClassName(TransportAPI.GeefCommunicatieService(..Transporteur.GLSBelgiumFreight),##class(APPS.TRANSP.impl.CommunicatieService).%ClassName(1))
+	Do $$$AssertClassName(TransportAPI.GeefCommunicatieService(..Transporteur.GLSBelgiumParcel),##class(APPS.TRANSP.impl.CommunicatieService).%ClassName(1))
+
+	Do ..ProjectsettingAPI.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>