vhUnitTest.TestCase DOM.PM.Maatwerk.Calc.Common.impl.OmleidingNaarDotNetBepaler 1 0) { Set HalffabSpecInfoIterator = ##class(TECH.ListIterator).%New(HalffabSpecInfoList) While (HalffabSpecInfoIterator.HasNext()) { #dim HalffabSpecInfo As DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo = HalffabSpecInfoIterator.Next() If $$$Not(HalffabSpecInfo.BerekeningWijze = ##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).Encoway()) { #dim HalffabSpec As DOM.PM.Maatwerk.Calc.HF.HalffabSpec = HalffabSpecInfo.GeefHalffabSpec() ; Bij de %New() wordt de BepaalHFItemBuilderSequence() opgeroepen If $$$AssertTrue($IsObject(HalffabSpec),"Object verwacht voor klasse '"_HalffabSpecInfo.HalffabSpec_"'") { #dim IsMaatwerkMetBuildersInCache As %Boolean = ..IsMaatwerkMetBuildersInCache(HalffabSpec) #dim AssertMsg As %String = "HalffabSpec '"_HalffabSpec.%ClassName($$$true)_"' ("_HalffabSpecInfo.BerekeningWijze_"), IsMaatwerkMetBuildersInCache="_IsMaatwerkMetBuildersInCache_" " Do $$$AssertEquals(HalffabSpec.GeefHFItemBuilderSeqIterator().HasNext(), IsMaatwerkMetBuildersInCache, AssertMsg) } } } } ]]> HalffabSpec:DOM.PM.Maatwerk.Calc.HF.HalffabSpec 1 %Boolean 1 %ListOfObjects