Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.TestKenmMWFPlugin") 1 vhUnitTest.TestCase 0 2 x 2 combinaties") /* +----------+----------+----------+ | Kenmerk1 | Kenmerk2 | Kenmerk3 | +----------+----------+----------+ | | | Waarde1 | +----------+----------+----------+ */ Set KenmerkenModifiedEventData = ##class(TECH.Events.KenmerkenModifiedEventData).%New() Set Waarden = ##class(%ListOfDataTypes).%New() Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(32988,"UTKenmerkGroep","Kenmerk1",Waarden) Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData) Set Waarden = ##class(%ListOfDataTypes).%New() Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(32988,"UTKenmerkGroep","Kenmerk2",Waarden) Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData) Set Waarden = ##class(%ListOfDataTypes).%New() Do Waarden.Insert("Waarde1") Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(32988,"UTKenmerkGroep","Kenmerk3",Waarden) Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData) Do ##class(vhUnitTest.APPS.PM.KenmMWFPluginMock).%New(KenmerkenModifiedEventData) Do ..GeefAantalUniekeWaarden(.Kenmerk1,.Kenmerk2,.Kenmerk3,.AantalRijen) Do $$$AssertEquals(Kenmerk1,0,"Er zijn geen waarden voor kenmerk1") Do $$$AssertEquals(Kenmerk2,0,"Er zijn geen waarden voor kenmerk2") Do $$$AssertEquals(Kenmerk3,1,"Er is 1 waarde voor kenmerk3") Do $$$AssertEquals(AantalRijen,1,"Er is 1 rij") /* +----------+----------+----------+ | Kenmerk1 | Kenmerk2 | Kenmerk3 | +----------+----------+----------+ | | | | +----------+----------+----------+ */ Set KenmerkenModifiedEventData = ##class(TECH.Events.KenmerkenModifiedEventData).%New() Set Waarden = ##class(%ListOfDataTypes).%New() Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(32988,"UTKenmerkGroep","Kenmerk1",Waarden) Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData) Set Waarden = ##class(%ListOfDataTypes).%New() Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(32988,"UTKenmerkGroep","Kenmerk2",Waarden) Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData) Set Waarden = ##class(%ListOfDataTypes).%New() Set KenmerkModifiedEventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(32988,"UTKenmerkGroep","Kenmerk3",Waarden) Do KenmerkenModifiedEventData.Wijzigingen.Insert(KenmerkModifiedEventData) Do ##class(vhUnitTest.APPS.PM.KenmMWFPluginMock).%New(KenmerkenModifiedEventData) Do ..GeefAantalUniekeWaarden(.Kenmerk1,.Kenmerk2,.Kenmerk3,.AantalRijen) Do $$$AssertEquals(Kenmerk1,0,"Er zijn geen waarden") Do $$$AssertEquals(Kenmerk2,0,"Er zijn geen waarden") Do $$$AssertEquals(Kenmerk3,0,"Er zijn geen waarden") Do $$$AssertEquals(AantalRijen,1,"Er is 1 rij (de null-null-null rij)") Do ##class(vhUnitTest.APPS.PM.HalffabUT).%KillExtent() ]]>