Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/HalffabSpec/BepaalHFItemBuilderSequence/TestAllHFSpecs.cls.xml =================================================================== diff -u -r30016 -r63158 --- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/HalffabSpec/BepaalHFItemBuilderSequence/TestAllHFSpecs.cls.xml (.../TestAllHFSpecs.cls.xml) (revision 30016) +++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/HalffabSpec/BepaalHFItemBuilderSequence/TestAllHFSpecs.cls.xml (.../TestAllHFSpecs.cls.xml) (revision 63158) @@ -12,13 +12,39 @@ #dim HalffabSpecInfo As DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo = HalffabSpecInfoIterator.Next() #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_"'") { - Do $$$AssertTrue(HalffabSpec.GeefHFItemBuilderSeqIterator().HasNext()) + + ;#dim IsMaatwerkMetBuildersInCache As %Boolean = ..IsMaatwerkMetBuildersInCache(HalffabSpec) + #dim IsNieuwMaatwerkInDotNet As %Boolean = ..IsNieuwMaatwerkInDotNet(HalffabSpec) + #dim AssertMsg As %String = "HalffabSpec '"_HalffabSpec.%ClassName($$$true)_"' ("_HalffabSpecInfo.BerekeningWijze_"), NieuwMaatwerkInDotNet="_IsNieuwMaatwerkInDotNet_" " + + Do $$$AssertEquals(HalffabSpec.GeefHFItemBuilderSeqIterator().HasNext(), $$$Not(IsNieuwMaatwerkInDotNet), AssertMsg) } } } ]]> + + dan heeft de HFItemBuilderSequence geen items (iterator lege lijst) ]]> +HalffabSpec:DOM.PM.Maatwerk.Calc.HF.HalffabSpec +1 +%Boolean + + + + + +Alternatief voor method IsNieuwMaatwerkInDotNet() hierboven. +LET OP: deze impl gebruiken zou het controle-gedrag van de test merkelijk veranderen! +HalffabSpec:DOM.PM.Maatwerk.Calc.HF.HalffabSpec +1 +%Boolean + + + 1 %ListOfObjects