Index: vhUnitTest/DOM/OV/TestBon.cls.xml =================================================================== diff -u -r915 -r995 --- vhUnitTest/DOM/OV/TestBon.cls.xml (.../TestBon.cls.xml) (revision 915) +++ vhUnitTest/DOM/OV/TestBon.cls.xml (.../TestBon.cls.xml) (revision 995) @@ -1,11 +1,11 @@ - + do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.OV.TestBon") 1 vhUnitTest.TestCase -62154,28962.399797 +62173,56288.159448 0 @@ -18,7 +18,7 @@ Set Bon = OrderAPI.GeefBon(BonNr) Do $$$AssertTrue(Bon.%Extends("DOM.OV.Bon"),"Het object is een bon") - 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 product order lijn") @@ -36,11 +36,11 @@ Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn") Do $$$AssertFalse(BonlijnIterator.HasNext(),"De bon bevat geen volgende lijn") - Set TypedBonIterator = Bon.GeefTypeBonlijnIterator(##class(DOM.OV.enu.BonlijnType).Tekst()) + Set TypedBonIterator = Bon.GeefTypeBonLijnIterator(##class(DOM.OV.enu.BonLijnType).Tekst()) Do $$$AssertTrue(TypedBonIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven") Do $$$AssertFalse(TypedBonIterator.HasNext(),"De bon bevat geen tekstlijnen") ]]> - +