Commit 3c472c10 authored by simonmar's avatar simonmar
Browse files

[project @ 2005-12-05 11:43:51 by simonmar]

add newTVarIO test
parent 09711029
......@@ -114,3 +114,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 threadDelay, Random, and QSemN.
-- Variation of conc023, testing STM timeouts instead of IO
import Control.Concurrent
import Control.Concurrent.STM
import System.IO.Unsafe
var = unsafePerformIO $ newTVarIO 3
main = do x <- atomically $ readTVar var; print x
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