diff options
-rw-r--r-- | tests/all.T | 2 | ||||
-rw-r--r-- | tests/getUserEntryForName.hs | 5 | ||||
-rw-r--r-- | tests/getUserEntryForName.stderr | 2 |
3 files changed, 9 insertions, 0 deletions
diff --git a/tests/all.T b/tests/all.T index 6df75fe..a80efc6 100644 --- a/tests/all.T +++ b/tests/all.T @@ -20,4 +20,6 @@ test('queryfdoption01', compose(omit_ways(['ghci']), compose(only_compiler_types test('getEnvironment01', conf, compile_and_run, ['-package unix']) test('getGroupEntryForName', compose(conf, expect_fail), compile_and_run, ['-package unix']) +test('getUserEntryForName', compose(conf, expect_fail), compile_and_run, + ['-package unix']) diff --git a/tests/getUserEntryForName.hs b/tests/getUserEntryForName.hs new file mode 100644 index 0000000..a31566e --- /dev/null +++ b/tests/getUserEntryForName.hs @@ -0,0 +1,5 @@ + +import System.Posix.User + +main :: IO () +main = getUserEntryForName "thisIsNotMeantToExist" >> return () diff --git a/tests/getUserEntryForName.stderr b/tests/getUserEntryForName.stderr new file mode 100644 index 0000000..70a1995 --- /dev/null +++ b/tests/getUserEntryForName.stderr @@ -0,0 +1,2 @@ +getUserEntryForName: thisIsNotMeantToExist: getUserEntryForName: does not exist (no user name) + |