Ticket #2398: test.hs

File test.hs, 258 bytes (added by sclv, 7 years ago)

Test case

Line 
1module Main where
2import System.FilePath
3import GHC.Conc
4
5main = mapM_ go (map show ([1..100] ++ [1..1000] :: [Int]))
6    where go s = forkIO $ do
7                   x <- readFile $ "foo" </> s
8                   putStrLn x
9                   putStrLn "bleh"