do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.TBXWeb.impl.TestOrderHandlers") APPS.TBXWeb 1 vhUnitTest.TestCase 0 1 2 APPS.TBXWeb.enu.TBXHandel 1 APPS.TBXWeb.enu.TBXHandel 1 APPS.TBXWeb.enu.DomeinNaam 1 %List 1 %String 1 %List 1 %String 1 %String 1 %String 1 %String 1 %String 1 %String 1 %Boolean 1 ") set ..MailFrom = """KlantNaam ("_##class(APPS.TBXWeb.enu.TBXHandel).VanHoecke()_")"" " set ..MailLanguage = ##class(DOM.enu.Taal).Nederlands() set ..OrderResultType = ##class(APPS.TBXWeb.enu.BonType).Bestelbon() set ..Implementatie = "VHEPNOrderHandler" set ..ValidBonTypes = $listbuild(##class(APPS.TBXWeb.enu.BonType).Offerte()) do ..VoerUitTest() ]]> ") set ..MailFrom = """De onbekende soldaat"" " set ..MailLanguage = ##class(DOM.enu.Taal).Nederlands() set ..OrderResultType = ##class(APPS.TBXWeb.enu.BonType).OfferteAanvraag() set ..Implementatie = "VHEPNOrderHandler" set ..ValidBonTypes = $listbuild(##class(APPS.TBXWeb.enu.BonType).OfferteAanvraag()) do ..VoerUitTest() ]]> " set ..MailLanguage = ##class(DOM.enu.Taal).Nederlands() set ..ValidBonTypes = $listbuild(##class(APPS.TBXWeb.enu.BonType).Bestelbon()) set ..OrderResultType = ##class(APPS.TBXWeb.enu.BonType).Inkooporder() set ..Implementatie = "VHEPNOrderHandler" do ..VoerUitTest() quit ]]> " set ..MailLanguage = ##class(DOM.enu.Taal).Nederlands() set ..ValidBonTypes = $listbuild(##class(APPS.TBXWeb.enu.BonType).Bestelbon()) set ..OrderResultType = ##class(APPS.TBXWeb.enu.BonType).Inkooporder() set ..Implementatie = "VHEPNOrderHandler" do ..VoerUitTest() quit ]]> " set ..MailLanguage = ##class(DOM.enu.Taal).Nederlands() set ..ValidBonTypes = $listbuild(##class(APPS.TBXWeb.enu.BonType).Bestelbon()) set ..OrderResultType = ##class(APPS.TBXWeb.enu.BonType).Inkooporder() set ..Implementatie = "VHEPNOrderHandler" do ..VoerUitTest() quit ]]> " set ..MailLanguage = ##class(DOM.enu.Taal).Nederlands() set ..OrderResultType = ##class(APPS.TBXWeb.enu.BonType).Inkooporder() set ..Implementatie = "VHEPNOrderHandler" do ..VoerUitTest() quit ]]> ") set ..MailLanguage = ##class(DOM.enu.Taal).Nederlands() set ..ValidBonTypes = $listbuild(##class(APPS.TBXWeb.enu.BonType).Bestelbon()) set ..MailFrom = """Destil TBX Inkoop"" " set ..OrderResultType = ##class(APPS.TBXWeb.enu.BonType).Inkooporder() set ..Implementatie = "VHEPNOrderHandler" do ..VoerUitTest() quit ]]> ") set ..ValidBonTypes = $listbuild(##class(APPS.TBXWeb.enu.BonType).Bestelbon()) set ..MailFrom = """Extern TBX Aankoop"" " set ..OrderResultType = ##class(APPS.TBXWeb.enu.BonType).Inkooporder() set ..Implementatie = "VHEPNOrderHandler" do ..VoerUitTest() quit ]]> ", """KISCH OV."" ") set ..MailFrom = """KlantNaam (KISCH)"" " set ..MailLanguage = ##class(DOM.enu.Taal).Nederlands() set ..ValidBonTypes = $listbuild(##class(APPS.TBXWeb.enu.BonType).Offerte()) set ..OrderResultType = ##class(APPS.TBXWeb.enu.BonType).Bestelbon() set ..Implementatie = "KISCHOrderHandler" do ..VoerUitTest() quit ]]> ") set ..MailFrom = """KlantNaam (MBHO)"" " set ..MailLanguage = ##class(DOM.enu.Taal).Nederlands() set ..ValidBonTypes = $listbuild(##class(APPS.TBXWeb.enu.BonType).Offerte()) set ..OrderResultType = ##class(APPS.TBXWeb.enu.BonType).Bestelbon() set ..Implementatie = "MBHOOrderHandler" do ..VoerUitTest() quit ]]> ") set ..MailFrom = """KlantNaam (LMC)"" " set ..MailLanguage = ##class(DOM.enu.Taal).Frans() set ..ValidBonTypes = $listbuild(##class(APPS.TBXWeb.enu.BonType).Offerte()) set ..OrderResultType = ##class(APPS.TBXWeb.enu.BonType).Bestelbon() set ..Implementatie = "LMCOrderHandler" do ..VoerUitTest() quit ]]> ","""Twan Peters"" ") set ..MailFrom = """KlantNaam (HELMY)"" " set ..MailLanguage = ##class(DOM.enu.Taal).Nederlands() set ..ValidBonTypes = $listbuild(##class(APPS.TBXWeb.enu.BonType).Offerte()) set ..OrderResultType = ##class(APPS.TBXWeb.enu.BonType).Bestelbon() set ..Implementatie = "HELMYOrderHandler" do ..VoerUitTest() quit ]]> ") set ..MailFrom = """KlantNaam (HEIN)"" " set ..MailLanguage = ##class(DOM.enu.Taal).Duits() set ..ValidBonTypes = $listbuild(##class(APPS.TBXWeb.enu.BonType).Offerte()) set ..OrderResultType = ##class(APPS.TBXWeb.enu.BonType).Bestelbon() set ..Implementatie = "HEINOrderHandler" do ..VoerUitTest() quit ]]> 1 1 BonType:APPS.TBXWeb.enu.BonType 1 BonType:APPS.TBXWeb.enu.BonType 1 BonType:APPS.TBXWeb.enu.BonType,AbstractOrderID:%String 1 0,"de unittest data is consistent opgesteld") ;do $$$AssertEquals(impl.GebruiktEmail(),$length(..MailTo)>0,"de unittest data is consistent opgesteld") ;do $$$AssertEquals(impl.GebruiktEmail(),$length(..MailLanguage)>0,"de unittest data is consistent opgesteld") if impl.GebruiktEmail() { do $$$AssertTrue(..MailFrom'="","de verwachte MailFrom is niet leeg") do $$$AssertTrue(..MailTo'="","de verwachte MailTo is niet leeg") do $$$AssertTrue(..MailLanguage'="","de verwachte MailLanguage is niet leeg") do $$$AssertEquals($$$LCVT(impl.GetMailTo()),$$$LCVT(..MailTo),"Email adres voor "_..Requester) do $$$AssertEquals(impl.GetMailFrom(),..MailFrom,"MailFrom voor "_..Requester) do $$$AssertEquals(impl.GetMailLanguage(),..MailLanguage,"MailLanguage voor "_..Requester) } else { do $$$AssertTrue(..MailFrom="","de verwachte MailFrom is leeg") do $$$AssertTrue(..MailTo="","de verwachte MailTo is leeg") do $$$AssertTrue(..MailLanguage="","de verwachte MailLanguage is leeg") } } ]]> BonType:APPS.TBXWeb.enu.BonType 1 %Boolean 0 ]]> BonType:APPS.TBXWeb.enu.BonType 1 %Boolean 0 ]]> impl:APPS.TBXWeb.impl.AbstractOrderHandler,BonType:APPS.TBXWeb.enu.BonType 1 impl:APPS.TBXWeb.impl.AbstractOrderHandler,AbstractOrderID:%String 1 1 BonType:%String 1 %String BonType:%String 1 %String