Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.TestKenmerkenServiceBewaar") 1 vhUnitTest.APPS.PM.TestKenmerkenService 0 %String IntegratieTest %String UT Eén kenmerk bewaren van één product. zelfde waarden is geen save. Set %HeeftModEventOntvangen = 0 Set ModifiedSubscription = ##class(TECH.PubSub.EventSubscription).%New("KenmerkenModifiedEvent",..%ClassName(1),"KenmerkenModEventListener") Do ModifiedSubscription.%Save() Set Waarden = ##class(%ListOfDataTypes).%New() Do Waarden.Insert(NieuweWaarde) Set Kenmerken.GetAt(5).Waarden = Waarden Do KenmerkenService.BewaarProductenKenmerken(ProductenKenmerken) Do $$$AssertFalse(%HeeftModEventOntvangen,"De mod event werd niet opgegooid omdat er geen wijzigingen waren") Do ModifiedSubscription.%DeleteId(ModifiedSubscription.%Id()) Kill %HeeftModEventOntvangen ]]> Testen als er van een product een kenmerk goed wordt ingesteld en één slecht Hierbij moet een rollback gebeuren en data moet ongewijzigd blijven Testen als er van een product een kenmerk goed wordt ingesteld maar ondertussen de InstanceVersion gewijzigd werd. Kenmerk van twee producten wijzigen, maar meerdere producten zitten in de lijst. Kenmerk van twee producten wijzigen, maar meerdere producten zitten in de lijst. Kenmerk van twee producten wijzigen, maar meerdere producten zitten in de lijst. Test het maken van nieuwe KenmerkenSets voor opgegeven PRNrs. Het maken zelf wordt getest in een andere unit test, namelijk : do ##class(vhUnitTest.Manager).RunTest("/display=all","DOM.PM.TestProductKenmerkenSets") Testen op fout indien geen correcte kenmerkengroep is meegegeven voor sets te creeren KenmerkGroep:%String,KenmerkMetadataNaam:%String 1 Test het bewaren van één nieuwe metadata Test het bewaren van één nieuwe metadata, met onvolledige data. Test het bewaren van één nieuwe metadata, met onvolledige data. Test het bewaren van één nieuwe metadata Code:%String,Naam:%String 1 Test het bewaren van één nieuwe metadata Test het bewaren van één nieuwe metadata Test het bewaren van één nieuwe metadata Test het bewaren van één nieuwe metadata