Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.MAG.UGLYPicking.TestUglyPickingService") 1 vhUnitTest.TestCase 0 TECH.Context.RuntimeContext %Status %Status 0,"Er zijn sessies") Do $$$AssertEquals(Sessies.GetAt(1).DeviceNaam,"UnitTestDevice","De devicenaam is correct ingesteld") Do $$$AssertEquals(Sessies.GetAt(1).GebruiktBonNr,1234,"De gebruikte bonnr is correct ingesteld") Do Service.StopHuidigeBon() Do ..VerwijderBon(1234) ]]> ID:%Integer %Status %Status ID:%Integer %Status