vhUnitTest.TestCase DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom 1 vhTest.DOM.PM.Maatwerk.Calc.HF.Factory 1 aTestName:%String Std1")) do $$$AssertEquals(..Boom.GeefHalffabItem("HoofdSam1->Std1").GeefVolledigeRolNaam(),"HoofdSam1.Std1") do $$$AssertTrue(..Boom.BevatRol("HoofdSam1->Std2")) do $$$AssertEquals(..Boom.GeefHalffabItem("HoofdSam1->Std2").GeefVolledigeRolNaam(),"HoofdSam1.Std2") do $$$AssertTrue(..Boom.BevatRol("HoofdSam2->Sam1")) do $$$AssertEquals(..Boom.GeefHalffabItem("HoofdSam2->Sam1").GeefVolledigeRolNaam(),"HoofdSam2.Sam1") do $$$AssertTrue(..Boom.BevatRol("HoofdSam2->Sam1->Std1")) do $$$AssertEquals(..Boom.GeefHalffabItem("HoofdSam2->Sam1->Std1").GeefVolledigeRolNaam(),"HoofdSam2.Sam1.Std1") do $$$AssertTrue(..Boom.BevatRol("HoofdSam2->Sam2")) do $$$AssertEquals(..Boom.GeefHalffabItem("HoofdSam2->Sam2").GeefVolledigeRolNaam(),"HoofdSam2.Sam2") do $$$AssertTrue(..Boom.BevatRol("HoofdSam2->Sam2->Std1")) do $$$AssertEquals(..Boom.GeefHalffabItem("HoofdSam2->Sam2->Std1").GeefVolledigeRolNaam(),"HoofdSam2.Sam2.Std1") do $$$AssertFalse(..Boom.BevatRol("HoofdSam9")) do $$$AssertFalse(..Boom.BevatRol("HoofdSam2->Sam9")) do $$$AssertFalse(..Boom.BevatRol("HoofdSam2->Sam2->Std9")) do $$$AssertFalse(..Boom.BevatRol("HoofdSam2->Sam9->Std9")) ]]> ItemA")) do $$$AssertEquals(..Boom.GeefHalffabItem("Hoofd->ItemA").GeefVolledigeRolNaam(),"Hoofd.ItemA") do $$$AssertTrue(..Boom.BevatRol("Hoofd->ItemB")) do $$$AssertEquals(..Boom.GeefHalffabItem("Hoofd->ItemB").GeefVolledigeRolNaam(),"Afwijkende volledigerolnaam") ]]> Std1")) do ..Boom.GeefHalffabItem("Sam1") ]]> VerwachtAantal:%Integer 1