diff --git a/fb.cabal b/fb.cabal
--- a/fb.cabal
+++ b/fb.cabal
@@ -1,5 +1,5 @@
 name:              fb
-version:           0.13.1
+version:           0.13.2
 license:           BSD3
 license-file:      LICENSE
 author:            Felipe Lessa
diff --git a/src/Facebook.hs b/src/Facebook.hs
--- a/src/Facebook.hs
+++ b/src/Facebook.hs
@@ -41,6 +41,8 @@
     , getUser
     , searchUsers
     , getUserCheckins
+    , Friend(..)
+    , getUserFriends
       -- ** Page
     , Page(..)
     , getPage
diff --git a/src/Facebook/Object/User.hs b/src/Facebook/Object/User.hs
--- a/src/Facebook/Object/User.hs
+++ b/src/Facebook/Object/User.hs
@@ -5,6 +5,8 @@
     , getUser
     , searchUsers
     , getUserCheckins
+    , Friend(..)
+    , getUserFriends
     ) where
 
 import Control.Applicative
@@ -109,3 +111,28 @@
   -> FacebookT anyAuth m (Pager Checkin)
 getUserCheckins id_ query token =
   getObject ("/" <> idCode id_ <> "/checkins") query (Just token)
+
+
+-- | A friend connection of a 'User'.
+data Friend =
+    Friend { friendId   :: UserId
+           , friendName :: Text
+           }
+    deriving (Eq, Ord, Show, Read, Typeable)
+
+instance A.FromJSON Friend where
+    parseJSON (A.Object v) =
+      Friend <$> v .: "id"
+             <*> v .: "name"
+    parseJSON _ = mzero
+
+
+-- | Get the list of friends of the given user.
+getUserFriends ::
+     (C.MonadResource m, MonadBaseControl IO m) =>
+     UserId          -- ^ User ID or @\"me\"@.
+  -> [Argument]      -- ^ Arguments to be passed to Facebook.
+  -> UserAccessToken -- ^ User access token.
+  -> FacebookT anyAuth m (Pager Friend)
+getUserFriends id_ query token =
+  getObject ("/" <> idCode id_ <> "/friends") query (Just token)
diff --git a/tests/Main.hs b/tests/Main.hs
--- a/tests/Main.hs
+++ b/tests/Main.hs
@@ -269,13 +269,21 @@
       runAuth $
         withTestUser D.def $ \testUser1 ->
         withTestUser D.def $ \testUser2 -> do
-            let Just tokenUserA = FB.incompleteTestUserAccessToken testUser1
-            let Just tokenUserB = FB.incompleteTestUserAccessToken testUser2
-            -- Create a friend connection between the new test users
+            let Just tokenUser1 = FB.incompleteTestUserAccessToken testUser1
+            let Just tokenUser2 = FB.incompleteTestUserAccessToken testUser2
+            -- Check if the new test users' tokens are valid.
+            FB.isValid tokenUser1 #?= True
+            FB.isValid tokenUser2 #?= True
+            -- Create a friend connection between the new test users.
             FB.makeFriendConn testUser1 testUser2
-            -- Check if the new test users' tokens are valid
-            FB.isValid tokenUserA #?= True
-            FB.isValid tokenUserB #?= True
+            -- Verify that one is a friend of the other.
+            user1 <- FB.getUser (FB.tuId testUser1) [] (Just tokenUser1)
+            user2 <- FB.getUser (FB.tuId testUser2) [] (Just tokenUser2)
+            friends1 <- FB.getUserFriends (FB.tuId testUser1) [] tokenUser1
+            friends2 <- FB.getUserFriends (FB.tuId testUser2) [] tokenUser2
+            FB.pagerData friends1 &?= [FB.Friend (FB.tuId testUser2) (M.fromJust (FB.userName user2))]
+            FB.pagerData friends2 &?= [FB.Friend (FB.tuId testUser1) (M.fromJust (FB.userName user1))]
+
 
   describe' "getTestUsers" $ do
     it "gets a list of test users" $ do