Index: vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort/Test.cls.xml
===================================================================
diff -u -r32821 -r32822
--- vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort/Test.cls.xml	(.../Test.cls.xml)	(revision 32821)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort/Test.cls.xml	(.../Test.cls.xml)	(revision 32822)
@@ -5,10 +5,14 @@
 
 <Method name="Test: UPS Communicatie met TransportSpy ">
 <Implementation><![CDATA[
-	#dim TransportSpy As vhTest.Spy.TECH.SoapClient.Transporter = ..GeefTransport()
+	#dim Response As %String = "<soapenv:Envelope xmlns:soapenv=""http://schemas.xmlsoap.org/soap/envelope/""><soapenv:Header/><soapenv:Body><tnt:TimeInTransitResponse xmlns:tnt=""http://www.ups.com/XMLSchema/XOLTWS/tnt/v1.0""></tnt:TimeInTransitResponse></soapenv:Body></soapenv:Envelope>"
+	#dim TransportSpy As vhTest.Spy.TECH.SoapClient.Transporter = ##class(vhTest.Spy.TECH.SoapClient.Transporter).%New(Response)
+
+	Set TimeInTransitService = ##class(APPS.TRANSP.UPS.impl.TimeInTransit.Service.TimeInTransitPort).%New()
+	Set TimeInTransitService.Transport = TransportSpy
+
+	#dim DummyResponse As APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse = TimeInTransitService.Process(..GeefBody())
 	
-	Do ..CommuniceerMetUPS(TransportSpy)
-	
 	do $$$AssertEquals(TransportSpy.Action,"http://onlinetools.ups.com/webservices/TimeInTransitBinding/v1.0")
 	do $$$AssertEquals(TransportSpy.OneWay,$$$false)
 	
@@ -18,39 +22,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="CommuniceerMetUPS">
-<FormalSpec><![CDATA[&TransportSpy:vhTest.Spy.TECH.SoapClient.Transporter=""]]></FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse</ReturnType>
-<Implementation><![CDATA[
-	Set Connection = ##class(APPS.TRANSP.UPS.impl.TimeInTransit.Service.TimeInTransitPort).%New()
-	
-	If ($IsObject(TransportSpy)) {
-		Set Connection.Transport = TransportSpy
-	}
-
-	try {
-		#dim Response As APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse = Connection.Process(..GeefBody())
-	} catch {
-		do ..Fail(##class(TECH.ExceptionHandler).Catch().GeefOmschrijving())
-		do ..Fail(%objlasterror)
-	}
-	
-	Quit Response
-]]></Implementation>
-</Method>
-
-<Method name="SchrijfXmlNaarBestand">
-<FormalSpec>Document:%XML.Adaptor,BestandsNaam:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim FileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
-	do FileWriter.Open(..GeefBestandLocatie() _BestandsNaam)
-	do FileWriter.WriteXML(Document)
-	do FileWriter.Close()
-]]></Implementation>
-</Method>
-
 <Method name="FormateerXmlStream">
 <FormalSpec>BronStream:%Stream</FormalSpec>
 <Private>1</Private>
@@ -68,15 +39,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefTransport">
-<Private>1</Private>
-<ReturnType>vhTest.Spy.TECH.SoapClient.Transporter</ReturnType>
-<Implementation><![CDATA[
-	#dim TransportSpy As vhTest.Spy.TECH.SoapClient.Transporter = ##class(vhTest.Spy.TECH.SoapClient.Transporter).%New("<soapenv:Envelope xmlns:soapenv=""http://schemas.xmlsoap.org/soap/envelope/""><soapenv:Header/><soapenv:Body><tnt:TimeInTransitResponse xmlns:tnt=""http://www.ups.com/XMLSchema/XOLTWS/tnt/v1.0""></tnt:TimeInTransitResponse></soapenv:Body></soapenv:Envelope>")
-	quit TransportSpy
-]]></Implementation>
-</Method>
-
 <Method name="GeefBody">
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitRequest</ReturnType>