Skip to content
Snippets Groups Projects
Commit 1faaf041 authored by Simon Marlow's avatar Simon Marlow
Browse files

add the test from #3231

parent 840faadb
No related branches found
No related tags found
No related merge requests found
module Main() where
import Control.Concurrent
import System.IO
import System.Cmd
import System.Directory
main = do
hSetBuffering stdout NoBuffering
forkIO $ f "foo1.txt"
forkIO $ f "foo2.txt"
threadDelay $ 2*1000000
putStrLn "Finished successfully"
f file = do
h <- openFile file WriteMode
hPutStrLn h "fjkladsf"
system "sleep 1s"
-- putChar '.'
hClose h
removeFile file
f file
Finished successfully
...@@ -16,3 +16,4 @@ test('process006', normal, compile_and_run, ['']) ...@@ -16,3 +16,4 @@ test('process006', normal, compile_and_run, [''])
test('process007', [extra_clean(['process007.tmp']), reqlib('unix')], compile_and_run, ['']) test('process007', [extra_clean(['process007.tmp']), reqlib('unix')], compile_and_run, [''])
test('process008', normal, compile_and_run, ['']) test('process008', normal, compile_and_run, [''])
test('3231', only_ways(['normal','threaded1','threaded2']), compile_and_run, [''])
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment