1 vhUnitTest.DOM.ProdRes.VerwachteUitvoerAPI.Base DOM.ProdRes.VerwachteUitvoerAPI 1 aTestName:%String 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") #dim ReservatieIterator As TECH.Iterator = Reservatie1.GeefKindReservatieIterator() #dim Reservatie2 As DOM.ProdRes.Reservatie = 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") #dim Reservatie4 As DOM.ProdRes.Reservatie = 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() #dim Reservatie3 As DOM.ProdRes.Reservatie = 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") #dim ReservatieVoorVerwachteUitvoer2 As DOM.ProdRes.dto.VerwachteUitvoerInfo = ..MaakVerwachteUitvoerInfoMetReservatie("Unittest referentie 2", "Unittest lijnreferentie 2", "Unittest product 3") #dim VerwachteUitvoer2 As DOM.ProdRes.VerwachteUitvoer = ..VerwachteUitvoerAPI.RegistreerReservaties(ReservatieVoorVerwachteUitvoer2) Set VerwachteUitvoerIDs = ##class(%ListOfDataTypes).%New() Do VerwachteUitvoerIDs.Insert(VerwachteUitvoer.%Id()) Do VerwachteUitvoerIDs.Insert(VerwachteUitvoer2.%Id()) #dim GereserveerdeProducten As DOM.ProdRes.dto.GereserveerdeProducten = ..VerwachteUitvoerAPI.GeefReservatieSamenvatting(VerwachteUitvoerIDs) Do $$$AssertEquals(GereserveerdeProducten.Count(),2,"Er zijn 2 producten te verwachten") Do $$$AssertEquals(##class(TECH.StringUtils).ToLower(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(##class(TECH.StringUtils).ToLower(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()) ]]> "))) Set ReservatieImpl.AangemaaktOp = "EenTimestamp" ]]> "))) Set ReservatieImpl.ProductID = "EenAnderProductID" ]]> "))) Set ReservatieImpl.Bedrijf = "EenBedrijf" ]]>