PageRenderTime 26ms CodeModel.GetById 1ms RepoModel.GetById 0ms app.codeStats 0ms

/test/oauth/twitter_test.clj

http://github.com/r0man/oauth-clj
Clojure | 91 lines | 77 code | 14 blank | 0 comment | 7 complexity | ebe92ff46cc3add69cbfd5bbfdd203b9 MD5 | raw file
    

  1. (ns oauth.twitter-test
    2. 

  2.   (:require [clojure.test :refer :all]
    3. 

  3.             [oauth.twitter :refer :all]))
    4. 

  4. 

  5. (def example-consumer-key
    6. 

  6.   "qcz2O57srPsb5eZA2Jyw")
    7. 

  7. 

  8. (def example-consumer-secret
    9. 

  9.   "lfs5WjmIzPc3OlDNoHSfbxVBmPNmduTDq4rQHhNN7Q")
    10. 

  10. 

  11. (def example-access-token
    12. 

  12.   "469240209-QWtxKSP6vzBaH4TrhbgX20zPC2NyjArNlv4rxdFP")
    13. 

  13. 

  14. (def example-access-token-secret
    15. 

  15.   "GZQAudgAQPbnazmqryl4RINMVOzH8QGETPzcHFCg")
    16. 

  16. 

  17. (def twitter-client
    18. 

  18.   (oauth-client
    19. 

  19.    example-consumer-key
    20. 

  20.    example-consumer-secret
    21. 

  21.    example-access-token
    22. 

  22.    example-access-token-secret))
    23. 

  23. 

  24. (def twitter-update-status
    25. 

  25.   {:method :post
    26. 

  26.    :scheme "https"
    27. 

  27.    :server-name "api.twitter.com"
    28. 

  28.    :uri "/1.1/statuses/update.json"
    29. 

  29.    :query-params {:include_entities true}
    30. 

  30.    :body "status=Hello%20Ladies%20%2b%20Gentlemen%2c%20a%20signed%20OAuth%20request%21"
    31. 

  31.    :oauth-consumer-key "xvz1evFS4wEEPTGEFPHBog"
    32. 

  32.    :oauth-nonce "kYjzVBB8Y0ZFabxSWbWovY3uYSQ2pTgmZeNu2VS4cg"
    33. 

  33.    :oauth-signature-method "HMAC-SHA1"
    34. 

  34.    :oauth-timestamp "1318622958"
    35. 

  35.    :oauth-token "370773112-GmHxMAgYyLbNEtIKZeRNFsMKPR9EyMZeS9weJAEb"
    36. 

  36.    :oauth-version "1.0"})
    37. 

  37. 

  38. (def twitter-request-token
    39. 

  39.   {:method :post
    40. 

  40.    :scheme "https"
    41. 

  41.    :server-name "api.twitter.com"
    42. 

  42.    :uri "/oauth/request_token"
    43. 

  43.    :query-params {"oauth_callback" "http://localhost:3005/the_dance/process_callback?service_provider_id=11"}
    44. 

  44.    :oauth-consumer-key "GDdmIQH6jhtmLUypg82g"
    45. 

  45.    :oauth-nonce "QP70eNmVz8jvdPevU3oJD2AfF7R7odC2XJcn4XlZJqk"
    46. 

  46.    :oauth-signature-method "HMAC-SHA1"
    47. 

  47.    :oauth-timestamp "1272323042"
    48. 

  48.    :oauth-version "1.0"})
    49. 

  49. 

  50. (deftest test-oauth-authentication-url
    51. 

  51.   (is (= "https://api.twitter.com/oauth/authenticate?oauth_token=370773112-GmHxMAgYyLbNEtIKZeRNFsMKPR9EyMZeS9weJAEb"
    52. 

  52.          (oauth-authentication-url "370773112-GmHxMAgYyLbNEtIKZeRNFsMKPR9EyMZeS9weJAEb"))))
    53. 

  53. 

  54. (deftest test-oauth-authorization-url
    55. 

  55.   (is (= "https://api.twitter.com/oauth/authorize?oauth_token=370773112-GmHxMAgYyLbNEtIKZeRNFsMKPR9EyMZeS9weJAEb"
    56. 

  56.          (oauth-authorization-url "370773112-GmHxMAgYyLbNEtIKZeRNFsMKPR9EyMZeS9weJAEb"))))
    57. 

  57. 

  58. (deftest test-oauth-client
    59. 

  59.   (is (fn? twitter-client)))
    60. 

  60. 

  61. (deftest test-oauth-request-token
    62. 

  62.   (let [request-token (oauth-request-token example-consumer-key example-consumer-secret)]
    63. 

  63.     (is (map? request-token))
    64. 

  64.     (is (string? (:oauth-token request-token)))
    65. 

  65.     (is (string? (:oauth-token-secret request-token)))
    66. 

  66.     (is (= "true" (:oauth-callback-confirmed request-token)))))
    67. 

  67. 

  68. (deftest test-verify-credentials
    69. 

  69.   (let [user (twitter-client {:method :get :url "https://api.twitter.com/1.1/account/verify_credentials.json"})]
    70. 

  70.     (is (map? user))
    71. 

  71.     (is (= 469240209 (:id user)))
    72. 

  72.     (let [response (meta user)]
    73. 

  73.       (is (= 200 (:status response))))))
    74. 

  74. 

  75. (deftest test-update-status-query-params
    76. 

  76.   (let [status (format "Test-q %s" (java.util.Date.))
    77. 

  77.         response (twitter-client
    78. 

  78.                   {:method :post
    79. 

  79.                    :url "https://api.twitter.com/1.1/statuses/update.json"
    80. 

  80.                    :query-params {:status status}})]
    81. 

  81.     (is (string? (:id-str response)))
    82. 

  82.     (is (= status (:text response)))))
    83. 

  83. 

  84. (deftest test-update-status-form-params
    85. 

  85.   (let [status (format "Test-f %s" (java.util.Date.))
    86. 

  86.         response (twitter-client
    87. 

  87.                   {:method :post
    88. 

  88.                    :url "https://api.twitter.com/1.1/statuses/update.json"
    89. 

  89.                    :form-params {:status status}})]
    90. 

  90.     (is (string? (:id-str response)))
    91. 

  91.     (is (= status (:text response)))))
    92. 

  92.