1 vhUnitTest.TestCase Properties:APPS.VKP.Maatwerk.dto.KADPropertiesForOfferNS 1 APPS.VKP.Maatwerk.IAluKaderConvertorNS Links","BeslagElement (Profielplaats) is correct.") Do $$$AssertEquals(KADBeslag.GetAt(1).GeefPositie().Y,6,"AfstandRand is correct.") Do $$$AssertEquals(KADBeslag.GetAt(1).GeefPositie().Z,0,"Positie Z is correct.") Do $$$AssertEquals(KADBeslag.GetAt(1).GeefPositie().X,200,"Beslagpositie 1 is correct.") Do $$$AssertEquals(KADBeslag.GetAt(2).GeefPositie().X,400,"Beslagpositie 2 is correct.") Do $$$AssertEquals(KADBeslag.GetAt(3).GeefPositie().X,600,"Beslagpositie 3 is correct.") ]]> Boven","BeslagElement (Profielplaats) is correct.") Do $$$AssertEquals(KADBeslag.GetAt(1).GeefPositie().Y,0,"AfstandRand is correct.") Do $$$AssertEquals(KADBeslag.GetAt(1).GeefPositie().Z,0,"Positie Z is correct.") Do $$$AssertEquals(KADBeslag.GetAt(1).GeefPositie().X,220,"Beslagpositie 1 is correct.") Do $$$AssertEquals(KADBeslag.GetAt(2).GeefPositie().X,440,"Beslagpositie 2 is correct.") ]]> Boven","Element is correct.") Do $$$AssertTrue(Boring.GeefPositie().Equals(##class(TECH.Vector).%New(50,6,0)),"BoringPositie 1 is correct.") Set Boring=BoringenLijst.GetAt(2) Do $$$AssertTrue($IsObject(Boring),"Boring is een object") Do $$$AssertEquals(Boring.GeefElement(),"Profiel->Onder","Element is correct.") Do $$$AssertTrue(Boring.GeefPositie().Equals(##class(TECH.Vector).%New(50,894,0)),"BoringPositie 2 is correct.") ]]> Links","Element is correct.") Do $$$AssertTrue(Boring.GeefPositie().Equals(##class(TECH.Vector).%New(6,50,0)),"BoringPositie 1 is correct.") Set Boring=BoringenLijst.GetAt(2) Do $$$AssertTrue($IsObject(Boring),"Boring is een object") Do $$$AssertEquals(Boring.GeefElement(),"Profiel->Rechts","Element is correct.") Do $$$AssertTrue(Boring.GeefPositie().Equals(##class(TECH.Vector).%New(594,50,0)),"BoringPositie 2 is correct.") ]]> Links",AfstandRelatief) Do $$$AssertTrue(Positie.Equals(##class(TECH.Vector).%New(6,AfstandRelatief,0)),"BoringPositie in Profiel-Links is correct.") Set Positie=Convertor.GeefBoringPositieOpElement("Profiel->Rechts",AfstandRelatief) Do $$$AssertTrue(Positie.Equals(##class(TECH.Vector).%New(474,AfstandRelatief,0)),"BoringPositie in Profiel-Rechts is correct.") Set Positie=Convertor.GeefBoringPositieOpElement("Profiel->Boven",AfstandRelatief) Do $$$AssertTrue(Positie.Equals(##class(TECH.Vector).%New(AfstandRelatief,6,0)),"BoringPositie in Profiel-Boven is correct.") Set Positie=Convertor.GeefBoringPositieOpElement("Profiel->Onder",AfstandRelatief) Do $$$AssertTrue(Positie.Equals(##class(TECH.Vector).%New(AfstandRelatief,894,0)),"BoringPositie in Profiel-Onder is correct.") ]]> Rechts","Element (Profiel-Rechts) is correct.") Set InitKADKenmerken.Ophangplaats = ##class(DOM.PM.enu.KADOphangplaats).Rechts() Do $$$AssertEquals(Convertor.GeefPlaatsVoorGreepBoringInProfiel(),"Profiel->Links","Element (Profiel-Links) is correct.") Set InitKADKenmerken.Ophangplaats = ##class(DOM.PM.enu.KADOphangplaats).Boven() Do $$$AssertEquals(Convertor.GeefPlaatsVoorGreepBoringInProfiel(),"Profiel->Onder","Element (Profiel-Onder) is correct.") Set InitKADKenmerken.Ophangplaats = ##class(DOM.PM.enu.KADOphangplaats).Onder() Do $$$AssertEquals(Convertor.GeefPlaatsVoorGreepBoringInProfiel(),"Profiel->Boven","Element (Profiel-Boven) is correct.") Set InitKADKenmerken.Ophangplaats = "" Do $$$AssertEquals(Convertor.GeefPlaatsVoorGreepBoringInProfiel(),"","Element (leeg) is correct.") Set InitKADKenmerken.Ophangplaats = "OnbestaandeOphangplaats" ; Ophangplaats is enu, dus komt normaal niet voor. Do $$$AssertEquals(Convertor.GeefPlaatsVoorGreepBoringInProfiel(),"","Element (onbestaande) is correct.") ]]> Onder","Element (Profiel-onder) is correct.") ]]> Rechts","Element is correct.") Do $$$AssertTrue(Boring.GeefPositie().Equals(##class(TECH.Vector).%New(474,58,0)),"BoringPositie 1 is correct.") Set Boring=BoringenLijst.GetAt(2) Do $$$AssertTrue($IsObject(Boring),"Boring is een object") Do $$$AssertEquals(Boring.GeefElement(),"Profiel->Rechts","Element is correct.") Do $$$AssertTrue(Boring.GeefPositie().Equals(##class(TECH.Vector).%New(474,82,0)),"BoringPositie 2 is correct.") ]]> Onder","Element is correct.") Do $$$AssertTrue(Boring.GeefPositie().Equals(##class(TECH.Vector).%New(58,374,0)),"BoringPositie 1 is correct.") Set Boring=BoringenLijst.GetAt(2) Do $$$AssertTrue($IsObject(Boring),"Boring is een object") Do $$$AssertEquals(Boring.GeefElement(),"Profiel->Onder","Element is correct.") Do $$$AssertTrue(Boring.GeefPositie().Equals(##class(TECH.Vector).%New(82,374,0)),"BoringPositie 2 is correct.") ]]> Rechts","Element is correct.") Do $$$AssertEquals(Boring.GeefDiameter(),5,"Diameter is correct.") Do $$$AssertTrue(Boring.GeefPositie().Equals(##class(TECH.Vector).%New(474,60,0)),"BoringPositie 1 is correct.") ]]>