[commit: packages/unix] master, safe710fixes, safe710fixes-again, safefixes710again: Disable getlogin tests for the moment (#1487) (e7ce4a6)

git at git.haskell.org git at git.haskell.org
Thu Mar 19 15:50:07 UTC 2015


Repository : ssh://git@git.haskell.org/unix

On branches: master,safe710fixes,safe710fixes-again,safefixes710again
Link       : http://ghc.haskell.org/trac/ghc/changeset/e7ce4a66113a910af6327b3192e9ce4879a453cc/unix

>---------------------------------------------------------------

commit e7ce4a66113a910af6327b3192e9ce4879a453cc
Author: Thomas Miedema <thomasmiedema at gmail.com>
Date:   Fri Sep 26 19:03:05 2014 +0200

    Disable getlogin tests for the moment (#1487)


>---------------------------------------------------------------

e7ce4a66113a910af6327b3192e9ce4879a453cc
 tests/user001.hs     | 4 ++--
 tests/user001.stdout | 2 --
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/tests/user001.hs b/tests/user001.hs
index f4c44fc..4b4dd8b 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



More information about the ghc-commits mailing list