Do ##class(vhUnitTest.Manager).RunTest("/debug/Display=all","TECH.Algo.Stapeling.TestStapeling") 1 vhUnitTest.TestCase 0 stapelhoogte is 100 Do $$$AssertEquals(StapelHoogte,10*10,"De stapelhoogte is 100") Set NiveauSchikkingDubbel = ##class(vhUnitTest.TECH.Algo.Stapeling.NiveauSchikkingDubbel).%New() Do Stapeling.VoegToeNiveauSchikking(NiveauSchikkingDubbel) Set StapelHoogte = Stapeling.GeefStapelHoogte(ObjectenLijst) // Elk niveau bevat 2 objecten, de stapeling moet gebruik maken van de niveauschikkingdubbel. // 10 objecten van 10 hoog => stapelhoogte is 50 Do $$$AssertEquals(StapelHoogte,(10*10)/2,"De stapelhoogte is 50") Set NiveauSchikkingGeen = ##class(vhUnitTest.TECH.Algo.Stapeling.NiveauSchikkingGeen).%New() Do Stapeling.VoegToeNiveauSchikking(NiveauSchikkingGeen) Set StapelHoogte = Stapeling.GeefStapelHoogte(ObjectenLijst) // De NiveauSchikkingGeen zal als eerste getest worden omdat zijn max aantal mogelijk = 100 // Maar er zullen er nooit gebruikt worden dus de stapelhoogte wordt bepaald door NiveauSchikkingDubbel en blijft dus identiek Do $$$AssertEquals(StapelHoogte,(10*10)/2,"De stapelhoogte is 50") ]]>