Index: vhUnitTest/CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01/Test.cls.xml =================================================================== diff -u -r49529 -r50870 --- vhUnitTest/CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01/Test.cls.xml (.../Test.cls.xml) (revision 49529) +++ vhUnitTest/CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01/Test.cls.xml (.../Test.cls.xml) (revision 50870) @@ -87,7 +87,8 @@ #dim OrderMock as DOM.VKP.Order = ..GeefOrder(ProductOrderlijn) #dim OrderAPIMock as vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance() Do OrderAPIMock.VerwachtMethodCall("GeefOrder","1000").DanReturn(OrderMock) - Do OrderAPIMock.IndienMethodCall("VerwijderOrder","1000").DanException(##class(TECH.Exceptions.InvalidInputException).%New($$$DummyString)) + Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New($$$DummyString) + Do OrderAPIMock.IndienMethodCall("VerwijderOrder","1000").DanException(Exception) Set Request = ##class(AXimpl.Request).%New("SalesOrder/Create",1000) Set GeneratorMock = ##class(vhTest.Mock.AXimpl.Generator).%New() @@ -99,7 +100,8 @@ Do BouwsteenIteratorFactoryMock.VerwachtMethodCall("Maak","ProductID").DanReturn(##class(TECH.ListIterator).%New(##class(%ListOfDataTypes).%New())) Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New() - Do LoggerMock.VerwachtMethodCall("Error","Verwijderen tijdelijk order","Er liep iets mis met het verwijderen van tijdelijk order '1000'. Het bestand voor AX werd gegenereerd. Dit moet heel waarschijnlijk nog opgekuist worden in cache.","1").DanDoeNiks() + Do LoggerMock.VerwachtMethodCall("Error","Verwijderen tijdelijk order",..Matches.ContainsString( "Er liep iets mis met het verwijderen van tijdelijk order '1000'. Het bestand voor AX werd gegenereerd. Dit moet heel waarschijnlijk nog opgekuist worden in cache."),"1").DanDoeNiks() + Set Sluiter = ##class(CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01).%New(GeneratorMock,OrderAPIMock,ProductAPIMock,BezwarenWeergeverMock,BouwsteenIteratorFactoryMock,LoggerMock) Do Sluiter.Sluit(1000,$$$DummyString,$$$DummyString) Index: CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml =================================================================== diff -u -r49529 -r50870 --- CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml (.../TijdelijkOrderSluiterv01.cls.xml) (revision 49529) +++ CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml (.../TijdelijkOrderSluiterv01.cls.xml) (revision 50870) @@ -63,7 +63,9 @@ Do ..OrderAPI.VerwijderOrder(ORDNr) } catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() - Do ..Logger.Error("Verwijderen tijdelijk order","Er liep iets mis met het verwijderen van tijdelijk order '"_ORDNr _ "'. Het bestand voor AX werd gegenereerd. Dit moet heel waarschijnlijk nog opgekuist worden in cache.",$$$True) + #dim melding as %String = "Er liep iets mis met het verwijderen van tijdelijk order '"_ORDNr _ "'. Het bestand voor AX werd gegenereerd. Dit moet heel waarschijnlijk nog opgekuist worden in cache." + Set melding = melding _ $$$CRLF _ Exception.ToString() + Do ..Logger.Error("Verwijderen tijdelijk order",melding,$$$True) } } }