Do ##class(vhUnitTest.Manager).RunTest("/debug=1/display=all","PRA.Concurrency.TestDirtyRead") vhUnitTest.TestCase %String I IsViaObjecten:%Boolean 1 1 IsViaObjecten:%Boolean,ResourceName:%String 1 IsViaObjecten:%Boolean,ResourceName,ResourceNameEinde:%String