Index: vhUnitTest/DOM/PM/Maatwerk/TBXProduct/TestTBXLade.cls.xml =================================================================== diff -u -r1074 -r1485 --- vhUnitTest/DOM/PM/Maatwerk/TBXProduct/TestTBXLade.cls.xml (.../TestTBXLade.cls.xml) (revision 1074) +++ vhUnitTest/DOM/PM/Maatwerk/TBXProduct/TestTBXLade.cls.xml (.../TestTBXLade.cls.xml) (revision 1485) @@ -114,7 +114,7 @@ Set Product = API.GeefProduct(511642) Do $$$AssertTrue($IsObject(Product),"De API gaf een correct object terug") Do $$$AssertTrue(Product.%Extends("DOM.PM.TBXProduct.TBXSpoelbaklade"),"Het product is een spoelbaklade") - Do $$$AssertEquals(Product.GeefLadeDiepte(),500,"Ladediepte van 400") + Do $$$AssertEquals(Product.GeefLadeDiepte(),500,"Ladediepte van 500") Do $$$AssertEquals(Product.GeefTussenstukDiepte(),140,"TussenstukDiepte van de spoelbaklade is 140") ]]> @@ -212,6 +212,7 @@ Do $$$AssertEquals(Product.GeefZijwandVerhogingKleur(),"","Geen kleur") Do $$$AssertEquals(Product.GeefZijwandVerhogingAantal(),1,"1 zijwandverhoging") + Set Product = API.GeefProduct(463748) Do $$$AssertEquals(Product.GeefZijwandVerhogingType(),##class(DOM.PM.enu.TBXZijwandVerhogingType).Boxcover(),"Een boxcover") Do $$$AssertEquals(Product.GeefZijwandVerhogingMateriaal(),##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas(),"Glazen inschuifelement") @@ -265,5 +266,171 @@ Do $$$AssertEquals(Product.GeefFrontOndersteuningAantal(),1,"B0 1 frontsteun") ]]> + + +%Status + + + + +%Status + +