diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/all.T | 2 | ||||
-rw-r--r-- | tests/getGroupEntryForName.hs | 5 | ||||
-rw-r--r-- | tests/getGroupEntryForName.stderr | 2 |
3 files changed, 9 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']) 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 () diff --git a/tests/getGroupEntryForName.stderr b/tests/getGroupEntryForName.stderr new file mode 100644 index 0000000..baf3997 --- /dev/null +++ b/tests/getGroupEntryForName.stderr @@ -0,0 +1,2 @@ +getGroupEntryForName: thisIsNotMeantToExist: getGroupEntryForName: does not exist (no group name) + |