From 832fb683ba730115d5947493d1551ddeacb13bac Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 15 Jan 2008 02:05:40 +0000 Subject: Add a test getUserEntryForName for trac #1976 --- tests/all.T | 2 ++ tests/getUserEntryForName.hs | 5 +++++ tests/getUserEntryForName.stderr | 2 ++ 3 files changed, 9 insertions(+) create mode 100644 tests/getUserEntryForName.hs create mode 100644 tests/getUserEntryForName.stderr (limited to 'tests') 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) + -- cgit v1.2.3