basis/oauth1/oauth1-tests.factor

   1 USING: oauth1 oauth1.private tools.test accessors kernel assocs
   2 strings namespaces urls ;
   3
   4 { "%26&b" } [ "&" "b" hmac-key ] unit-test
   5 { "%26&" } [ "&" f hmac-key ] unit-test
   6
   7 { "B&http%3A%2F%2Ftwitter.com%2F&a%3Db" } [
   8     URL" http://twitter.com"
   9     "B"
  10     { { "a" "b" } }
  11     signature-base-string
  12 ] unit-test
  13
  14 { "0EieqbHx0FJ/RtFskmRj9/TDpqo=" } [
  15     "ABC" "DEF" <token> consumer-token set
  16
  17     URL" http://twitter.com"
  18     <request-token-params>
  19         12345 >>timestamp
  20         54321 >>nonce
  21     <request-token-request>
  22     post-data>>
  23     "oauth_signature" of
  24     >string
  25 ] unit-test