vhUnitTest.TestCase 1111111 DOM.Halux.AAP.DnaCode 1 TECH.Iterator 1 TestName:%String " 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 PartijAPIMock.Verifieer() Do HtmlInhoudProboxEtiketBepalerMock.Verifieer() Do OrderAPIMock.Verifieer() ]]>