dany/luasocket
1
0
Fork 0
mirror of https://github.com/lunarmodules/luasocket.git synced 2024-11-16 02:08:21 +01:00
Code Issues Packages Projects Releases Wiki Activity

Using noglobals.lua

Browse Source 
Não carrega mais os modulos.
Ajeitados alguns nomes.
This commit is contained in:
Diego Nehab 2002-07-08 21:54:28 +00:00
parent 65dd618553
commit daff3db32e
1 changed files with 30 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
test/httptest.lua
View File

@ -1,21 +1,14 @@
-- needs Alias from /home/i/diego/public/html/luasocket/test to -- needs Alias from /home/c/diego/tec/luasocket/test to
-- /luasocket-test -- /luasocket-test
-- needs ScriptAlias from /home/i/diego/public/html/luasocket/test/cgi -- needs ScriptAlias from /home/c/diego/tec/luasocket/test/cgi
-- to /luasocket-test/cgi -- to /luasocket-test-cgi
-- needs AllowOverride AuthConfig on /home/c/diego/tec/luasocket/test/auth
function mysetglobal (varname, oldvalue, newvalue) dofile("noglobals.lua")
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) local similar = function(s1, s2)
return strlower(gsub(s1, "%s", "")) == strlower(gsub(s2, "%s", "")) return strlower(gsub(s1 or "", "%s", "")) ==
strlower(gsub(s2 or "", "%s", ""))
end end
local fail = function(s) local fail = function(s)
@ -52,36 +45,32 @@ local check_request = function(request, expect, ignore)
print("ok") print("ok")
end end
local host, request, response, ignore, expect, index, prefix, cgiprefix dofile("../src/modules/http.lua")
-- load http local request, response, ignore, expect, index, prefix, cgiprefix
assert(dofile("../lua/http.lua"))
assert(dofile("../lua/code.lua"))
assert(dofile("../lua/concat.lua"))
assert(dofile("../lua/url.lua"))
local t = _time() local t = _time()
host = host or "localhost" HOST = HOST or "localhost"
prefix = prefix or "/luasocket-test" prefix = prefix or "/luasocket-test"
cgiprefix = cgiprefix or "/luasocket-test-cgi" cgiprefix = cgiprefix or "/luasocket-test-cgi"
index = readfile("index.html") index = readfile("index.html")
write("testing request uri correctness: ") write("testing request uri correctness: ")
local forth = cgiprefix .. "/request-uri?" .. "this+is+the+query+string" local forth = cgiprefix .. "/request-uri?" .. "this+is+the+query+string"
local back = HTTP.get("http://" .. host .. forth) local back = HTTP.get("http://" .. HOST .. forth)
if similar(back, forth) then print("ok") if similar(back, forth) then print("ok")
else fail("failed!") end else fail("failed!") end
write("testing query string correctness: ") write("testing query string correctness: ")
forth = "this+is+the+query+string" forth = "this+is+the+query+string"
back = HTTP.get("http://" .. host .. cgiprefix .. "/query-string?" .. forth) back = HTTP.get("http://" .. HOST .. cgiprefix .. "/query-string?" .. forth)
if similar(back, forth) then print("ok") if similar(back, forth) then print("ok")
else fail("failed!") end else fail("failed!") end
write("testing document retrieval: ") write("testing document retrieval: ")
request = { request = {
url = "http://" .. host .. prefix .. "/index.html" url = "http://" .. HOST .. prefix .. "/index.html"
} }
expect = { expect = {
body = index, body = index,
@ -95,7 +84,7 @@ check_request(request, expect, ignore)
write("testing HTTP redirection: ") write("testing HTTP redirection: ")
request = { request = {
url = "http://" .. host .. prefix url = "http://" .. HOST .. prefix
} }
expect = { expect = {
body = index, body = index,
@ -110,7 +99,7 @@ check_request(request, expect, ignore)
write("testing automatic auth failure: ") write("testing automatic auth failure: ")
request = { request = {
url = "http://really:wrong@" .. host .. prefix .. "/auth/index.html" url = "http://really:wrong@" .. HOST .. prefix .. "/auth/index.html"
} }
expect = { expect = {
code = 401 code = 401
@ -124,7 +113,7 @@ check_request(request, expect, ignore)
write("testing HTTP redirection failure: ") write("testing HTTP redirection failure: ")
request = { request = {
url = "http://" .. host .. prefix, url = "http://" .. HOST .. prefix,
stay = 1 stay = 1
} }
expect = { expect = {
@ -150,7 +139,7 @@ check_request(request, expect, ignore)
write("testing invalid url: ") write("testing invalid url: ")
request = { request = {
url = host .. prefix url = HOST .. prefix
} }
local c, e = connect("", 80) local c, e = connect("", 80)
expect = { expect = {
@ -161,7 +150,7 @@ check_request(request, expect, ignore)
write("testing document not found: ") write("testing document not found: ")
request = { request = {
url = "http://" .. host .. "/wrongdocument.html" url = "http://" .. HOST .. "/wrongdocument.html"
} }
expect = { expect = {
code = 404 code = 404
@ -175,7 +164,7 @@ check_request(request, expect, ignore)
write("testing auth failure: ") write("testing auth failure: ")
request = { request = {
url = "http://" .. host .. prefix .. "/auth/index.html" url = "http://" .. HOST .. prefix .. "/auth/index.html"
} }
expect = { expect = {
code = 401 code = 401
@ -189,7 +178,7 @@ check_request(request, expect, ignore)
write("testing manual basic auth: ") write("testing manual basic auth: ")
request = { request = {
url = "http://" .. host .. prefix .. "/auth/index.html", url = "http://" .. HOST .. prefix .. "/auth/index.html",
headers = { headers = {
authorization = "Basic " .. Code.base64("luasocket:password") authorization = "Basic " .. Code.base64("luasocket:password")
} }
@ -206,7 +195,7 @@ check_request(request, expect, ignore)
write("testing automatic basic auth: ") write("testing automatic basic auth: ")
request = { request = {
url = "http://luasocket:password@" .. host .. prefix .. "/auth/index.html" url = "http://luasocket:password@" .. HOST .. prefix .. "/auth/index.html"
} }
expect = { expect = {
code = 200, code = 200,
@ -220,7 +209,7 @@ check_request(request, expect, ignore)
write("testing auth info overriding: ") write("testing auth info overriding: ")
request = { request = {
url = "http://really:wrong@" .. host .. prefix .. "/auth/index.html", url = "http://really:wrong@" .. HOST .. prefix .. "/auth/index.html",
user = "luasocket", user = "luasocket",
password = "password" password = "password"
} }
@ -236,7 +225,7 @@ check_request(request, expect, ignore)
write("testing cgi output retrieval (probably chunked...): ") write("testing cgi output retrieval (probably chunked...): ")
request = { request = {
url = "http://" .. host .. cgiprefix .. "/cat-index-html" url = "http://" .. HOST .. cgiprefix .. "/cat-index-html"
} }
expect = { expect = {
body = index, body = index,
@ -250,7 +239,7 @@ check_request(request, expect, ignore)
write("testing redirect loop: ") write("testing redirect loop: ")
request = { request = {
url = "http://" .. host .. cgiprefix .. "/redirect-loop" url = "http://" .. HOST .. cgiprefix .. "/redirect-loop"
} }
expect = { expect = {
code = 302 code = 302
@ -264,7 +253,7 @@ check_request(request, expect, ignore)
write("testing post method: ") write("testing post method: ")
request = { request = {
url = "http://" .. host .. cgiprefix .. "/cat", url = "http://" .. HOST .. cgiprefix .. "/cat",
method = "POST", method = "POST",
body = index body = index
} }
@ -280,7 +269,7 @@ check_request(request, expect, ignore)
write("testing wrong scheme: ") write("testing wrong scheme: ")
request = { request = {
url = "wrong://" .. host .. cgiprefix .. "/cat", url = "wrong://" .. HOST .. cgiprefix .. "/cat",
method = "GET" method = "GET"
} }
expect = { expect = {
@ -292,24 +281,24 @@ check_request(request, expect, ignore)
local body local body
write("testing simple get function: ") write("testing simple get function: ")
body = HTTP.get("http://" .. host .. prefix .. "/index.html") body = HTTP.get("http://" .. HOST .. prefix .. "/index.html")
check(body == index) check(body == index)
write("testing simple get function with table args: ") write("testing simple get function with table args: ")
body = HTTP.get { body = HTTP.get {
url = "http://really:wrong@" .. host .. prefix .. "/auth/index.html", url = "http://really:wrong@" .. HOST .. prefix .. "/auth/index.html",
user = "luasocket", user = "luasocket",
password = "password" password = "password"
} }
check(body == index) check(body == index)
write("testing simple post function: ") write("testing simple post function: ")
body = HTTP.post("http://" .. host .. cgiprefix .. "/cat", index) body = HTTP.post("http://" .. HOST .. cgiprefix .. "/cat", index)
check(body == index) check(body == index)
write("testing simple post function with table args: ") write("testing simple post function with table args: ")
body = HTTP.post { body = HTTP.post {
url = "http://" .. host .. cgiprefix .. "/cat", url = "http://" .. HOST .. cgiprefix .. "/cat",
body = index body = index
} }
check(body == index) check(body == index)