diff options
author | Ian Lynagh <ian@well-typed.com> | 2013-01-25 14:35:53 +0000 |
---|---|---|
committer | Ian Lynagh <ian@well-typed.com> | 2013-01-25 14:35:53 +0000 |
commit | 01c5ea9132e448ac57be55d84e91cef4ff8c61f3 (patch) | |
tree | d22872455fdd67d9b4e52868b6aa19d85ae0af13 /testsuite/tests/concurrent/should_run/T5421.hs | |
parent | 3bd690ab776e71df9cfebf12e18ed424c87f0e9b (diff) | |
download | haskell-01c5ea9132e448ac57be55d84e91cef4ff8c61f3.tar.gz |
Rename some numeric tests: nnnn -> Tnnnn
Diffstat (limited to 'testsuite/tests/concurrent/should_run/T5421.hs')
-rw-r--r-- | testsuite/tests/concurrent/should_run/T5421.hs | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/testsuite/tests/concurrent/should_run/T5421.hs b/testsuite/tests/concurrent/should_run/T5421.hs new file mode 100644 index 0000000000..863820ba4a --- /dev/null +++ b/testsuite/tests/concurrent/should_run/T5421.hs @@ -0,0 +1,17 @@ +import Control.Concurrent +import Control.Monad.Fix + +data Client = Client + { clientLock :: MVar () + } + +main = do + mvar <- newMVar () + + client <- mfix $ \client -> do + _ <- forkIO (mainLoop client) + threadDelay 200000 + return (Client mvar) + return () + +mainLoop client = withMVar (clientLock client) (\_ -> return ()) |