Index: vhUnitTest/APPS/VKP/Order/impl/SpaceTowerSplitser/SplitsSpaceTowerLijnen/Test.cls.xml =================================================================== diff -u -r33254 -r54779 --- vhUnitTest/APPS/VKP/Order/impl/SpaceTowerSplitser/SplitsSpaceTowerLijnen/Test.cls.xml (.../Test.cls.xml) (revision 33254) +++ vhUnitTest/APPS/VKP/Order/impl/SpaceTowerSplitser/SplitsSpaceTowerLijnen/Test.cls.xml (.../Test.cls.xml) (revision 54779) @@ -28,6 +28,36 @@ 19995 + +%String +012345 + + + +%String +123456 + + + +%String +234567 + + + +%String +345678 + + + +%String +456789 + + + +%String +567890 + + DOM.VKP.Order 1 @@ -109,7 +139,7 @@ Do SpaceTowerSplitser.SplitsSpaceTowerLijnen(Order.GeefID()) #dim OrderLijnIterator As TECH.Iterator = Order.GeefOrderLijnIterator() - Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 101) + Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 101, 1, ..#AxInventTransId1, ..#AxConfigId1, ..#AxMaatwerkGenerischItemId1) Do $$$AssertFalse(OrderLijnIterator.HasNext()) ]]> @@ -124,7 +154,7 @@ Do SpaceTowerSplitser.SplitsSpaceTowerLijnen(Order.GeefID()) #dim OrderLijnIterator As TECH.Iterator = Order.GeefOrderLijnIterator() - Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 101) + Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 101, 1, ..#AxInventTransId1, ..#AxConfigId1, ..#AxMaatwerkGenerischItemId1) Do $$$AssertFalse(OrderLijnIterator.HasNext()) ]]> @@ -137,9 +167,7 @@ #dim Order As DOM.VKP.Order = ..OrderAPI.GeefOrder(OrderID) Do ..OrderDataUtil.WijzigOrderLijn(..OrderLijnVeld.Aantal, 1000, OrderID, 101, 3) - ;Set OrderLijnSplitserMock = ##class(vhTest.Mock.APPS.VKP.Order.impl.OrderLijnSplitser).%New() - ;Do OrderLijnSplitserMock.VerwachtMethodCall("SplitsAfAantal",OrderID,101,1).DanDoeNiks() - Set SpaceTowerSplitser = ##class(APPS.VKP.Order.impl.SpaceTowerSplitser).%New() ; OrderLijnSplitserMock) + Set SpaceTowerSplitser = ##class(APPS.VKP.Order.impl.SpaceTowerSplitser).%New() Do SpaceTowerSplitser.SplitsSpaceTowerLijnen(Order.GeefID()) // Reload Order @@ -148,13 +176,11 @@ #dim OrderLijnIterator As TECH.Iterator = Order.GeefOrderLijnIterator() - Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 101, 1) - Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 102, 1) - Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 103, 1) + Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 101, 1, ..#AxInventTransId1, ..#AxConfigId1, ..#AxMaatwerkGenerischItemId1) + Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 102, 1, ..#AxInventTransId1, ..#AxConfigId1, ..#AxMaatwerkGenerischItemId1) + Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 103, 1, ..#AxInventTransId1, ..#AxConfigId1, ..#AxMaatwerkGenerischItemId1) Do $$$AssertFalse(OrderLijnIterator.HasNext()) - - ;Do OrderLijnSplitserMock.Verifieer() ]]> @@ -174,11 +200,11 @@ #dim OrderLijnIterator As TECH.Iterator = Order.GeefOrderLijnIterator() - Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 101, 1) - Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 102, 1) - Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 103, 1) - Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 104, 1) - Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 105, 1) + Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 101, 1, ..#AxInventTransId1, ..#AxConfigId1, ..#AxMaatwerkGenerischItemId1) + Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 102, 1, ..#AxInventTransId1, ..#AxConfigId1, ..#AxMaatwerkGenerischItemId1) + Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 103, 1, ..#AxInventTransId1, ..#AxConfigId1, ..#AxMaatwerkGenerischItemId1) + Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 104, 1, ..#AxInventTransId2, ..#AxConfigId2, ..#AxMaatwerkGenerischItemId2) + Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 105, 1, ..#AxInventTransId2, ..#AxConfigId2, ..#AxMaatwerkGenerischItemId2) Do $$$AssertFalse(OrderLijnIterator.HasNext()) ]]> @@ -201,24 +227,27 @@ #dim OrderLijnIterator As TECH.Iterator = Order.GeefOrderLijnIterator() - Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 101, 5) + Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 101, 5, ..#AxInventTransId1, ..#AxConfigId1, ..#AxMaatwerkGenerischItemId1) #dim i As %Integer For i=0:1:8 { - Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 102+i, 1) + Do ..AssertVolgendeOrderLijn(OrderLijnIterator, ##class(DOM.VKP.enu.OrderLijnType).Product(), 102+i, 1, ..#AxInventTransId1, ..#AxConfigId1, ..#AxMaatwerkGenerischItemId1) } Do $$$AssertFalse(OrderLijnIterator.HasNext()) ]]> -OrderLijnIterator:TECH.Iterator,VerwachtOrderLijnType:DOM.VKP.enu.OrderLijnType,VerwachtLijnVolgNr:%Integer,VerwachteAantal:%Integer=1 +OrderLijnIterator:TECH.Iterator,VerwachtOrderLijnType:DOM.VKP.enu.OrderLijnType,VerwachtLijnVolgNr:%Integer,VerwachteAantal:%Integer=1,VerwachteAxInventTransId:%String,VerwachteAxConfigId:%String,VerwachteAxMaatwerkGenerischItemId:%String 1 @@ -261,7 +290,7 @@ #define SpaceTowerProductID 1352575 Do ..MaakOrderHoofding(OrderID,102) - Set ^KOD(1000,"F",OrderID,101) = "703000 \"_$$$SpaceTowerProductID_"\1\\\619\0#0\8\619\619\703000 \L\\\100\619\KF0\\\\E1\EUR\\\63981\\\\\\\\\\\\\\\\\\\\\1" + Set ^KOD(1000,"F",OrderID,101) = "703000 \"_$$$SpaceTowerProductID_"\1\\\619\0#0\8\619\619\703000 \L\\\100\619\KF0\\\\E1\EUR\\\63981\\\\\\\\\\\\\\\\\\\\\1\\\\\\\\\"_..#AxInventTransId1_"\"_..#AxConfigId1_"\"_..#AxMaatwerkGenerischItemId1 Do ##class(vhUnitTest.DataHelper).MaakOrderCompleet(1000,OrderID) ]]> @@ -292,7 +321,7 @@ #define ZomaarEenLadeProductID 1387324 Do ..MaakOrderHoofding(OrderID,102) - Set ^KOD(1000,"F",OrderID,101) = "703100 \"_$$$ZomaarEenLadeProductID_"\1\\\49.21\0#0\0\147.63\147.63\703100 \L\\F\100\147.63\KF0\\\\E1\EUR\\1\63984\\\\\\\\\\\\\\\\\\\\\1" + Set ^KOD(1000,"F",OrderID,101) = "703100 \"_$$$ZomaarEenLadeProductID_"\1\\\49.21\0#0\0\147.63\147.63\703100 \L\\F\100\147.63\KF0\\\\E1\EUR\\1\63984\\\\\\\\\\\\\\\\\\\\\1\\\\\\\\\"_..#AxInventTransId1_"\"_..#AxConfigId1_"\"_..#AxMaatwerkGenerischItemId1 Do ##class(vhUnitTest.DataHelper).MaakOrderCompleet(1000,OrderID) ]]> @@ -305,8 +334,8 @@ #define SpaceTower2ProductID 1354035 Do ..MaakOrderHoofding(OrderID,103) - Set ^KOD(1000,"F",OrderID,101) = "703000 \"_$$$SpaceTowerProductID _"\1\\\619\0#0\8\619\619\703000 \L\\\100\619\KF0\\\\E1\EUR\\\63981\\\\\\\\\\\\\\\\\\\\\1" - Set ^KOD(1000,"F",OrderID,102) = "703000 \"_$$$SpaceTower2ProductID_"\1\\\444\0#0\8\619\619\703000 \L\\\110\619\KF0\\\\E1\EUR\\\63981\\\\\\\\\\\\\\\\\\\\\1" + Set ^KOD(1000,"F",OrderID,101) = "703000 \"_$$$SpaceTowerProductID _"\1\\\619\0#0\8\619\619\703000 \L\\\100\619\KF0\\\\E1\EUR\\\63981\\\\\\\\\\\\\\\\\\\\\1\\\\\\\\\"_..#AxInventTransId1_"\"_..#AxConfigId1_"\"_..#AxMaatwerkGenerischItemId1 + Set ^KOD(1000,"F",OrderID,102) = "703000 \"_$$$SpaceTower2ProductID_"\1\\\444\0#0\8\619\619\703000 \L\\\110\619\KF0\\\\E1\EUR\\\63981\\\\\\\\\\\\\\\\\\\\\1\\\\\\\\\"_..#AxInventTransId2_"\"_..#AxConfigId2_"\"_..#AxMaatwerkGenerischItemId2 Do ##class(vhUnitTest.DataHelper).MaakOrderCompleet(1000,OrderID) ]]>