diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/T8108.hs | 8 | ||||
-rw-r--r-- | tests/all.T | 2 |
2 files changed, 10 insertions, 0 deletions
diff --git a/tests/T8108.hs b/tests/T8108.hs new file mode 100644 index 0000000..cf1c764 --- /dev/null +++ b/tests/T8108.hs @@ -0,0 +1,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) diff --git a/tests/all.T b/tests/all.T index eb220c9..6b9fa15 100644 --- a/tests/all.T +++ b/tests/all.T @@ -59,3 +59,5 @@ test('T3816', normal, compile_and_run, ['-package unix']) test('processGroup001', normal, compile_and_run, ['-package unix']) test('processGroup002', normal, compile_and_run, ['-package unix']) test('executeFile001', omit_ways(prof_ways), compile_and_run, ['-package unix']) + +test('T8108', normal, compile_and_run, ['-package unix']) |