Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFSchroefv001.cls.xml =================================================================== diff -u -r1496 -r1509 --- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFSchroefv001.cls.xml (.../HFSchroefv001.cls.xml) (revision 1496) +++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFSchroefv001.cls.xml (.../HFSchroefv001.cls.xml) (revision 1509) @@ -19,13 +19,13 @@ Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New() - Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFFrontBevestigingv001).%New("") + Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFSchroefv001).%New("") Set HalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context) Do $$$AssertTrue($IsObject(HalffabItem),"HalffabItem is een object") Do $$$AssertTrue(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem"),"HalffabItem is een StandaardHalffabItem") Do $$$AssertTrue($IsObject(HalffabItem.Halffab),"HalffabItem heeft een halffab") - Do $$$AssertEquals(HalffabItem.Halffab.UnID,"","Halffab UnID voor de front bevestiging") + Do $$$AssertEquals(HalffabItem.Halffab.UnID,11611,"Halffab UnID voor de front bevestiging") ]]>