add test for #3816
authorSimon Marlow <marlowsd@gmail.com>
Mon, 29 Mar 2010 11:26:46 +0000 (11:26 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Mon, 29 Mar 2010 11:26:46 +0000 (11:26 +0000)
tests/3816.hs [new file with mode: 0644]
tests/3816.stdout [new file with mode: 0644]
tests/all.T

diff --git a/tests/3816.hs b/tests/3816.hs
new file mode 100644 (file)
index 0000000..cda272f
--- /dev/null
@@ -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 (file)
index 0000000..dbde422
--- /dev/null
@@ -0,0 +1,2 @@
+True
+True
index 1311d74..6b37edf 100644 (file)
@@ -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'])