Index: vhUnitTest/CHUI/VKP/OrderIngave/OrderSluiterFactory/Test.cls.xml =================================================================== diff -u -r44548 -r47601 --- vhUnitTest/CHUI/VKP/OrderIngave/OrderSluiterFactory/Test.cls.xml (.../Test.cls.xml) (revision 44548) +++ vhUnitTest/CHUI/VKP/OrderIngave/OrderSluiterFactory/Test.cls.xml (.../Test.cls.xml) (revision 47601) @@ -12,7 +12,7 @@ Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings)) Set OrderSluiterFactory = ##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New(OrderAPIMock) - Set OrderSluiter = OrderSluiterFactory.GeefOrderSluiter("1000") + #dim OrderSluiter As TECH.RegisteredObject = OrderSluiterFactory.GeefOrderSluiter("1000") ]]> @@ -21,13 +21,14 @@ Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean( "TijdelijkOrderSluitenActief" , $$$False, ..#Applicatie) Set OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New() + Do OrderMock.IndienMethodCall("GeefAxSalesId").DanReturn("") #dim OrderAPIMock as DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance() Do OrderAPIMock.VerwachtMethodCall("BestaatOrder","1000").DanReturn($$$True) Do OrderAPIMock.VerwachtMethodCall("GeefOrder","1000").DanReturn(OrderMock) Set OrderSluiterFactory = ##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New(OrderAPIMock) - Set OrderSluiter = OrderSluiterFactory.GeefOrderSluiter("1000") + #dim OrderSluiter As TECH.RegisteredObject = OrderSluiterFactory.GeefOrderSluiter("1000") Do $$$AssertEquals(OrderSluiter.%ClassName(1),##class(CHUI.VKP.OrderIngave.OrderSluiterv01).%ClassName(1)) Do OrderAPIMock.Verifieer() @@ -41,13 +42,14 @@ Set OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New() Do OrderMock.VerwachtMethodCall("GeefOrderType").DanReturn(##class(DOM.VKP.enu.OrderType).Transfer()) Do OrderMock.VerwachtMethodCall("IsBevestigdKlantOrder").DanReturn($$$False) + Do OrderMock.IndienMethodCall("GeefAxSalesId").DanReturn("") #dim OrderAPIMock as DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance() Do OrderAPIMock.VerwachtMethodCall("BestaatOrder","1000").DanReturn($$$True) Do OrderAPIMock.VerwachtMethodCall("GeefOrder","1000").DanReturn(OrderMock) Set OrderSluiterFactory = ##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New(OrderAPIMock) - Set OrderSluiter = OrderSluiterFactory.GeefOrderSluiter("1000") + #dim OrderSluiter As TECH.RegisteredObject = OrderSluiterFactory.GeefOrderSluiter("1000") Do $$$AssertEquals(OrderSluiter.%ClassName(1),##class(CHUI.VKP.OrderIngave.OrderSluiterv01).%ClassName(1)) Do OrderAPIMock.Verifieer() @@ -61,13 +63,14 @@ Set OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New() Do OrderMock.VerwachtMethodCall("IsBevestigdKlantOrder").DanReturn($$$True) + Do OrderMock.IndienMethodCall("GeefAxSalesId").DanReturn("") #dim OrderAPIMock as DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance() Do OrderAPIMock.VerwachtMethodCall("BestaatOrder","1000").DanReturn($$$True) Do OrderAPIMock.VerwachtMethodCall("GeefOrder","1000").DanReturn(OrderMock) Set OrderSluiterFactory = ##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New(OrderAPIMock) - Set OrderSluiter = OrderSluiterFactory.GeefOrderSluiter("1000") + #dim OrderSluiter As TECH.RegisteredObject = OrderSluiterFactory.GeefOrderSluiter("1000") Do $$$AssertEquals(OrderSluiter.%ClassName(1),##class(CHUI.VKP.OrderIngave.OrderSluiterv01).%ClassName(1)) Do OrderAPIMock.Verifieer() @@ -88,13 +91,55 @@ Do OrderAPIMock.VerwachtMethodCall("GeefOrder","1000").DanReturn(OrderMock) Set OrderSluiterFactory = ##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New(OrderAPIMock) - Set OrderSluiter = OrderSluiterFactory.GeefOrderSluiter("1000") + #dim OrderSluiter As TECH.RegisteredObject = OrderSluiterFactory.GeefOrderSluiter("1000") Do $$$AssertEquals(OrderSluiter.%ClassName(1),##class(CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01).%ClassName(1)) Do OrderAPIMock.Verifieer() Do OrderMock.Verifieer() ]]> + + + + + + + +