Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.ProdRes.TestVerwachteUitvoerAPI") 1 vhUnitTest.TestCase 0 0,"De dueout is ingesteld") Do $$$AssertEquals(Reservatie1.GeefPrioriteitGroep(),##class(DOM.ProdRes.enu.PrioriteitGroep).Halux(),"De prioriteitsgroep") Do $$$AssertTrue($Length(Reservatie1.GeefAangemaaktOp())>0,"De aanmaakdatum is ingevuld") Do $$$AssertFalse(Reservatie1.IsTransferReservatie(),"Geen transferreservatie") Do $$$AssertFalse(Reservatie1.IsLeaf,"De reservatie is geen blad") Set ReservatieIterator = Reservatie1.GeefKindReservatieIterator() Set Reservatie2 = ReservatieIterator.Next() Do $$$AssertTrue($IsObject(Reservatie2),"De tweede reservatie werd opgeslagen") Do $$$AssertEquals(Reservatie2.GeefProductID(),"Unittest product 2") Do $$$AssertFalse(Reservatie2.IsLeaf,"De reservatie is geen blad") Set Reservatie4 = ReservatieIterator.Next() Do $$$AssertTrue($IsObject(Reservatie4),"De vierde reservatie werd opgeslagen") Do $$$AssertEquals(Reservatie4.GeefProductID(),"Unittest product 4") Do $$$AssertTrue(Reservatie4.IsLeaf,"De reservatie is een blad") Set ReservatieIterator = Reservatie2.GeefKindReservatieIterator() Set Reservatie3 = ReservatieIterator.Next() Do $$$AssertTrue($IsObject(Reservatie3),"De derde reservatie werd opgeslagen") Do $$$AssertEquals(Reservatie3.GeefProductID(),"Unittest product 3") Do $$$AssertTrue(Reservatie3.IsLeaf,"De reservatie is een blad") Set ReservatieVoorVerwachteUitvoer2 = ..MaakReservatieVerwachteUitvoer() Set VerwachteUitvoer2 = VerwachteUitvoerAPI.RegistreerReservaties(ReservatieVoorVerwachteUitvoer2) Set VerwachteUitvoerIDs = ##class(%ListOfDataTypes).%New() Do VerwachteUitvoerIDs.Insert(VerwachteUitvoer.%Id()) Do VerwachteUitvoerIDs.Insert(VerwachteUitvoer2.%Id()) Set GereserveerdeProducten = VerwachteUitvoerAPI.GeefReservatieSamenvatting(VerwachteUitvoerIDs) Do $$$AssertEquals(GereserveerdeProducten.Count(),2,"Er zijn 2 producten te verwachten") Do $$$AssertEquals(GereserveerdeProducten.GetAt(1).ProductID,"Unittest product 3","De tweede echte fysieke reservatie") Do $$$AssertEquals(GereserveerdeProducten.GetAt(1).Aantal,18,"18 stuks van product 3") Do $$$AssertEquals(GereserveerdeProducten.GetAt(2).ProductID,"Unittest product 4","De eerste echte fysieke reservatie") Do $$$AssertEquals(GereserveerdeProducten.GetAt(2).Aantal,7,"7 stuks van product 4") Do VerwachteUitvoer.%DeleteId(VerwachteUitvoer.%Id()) Do Reservatie1.%DeleteId(Reservatie1.%Id()) Do Reservatie2.%DeleteId(Reservatie2.%Id()) Do Reservatie3.%DeleteId(Reservatie3.%Id()) Do Reservatie4.%DeleteId(Reservatie4.%Id()) Do VerwachteUitvoer2.%DeleteId(VerwachteUitvoer2.%Id()) ]]> %Status