facebook.gateway-test.clj

(deftest ^:integration test-friends-list
  (in-facebook-lab FB-APP-ID FB-APP-SECRET
   (let [jack (test-user/create "jack")
         jill (test-user/create "jill")
         mary (test-user/create "mary")]
     (login-as jack)
     (test-user/make-friend jill)
     (test-user/make-friend mary)

     (let [friends-of-jack (gateway/friends-list (test-user/access-token))]
       (is (= 2 (count friends-of-jack)))
       (is (some #(= "jill" (:first_name %)) friends-of-jack))
       (is (some #(= "mary" (:first_name %)) friends-of-jack))))))