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