diff options
| -rw-r--r-- | tests/3816.hs | 4 | ||||
| -rw-r--r-- | tests/3816.stdout | 2 | ||||
| -rw-r--r-- | tests/all.T | 2 |
3 files changed, 8 insertions, 0 deletions
diff --git a/tests/3816.hs b/tests/3816.hs new file mode 100644 index 0000000..cda272f --- /dev/null +++ b/tests/3816.hs @@ -0,0 +1,4 @@ +import System.Posix +main = do + getAllGroupEntries >>= print . (>0) . length + getAllGroupEntries >>= print . (>0) . length diff --git a/tests/3816.stdout b/tests/3816.stdout new file mode 100644 index 0000000..dbde422 --- /dev/null +++ b/tests/3816.stdout @@ -0,0 +1,2 @@ +True +True diff --git a/tests/all.T b/tests/all.T index 1311d74..6b37edf 100644 --- a/tests/all.T +++ b/tests/all.T @@ -47,3 +47,5 @@ test('fileStatus', test('1185', [ expect_fail_for(['threaded2']) ], compile_and_run, ['-package unix']) + +test('3816', normal, compile_and_run, ['-package unix']) |