Skip executeFile001 in threaded2 way
[packages/unix.git] / tests / T8108.hs
1 import Control.Monad
2 import Control.Concurrent
3 import System.Posix.User
4
5 main = do
6 void $ forkIO $ forever $ getGroupEntryForID 0
7 void $ forkIO $ forever $ getGroupEntryForID 0
8 threadDelay (3*1000*1000)