diff options
-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 |