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/all.T | |
| 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/all.T')
| -rw-r--r-- | tests/all.T | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/tests/all.T b/tests/all.T index 2ae037f..6df75fe 100644 --- a/tests/all.T +++ b/tests/all.T @@ -18,4 +18,6 @@ if config.platform == 'i386-unknown-freebsd': test('queryfdoption01', compose(omit_ways(['ghci']), compose(only_compiler_types(['ghc']), conf)), compile_and_run, ['-package unix']) test('getEnvironment01', conf, compile_and_run, ['-package unix']) +test('getGroupEntryForName', compose(conf, expect_fail), compile_and_run, + ['-package unix']) |