Add a test getUserEntryForName for trac #1976
authorIan Lynagh <igloo@earth.li>
Tue, 15 Jan 2008 02:05:40 +0000 (02:05 +0000)
committerIan Lynagh <igloo@earth.li>
Tue, 15 Jan 2008 02:05:40 +0000 (02:05 +0000)
tests/all.T
tests/getUserEntryForName.hs [new file with mode: 0644]
tests/getUserEntryForName.stderr [new file with mode: 0644]

index 6df75fe..a80efc6 100644 (file)
@@ -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('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 (file)
index 0000000..a31566e
--- /dev/null
@@ -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 (file)
index 0000000..70a1995
--- /dev/null
@@ -0,0 +1,2 @@
+getUserEntryForName: thisIsNotMeantToExist: getUserEntryForName: does not exist (no user name)
+