luasocket/test/httptest.lua

424 lines
10 KiB
Lua
Raw Normal View History

-- needs Alias from /home/c/diego/tec/luasocket/test to
-- "/luasocket-test" and "/luasocket-test/"
-- needs ScriptAlias from /home/c/diego/tec/luasocket/test/cgi
-- to "/luasocket-test-cgi" and "/luasocket-test-cgi/"
-- needs "AllowOverride AuthConfig" on /home/c/diego/tec/luasocket/test/auth
2004-06-21 08:07:58 +02:00
local socket = require("socket")
2004-07-26 06:03:55 +02:00
-- override protection to make sure we see all errors
-- socket.protect = function(s) return s end
2004-06-21 08:07:58 +02:00
local http = require("http")
local mime = require("mime")
local url = require("url")
local ltn12 = require("ltn12")
2004-05-28 08:16:43 +02:00
dofile("testsupport.lua")
local host, proxy, request, response, index_file
local ignore, expect, index, prefix, cgiprefix, index_crlf
http.TIMEOUT = 10
2004-06-21 00:19:54 +02:00
local t = socket.gettime()
2004-07-26 06:03:55 +02:00
host = host or "diego.student.princeton.edu"
proxy = proxy or "http://localhost:3128"
prefix = prefix or "/luasocket-test"
cgiprefix = cgiprefix or "/luasocket-test-cgi"
index_file = "test/index.html"
-- read index with CRLF convention
index = readfile(index_file)
local check_result = function(response, expect, ignore)
2001-09-25 23:34:43 +02:00
for i,v in response do
if not ignore[i] then
if v ~= expect[i] then
local f = io.open("err", "w")
f:write(tostring(v), "\n\n versus\n\n", tostring(expect[i]))
f:close()
fail(i .. " differs!")
end
2001-09-25 23:34:43 +02:00
end
end
for i,v in expect do
if not ignore[i] then
if v ~= response[i] then
local f = io.open("err", "w")
f:write(tostring(response[i]), "\n\n versus\n\n", tostring(v))
v = string.sub(type(v) == "string" and v or "", 1, 70)
f:close()
fail(i .. " differs!")
end
2001-09-25 23:34:43 +02:00
end
end
print("ok")
end
local check_request = function(request, expect, ignore)
local t
2004-06-16 23:56:23 +02:00
if not request.sink then request.sink, t = ltn12.sink.table() end
request.source = request.source or
(request.body and ltn12.source.string(request.body))
2004-06-16 23:56:23 +02:00
local response = {}
response.code, response.headers, response.status =
socket.skip(1, http.request(request))
if t and table.getn(t) > 0 then response.body = table.concat(t) end
check_result(response, expect, ignore)
end
------------------------------------------------------------------------
io.write("testing request uri correctness: ")
2001-09-25 23:34:43 +02:00
local forth = cgiprefix .. "/request-uri?" .. "this+is+the+query+string"
2004-06-16 23:56:23 +02:00
local back, c, h = http.request("http://" .. host .. forth)
if not back then fail(c) end
back = url.parse(back)
if similar(back.query, "this+is+the+query+string") then print("ok")
else fail(back.query) end
2001-01-25 22:59:39 +01:00
------------------------------------------------------------------------
io.write("testing query string correctness: ")
2001-09-25 23:34:43 +02:00
forth = "this+is+the+query+string"
2004-06-16 23:56:23 +02:00
back = http.request("http://" .. host .. cgiprefix ..
"/query-string?" .. forth)
2001-09-25 23:34:43 +02:00
if similar(back, forth) then print("ok")
else fail("failed!") end
2001-01-25 22:59:39 +01:00
------------------------------------------------------------------------
io.write("testing document retrieval: ")
2001-09-25 23:34:43 +02:00
request = {
2003-03-28 23:41:26 +01:00
url = "http://" .. host .. prefix .. "/index.html"
2001-09-25 23:34:43 +02:00
}
expect = {
body = index,
code = 200
}
ignore = {
status = 1,
headers = 1
}
check_request(request, expect, ignore)
------------------------------------------------------------------------
io.write("testing redirect loop: ")
request = {
url = "http://" .. host .. cgiprefix .. "/redirect-loop"
}
expect = {
code = 302
}
ignore = {
status = 1,
headers = 1,
body = 1
}
check_request(request, expect, ignore)
------------------------------------------------------------------------
io.write("testing invalid url: ")
local c, e = socket.connect("", 80)
local r, re = http.request{url = host .. prefix}
assert(r == nil and e == re)
r, re = http.request(host .. prefix)
assert(r == nil and e == re, tostring(r) ..", " .. tostring(re) ..
" vs " .. tostring(e))
print("ok")
------------------------------------------------------------------------
io.write("testing post method: ")
-- wanted to test chunked post, but apache doesn't support it...
request = {
url = "http://" .. host .. cgiprefix .. "/cat",
method = "POST",
body = index,
-- remove content-length header to send chunked body
headers = { ["content-length"] = string.len(index) }
}
expect = {
body = index,
code = 200
}
ignore = {
status = 1,
headers = 1
}
check_request(request, expect, ignore)
------------------------------------------------------------------------
io.write("testing proxy with post method: ")
request = {
url = "http://" .. host .. cgiprefix .. "/cat",
method = "POST",
body = index,
headers = { ["content-length"] = string.len(index) },
proxy= proxy
}
expect = {
body = index,
code = 200
}
ignore = {
status = 1,
headers = 1
}
check_request(request, expect, ignore)
------------------------------------------------------------------------
io.write("testing simple post function: ")
2004-06-16 23:56:23 +02:00
back = http.request("http://" .. host .. cgiprefix .. "/cat", index)
assert(back == index)
2004-06-18 23:41:44 +02:00
print("ok")
------------------------------------------------------------------------
io.write("testing ltn12.(sink|source).file: ")
request = {
url = "http://" .. host .. cgiprefix .. "/cat",
method = "POST",
2004-06-18 23:41:44 +02:00
source = ltn12.source.file(io.open(index_file, "rb")),
sink = ltn12.sink.file(io.open(index_file .. "-back", "wb")),
headers = { ["content-length"] = string.len(index) }
}
expect = {
code = 200
}
ignore = {
status = 1,
headers = 1
}
check_request(request, expect, ignore)
back = readfile(index_file .. "-back")
assert(back == index)
os.remove(index_file .. "-back")
------------------------------------------------------------------------
io.write("testing ltn12.(sink|source).chain and mime.(encode|decode): ")
local function b64length(len)
local a = math.ceil(len/3)*4
local l = math.ceil(a/76)
return a + l*2
end
local source = ltn12.source.chain(
2004-06-18 23:41:44 +02:00
ltn12.source.file(io.open(index_file, "rb")),
ltn12.filter.chain(
mime.encode("base64"),
mime.wrap("base64")
)
)
local sink = ltn12.sink.chain(
mime.decode("base64"),
2004-06-18 23:41:44 +02:00
ltn12.sink.file(io.open(index_file .. "-back", "wb"))
)
request = {
url = "http://" .. host .. cgiprefix .. "/cat",
method = "POST",
source = source,
sink = sink,
headers = { ["content-length"] = b64length(string.len(index)) }
}
expect = {
code = 200
}
ignore = {
body_cb = 1,
status = 1,
headers = 1
}
check_request(request, expect, ignore)
back = readfile(index_file .. "-back")
assert(back == index)
os.remove(index_file .. "-back")
------------------------------------------------------------------------
io.write("testing http redirection: ")
2001-09-25 23:34:43 +02:00
request = {
2003-03-28 23:41:26 +01:00
url = "http://" .. host .. prefix
2001-09-25 23:34:43 +02:00
}
expect = {
body = index,
code = 200
}
ignore = {
status = 1,
headers = 1
}
check_request(request, expect, ignore)
------------------------------------------------------------------------
io.write("testing proxy with redirection: ")
request = {
url = "http://" .. host .. prefix,
proxy = proxy
}
expect = {
body = index,
code = 200
}
ignore = {
status = 1,
headers = 1
}
check_request(request, expect, ignore)
------------------------------------------------------------------------
io.write("testing automatic auth failure: ")
2001-09-25 23:34:43 +02:00
request = {
2003-03-28 23:41:26 +01:00
url = "http://really:wrong@" .. host .. prefix .. "/auth/index.html"
2001-09-25 23:34:43 +02:00
}
expect = {
code = 401
}
ignore = {
body = 1,
status = 1,
headers = 1
}
check_request(request, expect, ignore)
------------------------------------------------------------------------
io.write("testing http redirection failure: ")
2001-09-25 23:34:43 +02:00
request = {
2003-03-28 23:41:26 +01:00
url = "http://" .. host .. prefix,
redirect = false
2001-09-25 23:34:43 +02:00
}
expect = {
code = 301
}
ignore = {
body = 1,
status = 1,
headers = 1
}
check_request(request, expect, ignore)
------------------------------------------------------------------------
io.write("testing document not found: ")
2001-09-25 23:34:43 +02:00
request = {
2003-03-28 23:41:26 +01:00
url = "http://" .. host .. "/wrongdocument.html"
2001-09-25 23:34:43 +02:00
}
expect = {
code = 404
}
ignore = {
body = 1,
status = 1,
headers = 1
}
check_request(request, expect, ignore)
------------------------------------------------------------------------
io.write("testing auth failure: ")
2001-09-25 23:34:43 +02:00
request = {
2003-03-28 23:41:26 +01:00
url = "http://" .. host .. prefix .. "/auth/index.html"
2001-09-25 23:34:43 +02:00
}
expect = {
code = 401
}
ignore = {
body = 1,
status = 1,
headers = 1
}
check_request(request, expect, ignore)
------------------------------------------------------------------------
io.write("testing manual basic auth: ")
2001-09-25 23:34:43 +02:00
request = {
2003-03-28 23:41:26 +01:00
url = "http://" .. host .. prefix .. "/auth/index.html",
2001-09-25 23:34:43 +02:00
headers = {
authorization = "Basic " .. (mime.b64("luasocket:password"))
2001-09-25 23:34:43 +02:00
}
}
expect = {
code = 200,
body = index
}
ignore = {
status = 1,
headers = 1
}
check_request(request, expect, ignore)
------------------------------------------------------------------------
io.write("testing automatic basic auth: ")
2001-09-25 23:34:43 +02:00
request = {
2003-03-28 23:41:26 +01:00
url = "http://luasocket:password@" .. host .. prefix .. "/auth/index.html"
2001-09-25 23:34:43 +02:00
}
expect = {
code = 200,
body = index
}
ignore = {
status = 1,
headers = 1
}
check_request(request, expect, ignore)
------------------------------------------------------------------------
io.write("testing auth info overriding: ")
2001-09-25 23:34:43 +02:00
request = {
2003-03-28 23:41:26 +01:00
url = "http://really:wrong@" .. host .. prefix .. "/auth/index.html",
2001-09-25 23:34:43 +02:00
user = "luasocket",
password = "password"
}
expect = {
code = 200,
body = index
}
ignore = {
status = 1,
headers = 1
}
check_request(request, expect, ignore)
------------------------------------------------------------------------
io.write("testing cgi output retrieval (probably chunked...): ")
2001-09-25 23:34:43 +02:00
request = {
2003-03-28 23:41:26 +01:00
url = "http://" .. host .. cgiprefix .. "/cat-index-html"
2001-09-25 23:34:43 +02:00
}
expect = {
body = index,
code = 200
}
ignore = {
status = 1,
headers = 1
}
check_request(request, expect, ignore)
------------------------------------------------------------------------
2001-09-25 23:34:43 +02:00
local body
2004-06-16 23:56:23 +02:00
io.write("testing simple request function: ")
body = http.request("http://" .. host .. prefix .. "/index.html")
assert(body == index)
print("ok")
2001-09-25 23:34:43 +02:00
------------------------------------------------------------------------
io.write("testing HEAD method: ")
http.TIMEOUT = 1
2004-06-16 23:56:23 +02:00
local r, c, h = http.request {
2001-09-25 23:34:43 +02:00
method = "HEAD",
url = "http://www.cs.princeton.edu/~diego/"
2001-09-25 23:34:43 +02:00
}
2004-06-17 08:23:13 +02:00
assert(r and h and (c == 200), c)
print("ok")
2001-01-25 22:59:39 +01:00
------------------------------------------------------------------------
io.write("testing host not found: ")
local c, e = socket.connect("wronghost", 80)
local r, re = http.request{url = "http://wronghost/does/not/exist"}
assert(r == nil and e == re)
2004-06-16 23:56:23 +02:00
r, re = http.request("http://wronghost/does/not/exist")
assert(r == nil and e == re)
print("ok")
------------------------------------------------------------------------
2001-01-25 22:59:39 +01:00
print("passed all tests")
os.remove("err")
2001-06-09 00:40:09 +02:00
2004-06-21 00:19:54 +02:00
print(string.format("done in %.2fs", socket.gettime() - t))