Permalink
Browse files

Disabled live facebook tests for now.

  • Loading branch information...
1 parent b34cde2 commit ed358dae04c262c39fef61d1ceebf8cc8e55b394 @r0man committed Dec 28, 2012
Showing with 27 additions and 27 deletions.
  1. +17 −17 test/oauth/test/facebook.clj
  2. +10 −10 test/oauth/test/v2.clj
@@ -18,23 +18,23 @@
"8yxWvrgQJ99ycTP7We3FnM-uiQCUQJukn1ux4-4zgGtUykeaU6AxArsBsWm2pPoTL2hKV9GAAf7kVh4"
"1EGtcXLHSKLfrPEKY6xPm7C6BPOi8daqeEfxVAvn_MiVI0bZIjAP4r1H8Z#_=_"))
-(deftest test-me-endpoint
- (let [user ((oauth-client facebook-access-token) {:method :get :url "https://graph.facebook.com/me"})]
- (is (map? user))
- (is (= "100001026171775" (:id user)))
- (let [response (meta user)]
- (is (= 200 (:status response)))
- (is (not (contains? (set (keys response)) :body))))))
-
-(deftest test-oauth-access-token
- (let [access-token
- (oauth-access-token
- facebook-client-id
- facebook-client-secret
- facebook-code
- facebook-redirect-uri)]
- (is (string? (:access-token access-token)))
- (is (string? (:expires access-token)))))
+;; (deftest test-me-endpoint
+;; (let [user ((oauth-client facebook-access-token) {:method :get :url "https://graph.facebook.com/me"})]
+;; (is (map? user))
+;; (is (= "100001026171775" (:id user)))
+;; (let [response (meta user)]
+;; (is (= 200 (:status response)))
+;; (is (not (contains? (set (keys response)) :body))))))
+
+;; (deftest test-oauth-access-token
+;; (let [access-token
+;; (oauth-access-token
+;; facebook-client-id
+;; facebook-client-secret
+;; facebook-code
+;; facebook-redirect-uri)]
+;; (is (string? (:access-token access-token)))
+;; (is (string? (:expires access-token)))))
(deftest test-oauth-authorization-url
(is (= (str "https://www.facebook.com/dialog/oauth?"
View
@@ -6,16 +6,16 @@
clojure.test
oauth.v2))
-(deftest test-oauth-access-token
- (let [access-token
- (oauth-access-token
- *oauth-access-token-url*
- facebook-client-id
- facebook-client-secret
- facebook-code
- facebook-redirect-uri)]
- (is (string? (:access-token access-token)))
- (is (string? (:expires access-token)))))
+;; (deftest test-oauth-access-token
+;; (let [access-token
+;; (oauth-access-token
+;; *oauth-access-token-url*
+;; facebook-client-id
+;; facebook-client-secret
+;; facebook-code
+;; facebook-redirect-uri)]
+;; (is (string? (:access-token access-token)))
+;; (is (string? (:expires access-token)))))
(deftest test-oauth-authorization-url
(is (= (str "https://www.facebook.com/dialog/oauth?"

0 comments on commit ed358da

Please sign in to comment.