luasocket/test/httptest.lua

314 lines
6.1 KiB
Lua
Raw Normal View History

-- needs Alias from /home/c/diego/tec/luasocket/test to
2001-01-25 22:59:39 +01:00
-- /luasocket-test
-- needs ScriptAlias from /home/c/diego/tec/luasocket/test/cgi
-- to /luasocket-test-cgi
-- needs AllowOverride AuthConfig on /home/c/diego/tec/luasocket/test/auth
2001-09-25 23:34:43 +02:00
dofile("noglobals.lua")
2001-09-25 23:34:43 +02:00
local similar = function(s1, s2)
return string.lower(string.gsub(s1 or "", "%s", "")) ==
string.lower(string.gsub(s2 or "", "%s", ""))
2001-09-25 23:34:43 +02:00
end
2001-01-25 22:59:39 +01:00
2001-09-25 23:34:43 +02:00
local fail = function(s)
s = s or "failed!"
print(s)
os.exit()
2001-01-25 22:59:39 +01:00
end
2001-09-25 23:34:43 +02:00
local readfile = function(name)
local f = io.open(name, "r")
2001-09-25 23:34:43 +02:00
if not f then return nil end
local s = f:read("*a")
f:close()
2001-09-25 23:34:43 +02:00
return s
2001-01-25 22:59:39 +01:00
end
2001-09-25 23:34:43 +02:00
local check = function (v, e)
if v then print("ok")
else %fail(e) end
end
local check_request = function(request, expect, ignore)
local response = http.request(request)
2001-09-25 23:34:43 +02:00
for i,v in response do
if not ignore[i] then
if v ~= expect[i] then %fail(i .. " differs!") end
end
end
for i,v in expect do
if not ignore[i] then
if v ~= response[i] then %fail(i .. " differs!") end
end
end
print("ok")
end
local request, response, ignore, expect, index, prefix, cgiprefix
2001-09-25 23:34:43 +02:00
local t = socket._time()
2001-09-25 23:34:43 +02:00
HOST = HOST or "localhost"
prefix = prefix or "/luasocket"
cgiprefix = cgiprefix or "/luasocket/cgi"
index = readfile("test/index.html")
2001-09-25 23:34:43 +02:00
io.write("testing request uri correctness: ")
2001-09-25 23:34:43 +02:00
local forth = cgiprefix .. "/request-uri?" .. "this+is+the+query+string"
local back = http.get("http://" .. HOST .. 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 query string correctness: ")
2001-09-25 23:34:43 +02:00
forth = "this+is+the+query+string"
back = http.get("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 = {
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 http redirection: ")
2001-09-25 23:34:43 +02:00
request = {
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 automatic auth failure: ")
2001-09-25 23:34:43 +02:00
request = {
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 = {
url = "http://" .. HOST .. prefix,
2001-09-25 23:34:43 +02:00
stay = 1
}
expect = {
code = 301
}
ignore = {
body = 1,
status = 1,
headers = 1
}
check_request(request, expect, ignore)
io.write("testing host not found: ")
2001-09-25 23:34:43 +02:00
request = {
url = "http://wronghost/does/not/exist"
}
local c, e = socket.connect("wronghost", 80)
2001-09-25 23:34:43 +02:00
expect = {
error = e
}
ignore = {}
check_request(request, expect, ignore)
2001-01-25 22:59:39 +01:00
io.write("testing invalid url: ")
2001-09-25 23:34:43 +02:00
request = {
url = HOST .. prefix
2001-09-25 23:34:43 +02:00
}
local c, e = socket.connect("", 80)
2001-09-25 23:34:43 +02:00
expect = {
error = e
}
ignore = {}
check_request(request, expect, ignore)
2001-01-25 22:59:39 +01:00
io.write("testing document not found: ")
2001-09-25 23:34:43 +02:00
request = {
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 = {
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 = {
url = "http://" .. HOST .. prefix .. "/auth/index.html",
2001-09-25 23:34:43 +02:00
headers = {
authorization = "Basic " .. Code.base64("luasocket:password")
}
}
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 = {
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 = {
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 = {
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)
io.write("testing redirect loop: ")
2001-09-25 23:34:43 +02:00
request = {
url = "http://" .. HOST .. cgiprefix .. "/redirect-loop"
2001-09-25 23:34:43 +02:00
}
expect = {
code = 302
}
ignore = {
status = 1,
headers = 1,
body = 1
}
check_request(request, expect, ignore)
io.write("testing post method: ")
2001-09-25 23:34:43 +02:00
request = {
url = "http://" .. HOST .. cgiprefix .. "/cat",
2001-09-25 23:34:43 +02:00
method = "POST",
body = index
}
expect = {
body = index,
code = 200
}
ignore = {
status = 1,
headers = 1
}
check_request(request, expect, ignore)
io.write("testing wrong scheme: ")
2001-09-26 22:29:18 +02:00
request = {
url = "wrong://" .. HOST .. cgiprefix .. "/cat",
2001-09-26 22:29:18 +02:00
method = "GET"
}
expect = {
error = "unknown scheme 'wrong'"
}
ignore = {
}
check_request(request, expect, ignore)
2001-09-25 23:34:43 +02:00
local body
io.write("testing simple get function: ")
body = http.get("http://" .. HOST .. prefix .. "/index.html")
2001-09-25 23:34:43 +02:00
check(body == index)
io.write("testing simple get function with table args: ")
body = http.get {
url = "http://really:wrong@" .. HOST .. prefix .. "/auth/index.html",
2001-09-25 23:34:43 +02:00
user = "luasocket",
password = "password"
}
check(body == index)
io.write("testing simple post function: ")
body = http.post("http://" .. HOST .. cgiprefix .. "/cat", index)
2001-09-25 23:34:43 +02:00
check(body == index)
io.write("testing simple post function with table args: ")
body = http.post {
url = "http://" .. HOST .. cgiprefix .. "/cat",
2001-09-25 23:34:43 +02:00
body = index
}
check(body == index)
io.write("testing HEAD method: ")
response = http.request {
2001-09-25 23:34:43 +02:00
method = "HEAD",
url = "http://www.tecgraf.puc-rio.br/~diego/"
}
check(response and response.headers)
2001-01-25 22:59:39 +01:00
print("passed all tests")
2001-06-09 00:40:09 +02:00
print(string.format("done in %.2fs", socket._time() - t))