blob: 7e75381a2676a59ba39798d2670844c7e89d1444 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
-- Test for bug #1047
import Control.Concurrent
import Control.Exception
-- This loop spends most of its time printing stuff, and very occasionally
-- pops outside 'block'. This test ensures that a thread trying to
-- throwTo this thread will eventually succeed.
loop = mask_ (print "alive") >> loop
main = do tid <- forkIO loop
threadDelay 1
killThread tid
|
