vhUnitTest.TestCase ItemWD als IsInteriorCabinetWidth = false"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.CorpusWandDikte = "18" Set TeConverterenProduct.IsBinnenbreedte = $$$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.ItemWD,"18") } Method "Test: ProductFeatures: CorpusWandDikte: 'B' -> ItemWD als IsInteriorCabinetWidth = true"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.IsBinnenbreedte = $$$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.ItemWD,"B") } */ ]]> '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") } */ ]]> ItemASM"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.HeeftMat = $$$True Set TeConverterenProduct.MatKleur = ##class(DOM.PM.enu.MATKleur).ZwartAntislip() 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.ItemASM,"Z") } Method "Test: ProductFeatures: AntislipMat: HeeftMat false"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.HeeftMat = $$$False Set TeConverterenProduct.MatKleur = ##class(DOM.PM.enu.MATKleur).ZwartAntislip() 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.ItemASM,"") } Method "Test: ProductFeatures: LadeCodeKenmerken -> 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() } */ ]]>