Test locking door Transactie klasse (i.s.m. TxScope klasse). Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","TECH.Concurrency.TestTransactie") TECH.Concurrency,TECH.ExcHandling AbstractTxTest TECH.Concurrency.TxScope TECH.Concurrency.Transactie VoorbeeldPersistent aTestName:%String %Status %Status %Status %Status TxScope:TECH.Concurrency.TxScope,Object:%Persistent,Shared:%Boolean 1 %Boolean 1 1 1 1 1 1