diff options
author | Ian Lynagh <igloo@earth.li> | 2007-11-10 23:58:05 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2007-11-10 23:58:05 +0000 |
commit | 23d62156b0f9b87b4541688a535ca5aa378969a8 (patch) | |
tree | a75055939deaa7c548750b137ab2dc4db31af64a /tests/getGroupEntryForName.hs | |
parent | 4dbad9911c72b9ecbf01afb19e57460dc016d912 (diff) |
Throw a proper exception if getGroupEntryForName fails to find an entry
We used to get
*** Exception: getGroupEntryForName: failed (Success)
Fixes trac #1655
Diffstat (limited to 'tests/getGroupEntryForName.hs')
-rw-r--r-- | tests/getGroupEntryForName.hs | 5 |
1 files changed, 5 insertions, 0 deletions
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 () |