From 07ad49a59d2bf20fc8b4e835c42726c687e98380 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 29 Mar 2010 11:26:46 +0000 Subject: add test for #3816 --- tests/3816.hs | 4 ++++ tests/3816.stdout | 2 ++ tests/all.T | 2 ++ 3 files changed, 8 insertions(+) create mode 100644 tests/3816.hs create mode 100644 tests/3816.stdout (limited to 'tests') 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']) -- cgit v1.2.3