From e7ce4a66113a910af6327b3192e9ce4879a453cc Mon Sep 17 00:00:00 2001 From: Thomas Miedema Date: Fri, 26 Sep 2014 19:03:05 +0200 Subject: Disable getlogin tests for the moment (#1487) --- tests/user001.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tests/user001.hs') 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 -- cgit v1.2.3