Index: vhUnitTest/APPS/TRANSP/Transsmart/impl/EtiketService/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Transsmart/impl/EtiketService/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Transsmart/impl/EtiketService/Test.cls.xml	(revision 60521)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Transsmart.impl.EtiketService.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	#dim ProjectSettingsAPIMock as DOM.common.ProjectSettingsAPI = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).MockInstance()
+	Do ProjectSettingsAPIMock.VerwachtMethodCall("GebruikTranssmartAcceptOmgeving").DanReturn($$$False)
+	Do ProjectSettingsAPIMock.VerwachtMethodCall("IsTranssmartActive").DanReturn($$$True)
+		
+	Set EtiketPrinterMock = ##class(vhTest.Mock.APPS.TRANSP.Transsmart.impl.EtiketPrinter).%New()
+	Set DummyList = ##class(%ListOfDataTypes).%New()
+	Do DummyList.Insert("ZPL Code voor etiket")
+	Do EtiketPrinterMock.VerwachtMethodCall("PrintEtiketten",..Matches.List(DummyList),"UNITTESTWORKSTATION","TRANSSMART_ZPL").DanDoeNiks()
+	
+	Set TranssmartWSClientMock = ##class(vhTest.Mock.WS.Transsmart.TboxServicePort).%New()
+	Do TranssmartWSClientMock.VerwachtMethodCall("ZetSSLConfiguration","Transsmart").DanDoeNiks()
+	Do TranssmartWSClientMock.VerwachtMethodCall("ZetLocationVoorOmgeving","DEV").DanDoeNiks()
+
+	Set Response = ##class(WS.Transsmart.tns.getDocsResponse).%New()
+	Set Label = ##class(WS.Transsmart.tns.GetDocsResponsePackageLabel).%New()
+	Set Label.labelData = "ZPL Code voor etiket"
+	Do Response.packages.Insert(Label)
+	Do TranssmartWSClientMock.VerwachtMethodCall("getDocs",..Matches.IsA("WS.Transsmart.tns.getDocs")).DanReturn(Response)
+
+	Set RequestBouwerMock = ##class(vhTest.Mock.APPS.TRANSP.Transsmart.RequestDataBouwer).%New()
+	Do RequestBouwerMock.VerwachtMethodCall("MaakgetDocsRequest","5432123456").DanReturn(##class(WS.Transsmart.tns.getDocs).%New())
+
+	Set LeveringMock = ##class(vhTest.Mock.DOM.TRANSP.Levering).%New()
+	Do LeveringMock.VerwachtMethodCall("GeefID").DanReturn("123456")
+	Do LeveringMock.VerwachtMethodCall("GeefRitID").DanReturn("54321")
+
+	Set EtiketService = ##class(APPS.TRANSP.Transsmart.impl.EtiketService).%New(EtiketPrinterMock,,ProjectSettingsAPIMock,TranssmartWSClientMock,RequestBouwerMock)
+	Do EtiketService.PrintEtikettenVoorLevering(LeveringMock)
+	
+	Do ProjectSettingsAPIMock.Verifieer()
+	Do LeveringMock.Verifieer()
+	Do TranssmartWSClientMock.Verifieer()
+	Do EtiketPrinterMock.Verifieer()
+	Do RequestBouwerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetComputerNaam("UNITTESTWORKSTATION")
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##class(TECH.Context.RuntimeContext).Instance().Reset()
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>