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

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

parent b03663bd
include $(TOP)/mk/
include $(TOP)/mk/
# Test that threadDelay can be interrupted by ^C.
(sleep 1; kill -INT `cat`) & \
echo "do System.Posix.getProcessID >>= writeFile \"\" . 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']
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'])
Supports Markdown
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