Index: vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml =================================================================== diff -u -r63154 -r63179 --- vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml (.../Test.cls.xml) (revision 63154) +++ vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml (.../Test.cls.xml) (revision 63179) @@ -7,13 +7,17 @@ 1111111 + +2222222 + + DOM.Halux.AAP.DnaCode 1 - -TECH.Iterator + +DOM.Halux.AAP.DnaCode 1 @@ -29,7 +33,12 @@ Set ..DnaCode1.OrderId = $$$DummyString Set ..DnaCode1.Toelevering = $$$DummyString - Set ..DnaCodeIterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1) + Set ..DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New() + Set ..DnaCode2.PalletCode = "TBX12345" + Set ..DnaCode2.ProductNummer = ..#ProductId1 + Set ..DnaCode2.KlantNummer = $$$DummyString + Set ..DnaCode2.OrderId = $$$DummyString + Set ..DnaCode2.Toelevering = $$$DummyString ]]> @@ -46,21 +55,23 @@ " - Do HtmlInhoudProboxEtiketBepalerMock.VerwachtMethodCall("BepaalHtmlInhoudProboxEtiket", ..DnaCodeIterator).DanReturn(InhoudAlsHTML) + Do HtmlInhoudProboxEtiketBepalerMock.VerwachtMethodCall("BepaalHtmlInhoudProboxEtiket", DnaCodeIterator).DanReturn(InhoudAlsHTML) Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New() Set Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrderHoofding() Do OrderAPIMock.VerwachtMethodCall("GeefOrder", ..DnaCode1.OrderId).DanReturn(Order) Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock) Set Device = $$$DummyString - Set Etiket = ProboxInhoudEtiketGenerator.GenereerProboxInhoudEtiket(..DnaCodeIterator, Device) + Set Etiket = ProboxInhoudEtiketGenerator.GenereerProboxInhoudEtiket(DnaCodeIterator, Device) Do $$$AssertEquals(Etiket.Device, Device) Do $$$AssertEquals(Etiket.Aantal, 1) @@ -80,6 +91,45 @@ Do OrderAPIMock.Verifieer() ]]> + + +" + Do HtmlInhoudProboxEtiketBepalerMock.VerwachtMethodCall("BepaalHtmlInhoudProboxEtiket", DnaCodeIterator).DanReturn(InhoudAlsHTML) + + Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New() + Set Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrderHoofding() + Do OrderAPIMock.VerwachtMethodCall("GeefOrder", ..DnaCode1.OrderId).DanReturn(Order) + + Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock) + Set Device = $$$DummyString + Set Etiket = ProboxInhoudEtiketGenerator.GenereerProboxInhoudEtiket(DnaCodeIterator, Device) + + Do $$$AssertEquals(Etiket.Device, Device) + Do $$$AssertEquals(Etiket.Aantal, 1) + Do $$$AssertEquals(Etiket.KlantNaam, Partij.GeefNaam()) + Do $$$AssertEquals(Etiket.InhoudAlsHTML, InhoudAlsHTML) + Do $$$AssertEquals(Etiket.PalletBarcode, ..DnaCode1.PalletCode) + Do $$$AssertEquals(Etiket.PalletBarcodeTxt, "TBX1 2345") + + Do $$$AssertEquals(Etiket.OrderRef, Order.GeefOrderReferentie()) + Do $$$AssertEquals(Etiket.OrderNr, Order.GeefID()) + Do $$$AssertEquals(Etiket.ToeleveringNr, ..DnaCode1.Toelevering) + Do $$$AssertEquals(Etiket.VerzendingWijze, Order.GeefVerzendingWijze()) + Do $$$AssertEquals(Etiket.CommissieReferentie, Order.GeefCommissieReferentie()) + + Do PartijAPIMock.Verifieer() + Do HtmlInhoudProboxEtiketBepalerMock.Verifieer() + Do OrderAPIMock.Verifieer() +]]> +