diff options
author | Ian Lynagh <igloo@earth.li> | 2008-01-15 02:05:40 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2008-01-15 02:05:40 +0000 |
commit | 832fb683ba730115d5947493d1551ddeacb13bac (patch) | |
tree | ebf19f3790c6ac7a74c2daf9c6203815e4542b18 /tests | |
parent | f1d3d2228ca51b80eae82c3cc9fa1ccec6f9299d (diff) |
Add a test getUserEntryForName for trac #1976
Diffstat (limited to 'tests')
-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) + |