vhUnitTest.TestCase 'Z'"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.GreepEnMeenemer = "No" Set TeConverterenProduct.IsBinnenlade = $$$True Set TeConverterenProduct.RugHoogte = "K" Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"Z") } Method "Test: ProductFeatures: InsideBoxSystem: greep en meenemer, rughoogte M -> 'M'"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.GreepEnMeenemer = "HandleAndLatch" Set TeConverterenProduct.IsBinnenlade = $$$True Set TeConverterenProduct.RugHoogte = "M" Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"M") } Method "Test: ProductFeatures: InsideBoxSystem: greep en meenemer, rughoogte C -> 'M'"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.GreepEnMeenemer = "HandleAndLatch" Set TeConverterenProduct.IsBinnenlade = $$$True Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"R") } Method "Test: ProductFeatures: InsideBoxSystem: Wel greep, geen meenemer, rughoogte M -> 'G'"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.GreepEnMeenemer = "Handle" Set TeConverterenProduct.IsBinnenlade = $$$True Set TeConverterenProduct.RugHoogte = "M" Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"G") } Method "Test: ProductFeatures: InsideBoxSystem: Wel greep, geen meenemer, rughoogte C -> 'G'"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.GreepEnMeenemer = "Handle" Set TeConverterenProduct.IsBinnenlade = $$$True Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"R") } Method "Test: ProductFeatures: InsideBoxSystem: Greep ingevuld, maar niet IsBinnenlade -> 'X' "() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.GreepEnMeenemer = "Handle" Set TeConverterenProduct.IsBinnenlade = $$$False Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"X") } */ ]]> 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() } */ ]]>