Index: vhUnitTest/DOM/PM/MaatwerkProduct/GeefHalffabItemsBoom/Test.cls.xml =================================================================== diff -u -r53796 -r62398 --- vhUnitTest/DOM/PM/MaatwerkProduct/GeefHalffabItemsBoom/Test.cls.xml (.../Test.cls.xml) (revision 53796) +++ vhUnitTest/DOM/PM/MaatwerkProduct/GeefHalffabItemsBoom/Test.cls.xml (.../Test.cls.xml) (revision 62398) @@ -27,15 +27,16 @@ continue:ClassName=##class(DOM.PM.KADProduct.impl.KADKaderdeurImpl).%ClassName(1) continue:##class(TECH.StringUtils).StartsWith(ClassName,"DOM.PM.TBXProduct") continue:ClassName=##class(DOM.PM.impl.MaatwerkProductImpl).%ClassName(1) + continue:ClassName=##class(DOM.PM.MVXProduct.impl.MVXLadeImpl).%ClassName(1) #dim PrijsBerekening As DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze = ##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).PrijsBerekening() #dim ProductieAansturing As DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze = ##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing() - do ..AssertBoomInstantieIsGelijk(PrijsBerekening,ProductieAansturing,$$$False,ClassName) - do ..AssertBoomInstantieIsGelijk(ProductieAansturing,PrijsBerekening,$$$False,ClassName) + Do ..AssertBoomInstantieIsGelijk(PrijsBerekening,ProductieAansturing,$$$False,ClassName) + Do ..AssertBoomInstantieIsGelijk(ProductieAansturing,PrijsBerekening,$$$False,ClassName) - do ..AssertBoomInstantieIsGelijk(ProductieAansturing,ProductieAansturing,$$$True,ClassName) - do ..AssertBoomInstantieIsGelijk(PrijsBerekening,PrijsBerekening,$$$True,ClassName) + Do ..AssertBoomInstantieIsGelijk(ProductieAansturing,ProductieAansturing,$$$True,ClassName) + Do ..AssertBoomInstantieIsGelijk(PrijsBerekening,PrijsBerekening,$$$True,ClassName) } ]]> @@ -64,10 +65,10 @@ #dim BerekeningSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(vhTest.Dummy.DOM.PM.Maatwerk).GeefBerekeningSpecificatie() #dim IKID As DOM.PM.Maatwerk.Calc.Common.IKID = ##class(vhTest.Dummy.DOM.PM.Maatwerk).GeefIKID() - quit $Classmethod(ClassName,"%New",IKID, BerekeningSpecificatie) + Quit $Classmethod(ClassName,"%New",IKID, BerekeningSpecificatie) } - quit $Classmethod(ClassName,"OpenId",..GeefProductID(ClassName)) + Quit $Classmethod(ClassName,"OpenId",..GeefProductID(ClassName)) ]]>