vhUnitTest.TestCase ItemLT"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.HeeftMat = $$$True Set TeConverterenProduct.Klasse = "L" Set TeConverterenProduct.ZijkantHoogte = "C" Set TeConverterenProduct.MatKleur = ##class(DOM.PM.enu.TBXAntislipmat).Grijs() #dim TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Do TBXLadeCodeBepalerStub.VerwachtMethodCall("BepaalLadeCode",TeConverterenProduct.Klasse, TeConverterenProduct.ZijkantHoogte, TeConverterenProduct.RugHoogte, TeConverterenProduct.IsBinnenlade, "V", $$$ElkeWaarde).ExactAantalKeer(1) #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(TBXLadeCodeBepalerStub) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do TBXLadeCodeBepalerStub.Verifieer() } */ ]]>