mirror of
https://github.com/lunarmodules/luasocket.git
synced 2024-12-26 04:28:20 +01:00
updated for luasocket 1.4
This commit is contained in:
Diego Nehab
parent
b319e6a1e8
commit
d36460a249
137
test/ftptest.lua
137
test/ftptest.lua
@ -1,34 +1,121 @@
|
||||
function mysetglobal (varname, oldvalue, newvalue)
|
||||
print("changing " .. varname)
|
||||
%rawset(%globals(), varname, newvalue)
|
||||
end
|
||||
function mygetglobal (varname, newvalue)
|
||||
print("checking " .. varname)
|
||||
return %rawget(%globals(), varname)
|
||||
end
|
||||
settagmethod(tag(nil), "setglobal", mysetglobal)
|
||||
settagmethod(tag(nil), "getglobal", mygetglobal)
|
||||
|
||||
assert(dofile("../lua/ftp.lua"))
|
||||
assert(dofile("../lua/buffer.lua"))
|
||||
assert(dofile("auxiliar.lua"))
|
||||
assert(dofile("../lua/url.lua"))
|
||||
assert(dofile("../lua/concat.lua"))
|
||||
assert(dofile("../lua/code.lua"))
|
||||
|
||||
pdir = "/home/i/diego/public/html/luasocket/test/"
|
||||
ldir = "/home/luasocket/"
|
||||
adir = "/home/ftp/test/"
|
||||
local similar = function(s1, s2)
|
||||
return strlower(gsub(s1, "%s", "")) == strlower(gsub(s2, "%s", ""))
|
||||
end
|
||||
|
||||
-- needs an accound luasocket:password
|
||||
-- and a copy of /home/i/diego/public/html/luasocket/test in ~ftp/test
|
||||
local capture = function(cmd)
|
||||
readfrom("| " .. cmd)
|
||||
local s = read("*a")
|
||||
readfrom()
|
||||
return s
|
||||
end
|
||||
|
||||
print("testing authenticated upload")
|
||||
bf = readfile(pdir .. "index.html")
|
||||
e = ftp_put("ftp://luasocket:password@localhost/index.html", bf, "b")
|
||||
assert(not e, e)
|
||||
assert(compare(ldir .. "index.html", bf), "files differ")
|
||||
remove(ldir .. "index.html")
|
||||
local readfile = function(name)
|
||||
local f = readfrom(name)
|
||||
if not f then return nil end
|
||||
local s = read("*a")
|
||||
readfrom()
|
||||
return s
|
||||
end
|
||||
|
||||
print("testing authenticated download")
|
||||
f, e = ftp_get("ftp://luasocket:password@localhost/test/index.html", "b")
|
||||
assert(f, e)
|
||||
assert(compare(pdir .. "index.html", f), "files differ")
|
||||
local check = function(v, e, o)
|
||||
e = e or "failed!"
|
||||
o = o or "ok"
|
||||
if v then print(o)
|
||||
else print(e) exit() end
|
||||
end
|
||||
|
||||
print("testing anonymous download")
|
||||
f, e = ftp_get("ftp://localhost/test/index.html", "b")
|
||||
assert(f, e)
|
||||
assert(compare(adir .. "index.html", f), "files differ")
|
||||
-- needs an account luasocket:password
|
||||
-- and some directories and files in ~ftp
|
||||
|
||||
print("testing directory listing")
|
||||
f, e = ftp_get("ftp://localhost/test/")
|
||||
assert(f, e)
|
||||
assert(f == "index.html\r\n", "files differ")
|
||||
local index, err, saved, back, expected
|
||||
|
||||
local t = _time()
|
||||
|
||||
index = readfile("index.html")
|
||||
|
||||
write("testing file upload: ")
|
||||
remove("/home/ftp/dir1/index.up.html")
|
||||
err = FTP.put("ftp://localhost/dir1/index.up.html;type=i", index)
|
||||
saved = readfile("/home/ftp/dir1/index.up.html")
|
||||
check(not err and saved == index, err)
|
||||
|
||||
write("testing file download: ")
|
||||
back, err = FTP.get("ftp://localhost/dir1/index.up.html;type=i")
|
||||
check(not err and back == index, err)
|
||||
|
||||
write("testing no directory changes: ")
|
||||
back, err = FTP.get("ftp://localhost/index.html;type=i")
|
||||
check(not err and back == index, err)
|
||||
|
||||
write("testing multiple directory changes: ")
|
||||
back, err = FTP.get("ftp://localhost/dir1/dir2/dir3/dir4/dir5/dir6/index.html;type=i")
|
||||
check(not err and back == index, err)
|
||||
|
||||
write("testing authenticated upload: ")
|
||||
remove("/home/luasocket/index.up.html")
|
||||
err = FTP.put("ftp://luasocket:password@localhost/index.up.html;type=i", index)
|
||||
saved = readfile("/home/luasocket/index.up.html")
|
||||
check(not err and saved == index, err)
|
||||
|
||||
write("testing authenticated download: ")
|
||||
back, err = FTP.get("ftp://luasocket:password@localhost/index.up.html;type=i")
|
||||
check(not err and back == index, err)
|
||||
|
||||
write("testing weird-character translation: ")
|
||||
back, err = FTP.get("ftp://luasocket:password@localhost/%2fhome/ftp/dir1/index.html;type=i")
|
||||
check(not err and back == index, err)
|
||||
|
||||
write("testing parameter overriding: ")
|
||||
back, err = FTP.get {
|
||||
url = "//stupid:mistake@localhost/dir1/index.html",
|
||||
user = "luasocket",
|
||||
password = "password",
|
||||
type = "i"
|
||||
}
|
||||
check(not err and back == index, err)
|
||||
|
||||
write("testing invalid url: ")
|
||||
back, err = FTP.get("localhost/dir1/index.html;type=i")
|
||||
local c, e = connect("", 21)
|
||||
check(not back and err == e, err)
|
||||
|
||||
write("testing directory listing: ")
|
||||
expected = capture("ls -F /home/ftp/dir1 | grep -v /")
|
||||
back, err = FTP.get("ftp://localhost/dir1;type=d")
|
||||
check(similar(back, expected))
|
||||
|
||||
write("testing home directory listing: ")
|
||||
expected = capture("ls -F /home/ftp | grep -v /")
|
||||
back, err = FTP.get("ftp://localhost/")
|
||||
check(back and similar(back, expected), nil, err)
|
||||
|
||||
write("testing upload denial: ")
|
||||
err = FTP.put("ftp://localhost/index.up.html;type=a", index)
|
||||
check(err, err)
|
||||
|
||||
write("testing authentication failure: ")
|
||||
err = FTP.put("ftp://luasocket:wrong@localhost/index.html;type=a", index)
|
||||
check(err, err)
|
||||
|
||||
write("testing wrong file: ")
|
||||
back, err = FTP.get("ftp://localhost/index.wrong.html;type=a")
|
||||
check(err, err)
|
||||
|
||||
print("passed all tests")
|
||||
print(format("done in %.2fs", _time() - t))
|
||||
|
||||
@ -1,89 +1,313 @@
|
||||
-- load http
|
||||
assert(dofile("../lua/http.lua"))
|
||||
assert(dofile("../lua/base64.lua"))
|
||||
assert(dofile("../lua/buffer.lua"))
|
||||
assert(dofile("auxiliar.lua"))
|
||||
|
||||
t = _time()
|
||||
|
||||
-- needs Alias from /home/i/diego/public/html/luasocket/test to
|
||||
-- /luasocket-test
|
||||
-- needs ScriptAlias from /home/i/diego/public/html/luasocket/test/cgi-bin
|
||||
-- to /luasocket-cgi-bin/
|
||||
-- needs ScriptAlias from /home/i/diego/public/html/luasocket/test/cgi
|
||||
-- to /luasocket-test/cgi
|
||||
|
||||
function join(s, e)
|
||||
return tostring(s) .. ":" .. tostring(e)
|
||||
function mysetglobal (varname, oldvalue, newvalue)
|
||||
print("changing " .. varname)
|
||||
%rawset(%globals(), varname, newvalue)
|
||||
end
|
||||
function mygetglobal (varname, newvalue)
|
||||
print("checking " .. varname)
|
||||
return %rawget(%globals(), varname)
|
||||
end
|
||||
settagmethod(tag(nil), "setglobal", mysetglobal)
|
||||
settagmethod(tag(nil), "getglobal", mygetglobal)
|
||||
|
||||
local similar = function(s1, s2)
|
||||
return strlower(gsub(s1, "%s", "")) == strlower(gsub(s2, "%s", ""))
|
||||
end
|
||||
|
||||
function status(s)
|
||||
local code
|
||||
_,_, code = strfind(s, "(%d%d%d)")
|
||||
return tonumber(code)
|
||||
local fail = function(s)
|
||||
s = s or "failed!"
|
||||
print(s)
|
||||
exit()
|
||||
end
|
||||
|
||||
pdir = pdir or "/home/i/diego/public/html/luasocket/test/"
|
||||
local readfile = function(name)
|
||||
local f = readfrom(name)
|
||||
if not f then return nil end
|
||||
local s = read("*a")
|
||||
readfrom()
|
||||
return s
|
||||
end
|
||||
|
||||
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)
|
||||
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 host, request, response, ignore, expect, index, prefix, cgiprefix
|
||||
|
||||
-- load http
|
||||
assert(dofile("../lua/http.lua"))
|
||||
assert(dofile("../lua/code.lua"))
|
||||
assert(dofile("../lua/concat.lua"))
|
||||
assert(dofile("../lua/url.lua"))
|
||||
|
||||
local t = _time()
|
||||
|
||||
host = host or "localhost"
|
||||
prefix = prefix or "/luasocket-test"
|
||||
cgiprefix = cgiprefix or "/luasocket-test-cgi"
|
||||
index = readfile("index.html")
|
||||
|
||||
print("testing document retrieval")
|
||||
url = "http://" .. host .. "/luasocket-test/index.html"
|
||||
f, m, s, e = http_get(url)
|
||||
assert(f and m and s and not e, join(s, e))
|
||||
assert(compare(pdir .. "index.html", f), "documents differ")
|
||||
write("testing request uri correctness: ")
|
||||
local forth = cgiprefix .. "/request-uri?" .. "this+is+the+query+string"
|
||||
local back = HTTP.get("http://" .. host .. forth)
|
||||
if similar(back, forth) then print("ok")
|
||||
else fail("failed!") end
|
||||
|
||||
print("testing HTTP redirection")
|
||||
url = "http://" .. host .. "/luasocket-test"
|
||||
f, m, s, e = http_get(url)
|
||||
assert(f and m and s and not e, join(s, e))
|
||||
assert(compare(pdir .. "index.html", f), "documents differ")
|
||||
write("testing query string correctness: ")
|
||||
forth = "this+is+the+query+string"
|
||||
back = HTTP.get("http://" .. host .. cgiprefix .. "/query-string?" .. forth)
|
||||
if similar(back, forth) then print("ok")
|
||||
else fail("failed!") end
|
||||
|
||||
print("testing cgi output retrieval (probably chunked...)")
|
||||
url = "http://" .. host .. "/luasocket-cgi-bin/cat-index-html"
|
||||
f, m, s, e = http_get(url)
|
||||
assert(f and m and s and not e, join(s, e))
|
||||
assert(compare(pdir .. "index.html", f), "documents differ")
|
||||
write("testing document retrieval: ")
|
||||
request = {
|
||||
url = "http://" .. host .. prefix .. "/index.html"
|
||||
}
|
||||
expect = {
|
||||
body = index,
|
||||
code = 200
|
||||
}
|
||||
ignore = {
|
||||
status = 1,
|
||||
headers = 1
|
||||
}
|
||||
check_request(request, expect, ignore)
|
||||
|
||||
print("testing post method")
|
||||
url = "http://" .. host .. "/luasocket-cgi-bin/cat"
|
||||
rf = strrep("!@#$!@#%", 80000)
|
||||
f, m, s, e = http_post(url, rf)
|
||||
assert(f and m and s and not e)
|
||||
assert(rf == f, "files differ")
|
||||
write("testing HTTP redirection: ")
|
||||
request = {
|
||||
url = "http://" .. host .. prefix
|
||||
}
|
||||
expect = {
|
||||
body = index,
|
||||
code = 200
|
||||
}
|
||||
ignore = {
|
||||
status = 1,
|
||||
headers = 1
|
||||
}
|
||||
check_request(request, expect, ignore)
|
||||
|
||||
print("testing automatic auth failure")
|
||||
url = "http://really:wrong@" .. host .. "/luasocket-test/auth/index.html"
|
||||
f, m, s, e = http_get(url)
|
||||
assert(f and m and s and not e and status(s) == 401)
|
||||
|
||||
write("testing automatic auth failure: ")
|
||||
request = {
|
||||
url = "http://really:wrong@" .. host .. prefix .. "/auth/index.html"
|
||||
}
|
||||
expect = {
|
||||
code = 401
|
||||
}
|
||||
ignore = {
|
||||
body = 1,
|
||||
status = 1,
|
||||
headers = 1
|
||||
}
|
||||
check_request(request, expect, ignore)
|
||||
|
||||
write("testing HTTP redirection failure: ")
|
||||
request = {
|
||||
url = "http://" .. host .. prefix,
|
||||
stay = 1
|
||||
}
|
||||
expect = {
|
||||
code = 301
|
||||
}
|
||||
ignore = {
|
||||
body = 1,
|
||||
status = 1,
|
||||
headers = 1
|
||||
}
|
||||
check_request(request, expect, ignore)
|
||||
|
||||
write("testing host not found: ")
|
||||
url = "http://wronghost/luasocket-test/index.html"
|
||||
f, m, s, e = http_get(url)
|
||||
assert(not f and not m and not s and e)
|
||||
print(e)
|
||||
request = {
|
||||
url = "http://wronghost/does/not/exist"
|
||||
}
|
||||
local c, e = connect("wronghost", 80)
|
||||
expect = {
|
||||
error = e
|
||||
}
|
||||
ignore = {}
|
||||
check_request(request, expect, ignore)
|
||||
|
||||
write("testing auth failure: ")
|
||||
url = "http://" .. host .. "/luasocket-test/auth/index.html"
|
||||
f, m, s, e = http_get(url)
|
||||
assert(f and m and s and not e and status(s) == 401)
|
||||
print(s)
|
||||
write("testing invalid url: ")
|
||||
request = {
|
||||
url = host .. prefix
|
||||
}
|
||||
local c, e = connect("", 80)
|
||||
expect = {
|
||||
error = e
|
||||
}
|
||||
ignore = {}
|
||||
check_request(request, expect, ignore)
|
||||
|
||||
write("testing document not found: ")
|
||||
url = "http://" .. host .. "/luasocket-test/wrongdocument.html"
|
||||
f, m, s, e = http_get(url)
|
||||
assert(f and m and s and not e and status(s) == 404)
|
||||
print(s)
|
||||
request = {
|
||||
url = "http://" .. host .. "/wrongdocument.html"
|
||||
}
|
||||
expect = {
|
||||
code = 404
|
||||
}
|
||||
ignore = {
|
||||
body = 1,
|
||||
status = 1,
|
||||
headers = 1
|
||||
}
|
||||
check_request(request, expect, ignore)
|
||||
|
||||
print("testing manual auth")
|
||||
url = "http://" .. host .. "/luasocket-test/auth/index.html"
|
||||
h = {authorization = "Basic " .. base64("luasocket:password")}
|
||||
f, m, s, e = http_get(url, h)
|
||||
assert(f and m and s and not e, join(s, e))
|
||||
assert(compare(pdir .. "auth/index.html", f), "documents differ")
|
||||
write("testing auth failure: ")
|
||||
request = {
|
||||
url = "http://" .. host .. prefix .. "/auth/index.html"
|
||||
}
|
||||
expect = {
|
||||
code = 401
|
||||
}
|
||||
ignore = {
|
||||
body = 1,
|
||||
status = 1,
|
||||
headers = 1
|
||||
}
|
||||
check_request(request, expect, ignore)
|
||||
|
||||
print("testing automatic auth")
|
||||
url = "http://luasocket:password@" .. host .. "/luasocket-test/auth/index.html"
|
||||
f, m, s, e = http_get(url)
|
||||
assert(f and m and s and not e, join(s, e))
|
||||
assert(compare(pdir .. "auth/index.html", f), "documents differ")
|
||||
write("testing manual basic auth: ")
|
||||
request = {
|
||||
url = "http://" .. host .. prefix .. "/auth/index.html",
|
||||
headers = {
|
||||
authorization = "Basic " .. Code.base64("luasocket:password")
|
||||
}
|
||||
}
|
||||
expect = {
|
||||
code = 200,
|
||||
body = index
|
||||
}
|
||||
ignore = {
|
||||
status = 1,
|
||||
headers = 1
|
||||
}
|
||||
check_request(request, expect, ignore)
|
||||
|
||||
write("testing automatic basic auth: ")
|
||||
request = {
|
||||
url = "http://luasocket:password@" .. host .. prefix .. "/auth/index.html"
|
||||
}
|
||||
expect = {
|
||||
code = 200,
|
||||
body = index
|
||||
}
|
||||
ignore = {
|
||||
status = 1,
|
||||
headers = 1
|
||||
}
|
||||
check_request(request, expect, ignore)
|
||||
|
||||
write("testing auth info overriding: ")
|
||||
request = {
|
||||
url = "http://really:wrong@" .. host .. prefix .. "/auth/index.html",
|
||||
user = "luasocket",
|
||||
password = "password"
|
||||
}
|
||||
expect = {
|
||||
code = 200,
|
||||
body = index
|
||||
}
|
||||
ignore = {
|
||||
status = 1,
|
||||
headers = 1
|
||||
}
|
||||
check_request(request, expect, ignore)
|
||||
|
||||
write("testing cgi output retrieval (probably chunked...): ")
|
||||
request = {
|
||||
url = "http://" .. host .. cgiprefix .. "/cat-index-html"
|
||||
}
|
||||
expect = {
|
||||
body = index,
|
||||
code = 200
|
||||
}
|
||||
ignore = {
|
||||
status = 1,
|
||||
headers = 1
|
||||
}
|
||||
check_request(request, expect, ignore)
|
||||
|
||||
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)
|
||||
|
||||
write("testing post method: ")
|
||||
request = {
|
||||
url = "http://" .. host .. cgiprefix .. "/cat",
|
||||
method = "POST",
|
||||
body = index
|
||||
}
|
||||
expect = {
|
||||
body = index,
|
||||
code = 200
|
||||
}
|
||||
ignore = {
|
||||
status = 1,
|
||||
headers = 1
|
||||
}
|
||||
check_request(request, expect, ignore)
|
||||
|
||||
local body
|
||||
write("testing simple get function: ")
|
||||
body = HTTP.get("http://" .. host .. prefix .. "/index.html")
|
||||
check(body == index)
|
||||
|
||||
write("testing simple get function with table args: ")
|
||||
body = HTTP.get {
|
||||
url = "http://really:wrong@" .. host .. prefix .. "/auth/index.html",
|
||||
user = "luasocket",
|
||||
password = "password"
|
||||
}
|
||||
check(body == index)
|
||||
|
||||
write("testing simple post function: ")
|
||||
body = HTTP.post("http://" .. host .. cgiprefix .. "/cat", index)
|
||||
check(body == index)
|
||||
|
||||
write("testing simple post function with table args: ")
|
||||
body = HTTP.post {
|
||||
url = "http://" .. host .. cgiprefix .. "/cat",
|
||||
body = index
|
||||
}
|
||||
check(body == index)
|
||||
|
||||
write("testing HEAD method: ")
|
||||
response = HTTP.request {
|
||||
method = "HEAD",
|
||||
url = "http://www.tecgraf.puc-rio.br/~diego/"
|
||||
}
|
||||
check(response and response.headers)
|
||||
|
||||
print("passed all tests")
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user