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
+
+