diff options
author | Marios Titas <redneb@gmx.com> | 2013-07-08 03:55:59 -0400 |
---|---|---|
committer | Austin Seipp <aseipp@pobox.com> | 2013-08-10 20:56:08 -0500 |
commit | ef683c6ba703106306732f1da68adfb508236334 (patch) | |
tree | f95557963bcba5051481fccc450289bc92bc95a6 /tests | |
parent | 46bfe3d56a2c7732bb6222f3e9ad6ad7a94e13d7 (diff) |
Extract the result of get*_r before we deallocate the auxiliary buffer
Also comes with tests. This closes #8108.
Signed-off-by: Austin Seipp <aseipp@pobox.com>
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']) |