diff options
| author |  Simon Marlow <marlowsd@gmail.com> | 2010-03-29 11:26:46 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-03-29 11:26:46 +0000 |
| commit | 07ad49a59d2bf20fc8b4e835c42726c687e98380 (patch) | |
| tree | e020507f3a0454ae4caaf415f4ee6727f34f10b8 /tests | |
| parent | d8aa9a0e1ff9a4b6e38311d854da9fa8b683a163 (diff) | |
add test for #3816
Diffstat (limited to 'tests')
| -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']) |