Index: vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml =================================================================== diff -u -r2160 -r2197 --- vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml (.../TestKenmerkenService.cls.xml) (revision 2160) +++ vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml (.../TestKenmerkenService.cls.xml) (revision 2197) @@ -87,10 +87,15 @@ Do ..OnBeforeAllTests() Set KenmerkGroep = "OL" Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New() - Set MasterUnIDs = ##class(%ListOfDataTypes).%New() - Do MasterUnIDs.Insert(1018) - Set AutoVariantenVoorMasters = KenmerkenService.GeefAutoVariantenVanMasters(MasterUnIDs,KenmerkGroep) + Set KenmerkenSetIDs = ##class(APPS.PM.dto.Kenm.KenmerkenSetIDs).%New() + Set KenmerkenSetID = ##class(APPS.PM.dto.Kenm.KenmerkenSetID).%New() + Set KenmerkenSetID.ProductID = 1018 + Set KenmerkenSetID.UnID = 1018 + Do KenmerkenSetIDs.Sets.Insert(KenmerkenSetID) + + Set AutoVariantenVoorMasters = KenmerkenService.GeefAutoVariantenVanMasters(KenmerkenSetIDs,KenmerkGroep) + Do $$$AssertTrue($IsObject(AutoVariantenVoorMasters),"Het resultaat werd teruggegeven") Do $$$AssertEquals(AutoVariantenVoorMasters.Count(),1,"Er zit 1 item in")