diff options
author | Simon Marlow <simonmar@microsoft.com> | 2007-07-03 10:52:24 +0000 |
---|---|---|
committer | Simon Marlow <simonmar@microsoft.com> | 2007-07-03 10:52:24 +0000 |
commit | fed4894b50fbd4e33fcada037e4089bb7ddf7c70 (patch) | |
tree | fb73a663f4b05353b6bcacd1e0a60411f3d7726a | |
parent | 797fcb448bb11de877b57ecaa5a0a0e377dfaff8 (diff) |
disable the getLoginName test, see #1487
-rw-r--r-- | tests/all.T | 2 | ||||
-rw-r--r-- | tests/user001.hs | 4 | ||||
-rw-r--r-- | tests/user001.stdout | 2 |
3 files changed, 3 insertions, 5 deletions
diff --git a/tests/all.T b/tests/all.T index 8588b23..096ba2e 100644 --- a/tests/all.T +++ b/tests/all.T @@ -10,7 +10,7 @@ test('fileexist01', conf, compile_and_run, ['-package unix']) test('forkprocess01', compose(only_compiler_types(['ghc']), compose(expect_fail_for('threaded2'), conf)), compile_and_run, ['-package unix']) -test('user001', compose(conf, no_stdin), compile_and_run, ['-package unix']) +test('user001', conf, compile_and_run, ['-package unix']) if config.platform == 'i386-unknown-freebsd': conf = expect_fail diff --git a/tests/user001.hs b/tests/user001.hs index ae2e875..efaf5cf 100644 --- a/tests/user001.hs +++ b/tests/user001.hs @@ -17,11 +17,11 @@ main = do p "getRealUserID" $ getRealUserID p "getEffectiveUserID" $ getEffectiveUserID p "getEffectiveGroupID" $ getEffectiveGroupID p "getGroups" $ getGroups - p "getLoginName" $ getLoginName + -- p "getLoginName" $ getLoginName p "getEffectiveUserName" $ getEffectiveUserName p "getGroupEntryForID" $ getRealGroupID >>= getGroupEntryForID p "getGroupEntryForName" $ getRealGroupID >>= getGroupEntryForID >>= getGroupEntryForName . groupName p "getAllGroupEntries" $ getAllGroupEntries p "getUserEntryForID" $ getRealUserID >>= getUserEntryForID - p "getUserEntryForName" $ getLoginName >>= getUserEntryForName + -- p "getUserEntryForName" $ getLoginName >>= getUserEntryForName p "getAllUserEntries" $ getAllUserEntries diff --git a/tests/user001.stdout b/tests/user001.stdout index 48c0cfd..e2e03df 100644 --- a/tests/user001.stdout +++ b/tests/user001.stdout @@ -3,11 +3,9 @@ getRealGroupID: OK getEffectiveUserID: OK getEffectiveGroupID: OK getGroups: OK -getLoginName: OK getEffectiveUserName: OK getGroupEntryForID: OK getGroupEntryForName: OK getAllGroupEntries: OK getUserEntryForID: OK -getUserEntryForName: OK getAllUserEntries: OK |