Index: vhUnitTest/DOM/OV/TestProforma.cls.xml =================================================================== diff -u -r915 -r995 --- vhUnitTest/DOM/OV/TestProforma.cls.xml (.../TestProforma.cls.xml) (revision 915) +++ vhUnitTest/DOM/OV/TestProforma.cls.xml (.../TestProforma.cls.xml) (revision 995) @@ -1,11 +1,11 @@ - + do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.OV.TestProforma") 1 vhUnitTest.TestCase -62154,29839.280096 +62173,56305.225498 0 @@ -27,7 +27,7 @@ Set BonIterator = Proforma.GeefBonIterator() Set Bon = BonIterator.Next() - Set BonlijnIterator = Bon.GeefBonlijnIterator() + Set BonlijnIterator = Bon.GeefBonLijnIterator() Do $$$AssertTrue(BonlijnIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven") Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn") Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMOrderlijn"),"De lijn is een orderverwijzing lijn") @@ -41,7 +41,7 @@ Set BonIterator = Proforma.GeefBonIterator() Set Bon = BonIterator.Next() - Set TypedBonIterator = Bon.GeefTypeBonlijnIterator(##class(DOM.OV.enu.BonlijnType).Product()) + Set TypedBonIterator = Bon.GeefTypeBonLijnIterator(##class(DOM.OV.enu.BonLijnType).Product()) Do $$$AssertTrue(TypedBonIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven") Do $$$AssertTrue(TypedBonIterator.HasNext(),"De bon bevat een volgende product type lijn") Do $$$AssertTrue(TypedBonIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn") @@ -51,5 +51,5 @@ ]]> - +