From 23d62156b0f9b87b4541688a535ca5aa378969a8 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Sat, 10 Nov 2007 23:58:05 +0000
Subject: Throw a proper exception if getGroupEntryForName fails to find an
 entry We used to get  *** Exception: getGroupEntryForName: failed (Success)
 Fixes trac #1655

---
 tests/getGroupEntryForName.hs | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 tests/getGroupEntryForName.hs

(limited to 'tests/getGroupEntryForName.hs')

diff --git a/tests/getGroupEntryForName.hs b/tests/getGroupEntryForName.hs
new file mode 100644
index 0000000..bdb4272
--- /dev/null
+++ b/tests/getGroupEntryForName.hs
@@ -0,0 +1,5 @@
+
+import System.Posix.User
+
+main :: IO ()
+main = getGroupEntryForName "thisIsNotMeantToExist" >> return ()
-- 
cgit v1.2.3