1 vhUnitTest.TestCase %String Zo spoedig mogelijk DOM.common.enu.Personality %String 1 DOM.common.Personality 1 DOM.common.enu.Personality 1 aTestName:%String 1 1 DOM.common.enu.Personality 1 1 1 1 Mail:TECH.Mail.Mail 1 1 1 %String 1 1 %String 1 1 %ListOfDataTypes 1 1 DOM.common.dto.KlantData 1 DOM.common.dto.GebruikerData 1 1 %String 1 1 %String 1 1 DOM.common.Personality Inhoud:%Stream 1 ") Do $$$AssertEquals(Inhoud.ReadLine(), "
") // Deze blok is een tijdelijk extra toegevoegde boodschap om de klanten op de hoogte te brengen van de gevolgen voor hun bestelling door de Corona maatregelen binnnen Van Hoecke Do $$$AssertEquals(Inhoud.ReadLine(), "
") #dim Lijn As %String = Inhoud.ReadLine() #dim Eerstedeel As %String = $Piece(Lijn, "!",1) #dim EersteDeelLetopOfAttention As %Boolean = ##class(TECH.StringUtils).Equals(Eerstedeel, "Attention", "Let op", "Achtung") Do $$$AssertTrue(EersteDeelLetopOfAttention) Do $$$AssertEquals(Inhoud.ReadLine(), "
") Do $$$AssertEquals(Inhoud.ReadLine(), "[BesteldeOfferteHandelIntro]
") Do $$$AssertEquals(Inhoud.ReadLine(), "
") If (..GeefExterneId()) { Do $$$AssertEquals(Inhoud.ReadLine(), "[BesteldeOfferteHandelBestellingLabel]: " _ ..GeefExterneId() _ "
") } Else { Do $$$AssertEquals(Inhoud.ReadLine(), "[BesteldeOfferteHandelBestellingLabel]: " _ $$$DummyString _ "
") } Do $$$AssertEquals(Inhoud.ReadLine(), "[BesteldeOfferteHandelKlantLabel]: " _ ..GeefVerwachteKlantReferentie() _"
") Do $$$AssertEquals(Inhoud.ReadLine(), "
") Do $$$AssertEquals(Inhoud.ReadLine(), "[BesteldeOfferteHandelReferentieLabel]: DummyOrderRef
") Do $$$AssertEquals(Inhoud.ReadLine(), "
") Do $$$AssertEquals(Inhoud.ReadLine(), "[BesteldeOfferteHandelOpmerkingLabel]:
") Do $$$AssertEquals(Inhoud.ReadLine(), $$$DummyString _ "
") Do $$$AssertEquals(Inhoud.ReadLine(), "
") Do $$$AssertEquals(Inhoud.ReadLine(), "[BesteldeOfferteHandelWensLeverDatumLabel]:
") Do $$$AssertEquals(Inhoud.ReadLine(), ..#ZomaarEenWensLeverdatum _ "
") ;Do $$$AssertEquals(Inhoud.ReadLine(), "
") ;Do $$$AssertEquals(Inhoud.ReadLine(), "[BesteldeOfferteHandelSluitWebshop]
") Do $$$AssertEquals(Inhoud.ReadLine(), "
") Do $$$AssertEquals(Inhoud.ReadLine(), "[BesteldeOfferteHandelVerwerkBestelling]" _ ..GeefVerwerkBestellingUrl() _ "" _ "
") Do $$$AssertEquals(Inhoud.ReadLine(),"
") Do $$$AssertEquals(Inhoud.ReadLine(), "[BesteldeOfferteHandelPrintBestelling]" _ ..GeefLink() _ "
") Do $$$AssertEquals(Inhoud.ReadLine(), "
") Do $$$AssertEquals(Inhoud.ReadLine(), "[BesteldeOfferteHandelSlotFormule]
") Do $$$AssertEquals(Inhoud.ReadLine(), ..GeefLeverancierPersonality()_"
") ]]> KlantDataReferentie:%String 1 ") ]]> 1 %String