Commit f387ab31 authored by simonmar's avatar simonmar
Browse files

[project @ 2005-12-13 16:04:25 by simonmar]

Add nested atomically test
parent 885955b5
......@@ -115,3 +115,4 @@ test('conc051', normal, compile_and_run, [''])
test('conc052', normal, compile_and_run, ['-package stm'])
test('conc053', only_ways(['threaded','smp']), compile_and_run, ['-package stm'])
test('conc054', normal, compile_and_run, ['-package stm'])
test('conc055', exit_code(1), compile_and_run, ['-package stm'])
import Control.Concurrent
import Control.Concurrent.STM
import System.IO.Unsafe
var = unsafePerformIO $ atomically $ newTVar 3
main = do x <- atomically $ readTVar var; print x
conc055: Control.Concurrent.STM.atomically was nested
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment