PageRenderTime 48ms CodeModel.GetById 22ms RepoModel.GetById 0ms app.codeStats 0ms

/test/oauth/v1_test.clj

http://github.com/r0man/oauth-clj
Clojure | 119 lines | 107 code | 12 blank | 0 comment | 27 complexity | f0a7b78739e5c0c3f8ff2deab2aedddb MD5 | raw file
    

  1. (ns oauth.v1-test
    2. 

  2.   (:require [clj-http.client :as http]
    3. 

  3.             [clojure.java.browse :refer [browse-url]]
    4. 

  4.             [clojure.test :refer :all]
    5. 

  5.             [oauth.twitter-test :refer :all]
    6. 

  6.             [oauth.v1 :refer :all]))
    7. 

  7. 

  8. (deftest test-oauth-authorization-header
    9. 

  9.   (is (= (str "OAuth "
    10. 

  10.               "oauth_consumer_key=\"xvz1evFS4wEEPTGEFPHBog\", "
    11. 

  11.               "oauth_nonce=\"kYjzVBB8Y0ZFabxSWbWovY3uYSQ2pTgmZeNu2VS4cg\", "
    12. 

  12.               "oauth_signature_method=\"HMAC-SHA1\", oauth_timestamp=\"1318622958\", "
    13. 

  13.               "oauth_token=\"370773112-GmHxMAgYyLbNEtIKZeRNFsMKPR9EyMZeS9weJAEb\", "
    14. 

  14.               "oauth_version=\"1.0\"")
    15. 

  15.          (oauth-authorization-header twitter-update-status)))
    16. 

  16.   (is (= (str "OAuth "
    17. 

  17.               "oauth_callback=\"http%3A%2F%2Flocalhost%3A3005%2Fthe_dance%2Fprocess_callback%3Fservice_provider_id%3D11\", "
    18. 

  18.               "oauth_consumer_key=\"GDdmIQH6jhtmLUypg82g\", "
    19. 

  19.               "oauth_nonce=\"QP70eNmVz8jvdPevU3oJD2AfF7R7odC2XJcn4XlZJqk\", "
    20. 

  20.               "oauth_signature=\"8wUi7m5HFQy76nowoCThusfgB%2BQ%3D\", "
    21. 

  21.               "oauth_signature_method=\"HMAC-SHA1\", "
    22. 

  22.               "oauth_timestamp=\"1272323042\", "
    23. 

  23.               "oauth_version=\"1.0\"")
    24. 

  24.          (oauth-authorization-header
    25. 

  25.           (oauth-sign-request twitter-request-token "MCD8BKwGdgPHvAuvgvz4EQpqDAtx89grbuNMRd7Eh98" nil)))))
    26. 

  26. 

  27. (deftest test-oauth-authorize
    28. 

  28.   (let [expected "https://api.twitter.com/oauth/authorize?oauth_token=9BVHFCl8PCvGekptmdtL1169QkppJG6PgpUDQDWow"]
    29. 

  29.     (with-redefs [browse-url (fn [url] (is (= expected url)))]
    30. 

  30.       (oauth-authorize "https://api.twitter.com/oauth/authorize" "9BVHFCl8PCvGekptmdtL1169QkppJG6PgpUDQDWow"))))
    31. 

  31. 

  32. (deftest test-oauth-callback-confirmed?
    33. 

  33.   (is (not (oauth-callback-confirmed? {})))
    34. 

  34.   (is (not (oauth-callback-confirmed? {:oauth-callback-confirmed false})))
    35. 

  35.   (is (not (oauth-callback-confirmed? {:oauth-callback-confirmed "false"})))
    36. 

  36.   (is (not (oauth-callback-confirmed? {:oauth-callback-confirmed "x"})))
    37. 

  37.   (is (oauth-callback-confirmed? {:oauth-callback-confirmed true}))
    38. 

  38.   (is (oauth-callback-confirmed? {:oauth-callback-confirmed "true"})))
    39. 

  39. 

  40. (deftest test-oauth-nonce
    41. 

  41.   (is (string? (oauth-nonce)))
    42. 

  42.   (is (not (= (oauth-nonce) (oauth-nonce)))))
    43. 

  43. 

  44. (deftest test-oauth-parameter-string
    45. 

  45.   (is (= (str "include_entities=true&"
    46. 

  46.               "oauth_consumer_key=xvz1evFS4wEEPTGEFPHBog&"
    47. 

  47.               "oauth_nonce=kYjzVBB8Y0ZFabxSWbWovY3uYSQ2pTgmZeNu2VS4cg&"
    48. 

  48.               "oauth_signature_method=HMAC-SHA1&"
    49. 

  49.               "oauth_timestamp=1318622958&"
    50. 

  50.               "oauth_token=370773112-GmHxMAgYyLbNEtIKZeRNFsMKPR9EyMZeS9weJAEb&"
    51. 

  51.               "oauth_version=1.0&"
    52. 

  52.               "status=Hello%20Ladies%20%2B%20Gentlemen%2C%20a%20signed%20OAuth%20request%21")
    53. 

  53.          (oauth-parameter-string twitter-update-status))))
    54. 

  54. 

  55. (deftest test-oauth-signature-parameters
    56. 

  56.   (is (= {} (oauth-signature-parameters nil)))
    57. 

  57.   (is (= {} (oauth-signature-parameters {})))
    58. 

  58.   (let [params (oauth-signature-parameters twitter-update-status)]
    59. 

  59.     (is (= 8 (count params)))
    60. 

  60.     (is (= true (get params "include_entities")))
    61. 

  61.     (is (= "xvz1evFS4wEEPTGEFPHBog" (get params "oauth_consumer_key")))
    62. 

  62.     (is (= "kYjzVBB8Y0ZFabxSWbWovY3uYSQ2pTgmZeNu2VS4cg" (get params "oauth_nonce")))
    63. 

  63.     (is (= "HMAC-SHA1" (get params "oauth_signature_method")))
    64. 

  64.     (is (= "1318622958" (get params "oauth_timestamp")))
    65. 

  65.     (is (= "370773112-GmHxMAgYyLbNEtIKZeRNFsMKPR9EyMZeS9weJAEb" (get params "oauth_token")))
    66. 

  66.     (is (= "1.0" (get params "oauth_version")))
    67. 

  67.     (is (= "Hello Ladies + Gentlemen, a signed OAuth request!" (get params "status")))))
    68. 

  68. 

  69. (deftest test-oauth-request-signature
    70. 

  70.   (is (= "hCtSmYh+iHYCEqBWrE7C7hYmtUk="
    71. 

  71.          (oauth-request-signature twitter-update-status "kAcSOqF21Fu85e7zjz7ZN2U4ZRhfV3WpwPAoE3Z7kBw" "LswwdoUaIvS8ltyTt5jkRh4J50vUPVVHtR2YPi5kE")))
    72. 

  72.   (is (= "8wUi7m5HFQy76nowoCThusfgB+Q="
    73. 

  73.          (oauth-request-signature twitter-request-token "MCD8BKwGdgPHvAuvgvz4EQpqDAtx89grbuNMRd7Eh98" nil))))
    74. 

  74. 

  75. (deftest test-oauth-signature-base
    76. 

  76.   (is (= (str "POST&"
    77. 

  77.               "https%3A%2F%2Fapi.twitter.com%2F1.1%2Fstatuses%2Fupdate.json&"
    78. 

  78.               "include_entities%3Dtrue%26"
    79. 

  79.               "oauth_consumer_key%3Dxvz1evFS4wEEPTGEFPHBog%26"
    80. 

  80.               "oauth_nonce%3DkYjzVBB8Y0ZFabxSWbWovY3uYSQ2pTgmZeNu2VS4cg%26"
    81. 

  81.               "oauth_signature_method%3DHMAC-SHA1%26"
    82. 

  82.               "oauth_timestamp%3D1318622958%26"
    83. 

  83.               "oauth_token%3D370773112-GmHxMAgYyLbNEtIKZeRNFsMKPR9EyMZeS9weJAEb%26"
    84. 

  84.               "oauth_version%3D1.0%26"
    85. 

  85.               "status%3DHello%2520Ladies%2520%252B%2520Gentlemen%252C%2520a%2520signed%2520OAuth%2520request%2521")
    86. 

  86.          (oauth-signature-base twitter-update-status)))
    87. 

  87.   (is (= (str "POST&"
    88. 

  88.               "https%3A%2F%2Fapi.twitter.com%2Foauth%2Frequest_token&"
    89. 

  89.               "oauth_callback%3Dhttp%253A%252F%252Flocalhost%253A3005%252Fthe_dance%252Fprocess_callback%253Fservice_provider_id%253D11%26"
    90. 

  90.               "oauth_consumer_key%3DGDdmIQH6jhtmLUypg82g%26"
    91. 

  91.               "oauth_nonce%3DQP70eNmVz8jvdPevU3oJD2AfF7R7odC2XJcn4XlZJqk%26"
    92. 

  92.               "oauth_signature_method%3DHMAC-SHA1%26"
    93. 

  93.               "oauth_timestamp%3D1272323042%26"
    94. 

  94.               "oauth_version%3D1.0")
    95. 

  95.          (oauth-signature-base twitter-request-token))))
    96. 

  96. 

  97. (deftest test-oauth-signing-key
    98. 

  98.   (are [consumer-secret token-secret expected]
    99. 

  99.     (is (= expected (oauth-signing-key consumer-secret token-secret)))
    100. 

  100.     "MCD8BKwGdgPHvAuvgvz4EQpqDAtx89grbuNMRd7Eh98" nil
    101. 

  101.     "MCD8BKwGdgPHvAuvgvz4EQpqDAtx89grbuNMRd7Eh98&"
    102. 

  102.     "MCD8BKwGdgPHvAuvgvz4EQpqDAtx89grbuNMRd7Eh98" ""
    103. 

  103.     "MCD8BKwGdgPHvAuvgvz4EQpqDAtx89grbuNMRd7Eh98&"
    104. 

  104.     "kAcSOqF21Fu85e7zjz7ZN2U4ZRhfV3WpwPAoE3Z7kBw" "LswwdoUaIvS8ltyTt5jkRh4J50vUPVVHtR2YPi5kE"
    105. 

  105.     "kAcSOqF21Fu85e7zjz7ZN2U4ZRhfV3WpwPAoE3Z7kBw&LswwdoUaIvS8ltyTt5jkRh4J50vUPVVHtR2YPi5kE"))
    106. 

  106. 

  107. (deftest test-oauth-timestamp
    108. 

  108.   (is (number? (oauth-timestamp))))
    109. 

  109. 

  110. (deftest test-wrap-oauth-signature
    111. 

  111.   ((wrap-oauth-signature
    112. 

  112.     #(is (= "hCtSmYh+iHYCEqBWrE7C7hYmtUk=" (:oauth-signature %1))))
    113. 

  113.    (assoc twitter-update-status
    114. 

  114.      :oauth-consumer-secret "kAcSOqF21Fu85e7zjz7ZN2U4ZRhfV3WpwPAoE3Z7kBw"
    115. 

  115.      :oauth-token-secret "LswwdoUaIvS8ltyTt5jkRh4J50vUPVVHtR2YPi5kE")))
    116. 

  116. 

  117. (deftest test-make-consumer
    118. 

  118.   (let [consumer (make-consumer)]
    119. 

  119.     (is (fn? consumer))))
    120. 

  120.