Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: a3b16f97d2
Fetching contributors…

Cannot retrieve contributors at this time

57 lines (49 sloc) 1.762 kb
local OAuth = require "OAuth"
module(..., lunit.testcase, package.seeall)
-- see: http://echo.lab.madgex.com/
function test()
print("echo.lab.madgex.com")
local client = OAuth.new("key", "secret", {
RequestToken = "http://echo.lab.madgex.com/request-token.ashx",
AccessToken = "http://echo.lab.madgex.com/access-token.ashx"
})
print("Requesting token")
client:RequestToken(function(err, values)
assert_nil(err)
assert_table(values)
assert_equal("requestkey", values.oauth_token)
assert_equal("requestsecret", values.oauth_token_secret)
print("Retrieving access token")
client:GetAccessToken(function(err, values)
assert_table(values)
assert_equal("accesskey", values.oauth_token)
assert_equal("accesssecret", values.oauth_token_secret)
print("Making authenticated call")
local client = OAuth.new("key", "secret", {
RequestToken = "http://echo.lab.madgex.com/request-token.ashx",
AccessToken = "http://echo.lab.madgex.com/access-token.ashx"
})
client:SetToken("accesskey")
client:SetTokenSecret("accesssecret")
client:PerformRequest("GET", "http://echo.lab.madgex.com/echo.ashx",
{foo = "bar"},
function(err, response_code, response_headers, response_status_line, response_body)
if err then
print("Error making request")
print(err.code)
print(err.message)
return
end
if response_code ~= 200 then
print("Error requesting token:", response_code)
for k,v in pairs(response_headers) do print(k,v) end
print(response_status_line)
print(response_body)
end
print(response_body)
assert_equal("foo=bar", response_body)
end)
end)
end)
process:loop()
end
Jump to Line
Something went wrong with that request. Please try again.