Index: vhUnitTest/PRA/Concurrency/TestAtomaireInstructie.cls.xml =================================================================== diff -u -r734 -r860 --- vhUnitTest/PRA/Concurrency/TestAtomaireInstructie.cls.xml (.../TestAtomaireInstructie.cls.xml) (revision 734) +++ vhUnitTest/PRA/Concurrency/TestAtomaireInstructie.cls.xml (.../TestAtomaireInstructie.cls.xml) (revision 860) @@ -1,10 +1,11 @@ - + Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","PRA.Concurrency.TestAtomaireInstructie") +1 vhUnitTest.TestCase -62116,37144.94153 +62130,42715.660732 62104,32532.58712 0 @@ -67,14 +68,12 @@ Set LoketUI = ##class(zTryout.PRA.Concurrency.BankLoketUI).%New(BankLoket,WachtObject) Set $ZTRAP = "Error" - w "Voor" Do LoketUI.StortGeldMislukt() - w "Na" Quit Error Do $SYSTEM.Event.Signal(ResourceNameEinde) ]]> - +