Index: vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter/GeefHalffabItemsBoom/Test.cls.xml =================================================================== diff -u -r64840 -r65100 --- vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter/GeefHalffabItemsBoom/Test.cls.xml (.../Test.cls.xml) (revision 64840) +++ vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter/GeefHalffabItemsBoom/Test.cls.xml (.../Test.cls.xml) (revision 65100) @@ -344,12 +344,25 @@ ;Set HalffabItemStd4.KlasseNaamInfo = "InbegrepenHalffabItem" ;Set HalffabItemStd4.Rol = "Rechts2" + Set HalffabItemMaatwerkProduct = ##class(APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson).%New() + Set HalffabItemMaatwerkProduct.KlasseNaamInfo = "MaatwerkProductHalffabItem" + Set HalffabItemMaatwerkProduct.Rol = "MAT_Standaard" + Set HalffabItemMaatwerkProduct.Familie = ##class(DOM.PM.enu.Familie).Mat() + Set HalffabItemMaatwerkProduct.Variant = ##class(DOM.PM.enu.Variant).MatStandaard() + + Set HalffabItemBewerkt = ##class(APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson).%New() + Set HalffabItemBewerkt.KlasseNaamInfo = "BewerktHalffabItem" + Set HalffabItemBewerkt.Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Bodem() + + Do HalffabItemMaatwerkProduct.HalffabItems.Insert(HalffabItemBewerkt) + Do HalffabItemSamSub.HalffabItems.Insert(HalffabItemStd1) Do HalffabItemSamSub.HalffabItems.Insert(HalffabItemStd2) ;Do HalffabItemSamSub.HalffabItems.Insert(HalffabItemStd4) Do Halffabrikaten.HalffabItems.Insert(HalffabItemStd3) Do Halffabrikaten.HalffabItems.Insert(HalffabItemSamSub) + Do Halffabrikaten.HalffabItems.Insert(HalffabItemMaatwerkProduct) // Act Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New() @@ -358,20 +371,24 @@ // Assert #dim RolNaam As %String - Do $$$AssertEquals(HalffabItemsLookup.Count(),2) + Do $$$AssertEquals(HalffabItemsLookup.Count(), 3) Set RolNaam = ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).LadeZijkant() If $$$AssertTrue(HalffabItemsLookup.IsDefined(RolNaam),"Rolnaam "_RolNaam) { Do $$$AssertEquals(HalffabItemsLookup.GetAt(RolNaam).GeefRol(), RolNaam) } Set RolNaam = ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).RugBodemSchroef() If $$$AssertTrue(HalffabItemsLookup.IsDefined(RolNaam),"Rolnaam "_RolNaam) { Do $$$AssertEquals(HalffabItemsLookup.GetAt(RolNaam).GeefRol(), RolNaam) - } + Set RolNaam = "MAT_Standaard" + If $$$AssertTrue(HalffabItemsLookup.IsDefined(RolNaam),"Rolnaam "_RolNaam) { + Do $$$AssertEquals(HalffabItemsLookup.GetAt(RolNaam).GeefRol(), RolNaam) + } // Extra controles, maar eerder ter info Do $$$AssertFalse(HalffabItemsLookup.IsDefined("Links")) Do $$$AssertFalse(HalffabItemsLookup.IsDefined("Rechts")) + Do $$$AssertFalse(HalffabItemsLookup.IsDefined(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Bodem())) //Want IsSubItemVanMaatwerkProductHalffabItem ]]>