Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","BL.PPS.TBX.TestDocs") 1 vhUnitTest.TestCase 0 zijkant inkorten in hoogte en lengte") Set GlasSnijInfo = GlasSnijInfoLijst.GetAt(1) Do $$$AssertEquals(GlasSnijInfo.Type,"Zijkant","Een in te korten zijkantglas") Do $$$AssertEquals(GlasSnijInfo.AantalTeSnijden,2,"Aantal te snijden") Do $$$AssertEquals(GlasSnijInfo.AantalNaSnijden,4,"Aantal te bekomen") Do $$$AssertEquals(GlasSnijInfo.Kleur,"LE.ZW","De kleur") Do $$$AssertEquals(GlasSnijInfo.RugHoogte,"D","De rughoogte") Do $$$AssertEquals(GlasSnijInfo.Lengte,290,"De Lengte") Do $$$AssertEquals(GlasSnijInfo.TeSnijdenProduct.GeefPRNr(),513015,"Het in te korten product") Do $$$AssertEquals(GlasSnijInfo.InkortRichting,"Lengte","Inkorten in de lengte") Set GlasSnijInfo = GlasSnijInfoLijst.GetAt(2) Do $$$AssertEquals(GlasSnijInfo.Type,"Zijkant","Een in te korten zijkantglas") Do $$$AssertEquals(GlasSnijInfo.AantalTeSnijden,2,"Aantal te snijden") Do $$$AssertEquals(GlasSnijInfo.AantalNaSnijden,4,"Aantal te bekomen") Do $$$AssertEquals(GlasSnijInfo.Kleur,"LE.ZW","De kleur") Do $$$AssertEquals(GlasSnijInfo.RugHoogte,"D","De rughoogte") Do $$$AssertEquals(GlasSnijInfo.Lengte,72.5,"De Lengte") Do $$$AssertEquals(GlasSnijInfo.TeSnijdenProduct.GeefPRNr(),513015,"Het in te korten product") Do $$$AssertEquals(GlasSnijInfo.InkortRichting,"Hoogte","Inkorten in de Hoogte") Do $$$AssertEquals(GlasSnijInfo.Uitvoer,"B","Extra bewerking nodig") ]]> %Status