tests/T8108.hs


1
2
3
4
5
6
7
8

import Control.Monad
import Control.Concurrent
import System.Posix.User

main = do
    void $ forkIO $ forever $ getGroupEntryForID 0
    void $ forkIO $ forever $ getGroupEntryForID 0
    threadDelay (3*1000*1000)