Index: vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseProcessor/Verwerk/Test.cls.xml
===================================================================
diff -u -r36093 -r36219
--- vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseProcessor/Verwerk/Test.cls.xml (.../Test.cls.xml) (revision 36093)
+++ vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseProcessor/Verwerk/Test.cls.xml (.../Test.cls.xml) (revision 36219)
@@ -30,12 +30,12 @@
@@ -57,12 +58,14 @@
do ##class(TECH.Config.ConfigMgr).Instance().ZetString("OptiBoxBigPath","E:\Errors",..#Applicatie)
#dim Stream As %Stream.Object = ..XmlStream()
- #dim File As TECH.File.FileReader = ##class(vhTest.Fake.TECH.File.FileReader).%New(Stream)
+ #dim FileReader As TECH.File.FileReader = ##class(vhTest.Fake.TECH.File.FileReader).%New(Stream)
+ #dim FileUtilsMock As vhTest.Mock.TECH.File.impl.FileUtils = ##class(vhTest.Mock.TECH.File.impl.FileUtils).%New()
#dim Filename As %String = "E:\File.xml"
set FileAPIMock = ##class(vhTest.Mock.TECH.File.FileAPI).%New()
- do FileAPIMock.VerwachtMethodCall("GeefFileReader",Filename).DanReturn(File)
- do FileAPIMock.VerwachtMethodCall("MoveFile",Filename,"E:\Errors\Cube_IQ_ErrorPath\File.xml")
+ do FileAPIMock.VerwachtMethodCall("GeefFileReader",Filename).DanReturn(FileReader)
+ do FileAPIMock.VerwachtMethodCall("GeefFileUtils").DanReturn(FileUtilsMock)
+ do FileUtilsMock.VerwachtMethodCall("Delete",Filename)
set XmlCorrelaterStub = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
do XmlCorrelaterStub.IndienMethodCall("GeefObjectVanBestand",Filename,"APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq").DanException(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"",$$$ERROR()))
@@ -73,20 +76,23 @@
#dim ResponseProcesser As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseProcessor = ..InitResponseProcessor(FileAPIMock,XmlCorrelaterStub,EventRaiserMock)
do ResponseProcesser.Verwerk(Filename)
+ do FileUtilsMock.Verifieer()
do FileAPIMock.Verifieer()
do EventRaiserMock.Verifieer()
]]>
-
+
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseCollector.cls.xml
===================================================================
diff -u -r36193 -r36219
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseCollector.cls.xml (.../ResponseCollector.cls.xml) (revision 36193)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseCollector.cls.xml (.../ResponseCollector.cls.xml) (revision 36219)
@@ -62,7 +62,7 @@
%String
%String
Index: vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter/WriteRequest/Test.cls.xml
===================================================================
diff -u -r36182 -r36219
--- vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter/WriteRequest/Test.cls.xml (.../Test.cls.xml) (revision 36182)
+++ vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter/WriteRequest/Test.cls.xml (.../Test.cls.xml) (revision 36219)
@@ -50,7 +50,7 @@
%String
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseProcessor.cls.xml
===================================================================
diff -u -r36193 -r36219
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseProcessor.cls.xml (.../ResponseProcessor.cls.xml) (revision 36193)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseProcessor.cls.xml (.../ResponseProcessor.cls.xml) (revision 36219)
@@ -39,7 +39,7 @@
{
Do ..VerwerkXMLBestand(FullFilename)
} else {
- Do ..MoveERRBestand(FullFilename)
+ Do ..DeleteERRBestand(FullFilename)
}
]]>
@@ -51,38 +51,28 @@
try {
#dim Message As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq = ..XmlCorrelater.GeefObjectVanBestand(FullFilename,##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq).%ClassName(1),"cubeiq")
do ..EventRaiser.RaiseResponseRecievedEvent(Message)
- do ..FileAPI.DeleteFile(FullFilename)
+ do ..FileAPI.GeefFileUtils().Delete(FullFilename)
} catch {
do ##class(vhLib.Logger).LogExceptie(##class(TECH.ExceptionHandler).Catch())
- Do ..MoveERRBestand(FullFilename)
+ Do ..DeleteERRBestand(FullFilename)
}
]]>
-
+
FullFilename:%String
1
-
-1
-%String
-
-
-
FullFilename:%String
1
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml
===================================================================
diff -u -r36182 -r36219
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml (.../RequestWriter.cls.xml) (revision 36182)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml (.../RequestWriter.cls.xml) (revision 36219)
@@ -61,7 +61,7 @@
%String