Commit 6b920fbe authored by Simon Marlow's avatar Simon Marlow

add test for 3171 (a test for Ctrl-C!)

parent b03663bd
TOP=../../../..
include $(TOP)/mk/boilerplate.mk
include $(TOP)/mk/test.mk
# Test that threadDelay can be interrupted by ^C.
3171:
(sleep 1; kill -INT `cat 3171.pid`) & \
echo "do System.Posix.getProcessID >>= writeFile \"3171.pid\" . show; Control.Concurrent.threadDelay 3000000; putStrLn \"threadDelay was not interrupted\"" | $(TEST_HC) -v0 --interactive 2>3171.err
# We only want to run these tests with GHCi
def f( opts ):
def just_ghci( opts ):
opts.only_ways = ['ghci']
setTestOpts(f)
test('ghci001', normal, compile_and_run, [''])
test('ghci002', normal, compile_and_run, [''])
test('ghci003', normal, compile_and_run, [''])
test('2589', normal, compile_and_run, [''])
test('ghci001', just_ghci, compile_and_run, [''])
test('ghci002', just_ghci, compile_and_run, [''])
test('ghci003', just_ghci, compile_and_run, [''])
test('2589', just_ghci, compile_and_run, [''])
test('3171', if_platform('i386_unknown_mingw32',skip), run_command,
['$MAKE -s --no-print-directory 3171'])
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