dany/luasocket
1
0
Fork 0
mirror of https://github.com/lunarmodules/luasocket.git synced 2024-12-26 20:38:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

Using noglobals.lua

Browse Source 
Ajeitados alguns paths.
Não carrega mais os modulos.
This commit is contained in:
Diego Nehab 2002-07-08 21:53:33 +00:00
parent 5b2a124305
commit 65dd618553
1 changed files with 6 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
test/ftptest.lua
View File

@ -1,18 +1,4 @@
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)
assert(dofile("../lua/ftp.lua"))
assert(dofile("../lua/url.lua"))
assert(dofile("../lua/concat.lua"))
assert(dofile("../lua/code.lua"))
local similar = function(s1, s2) local similar = function(s1, s2)
return strlower(gsub(s1, "%s", "")) == strlower(gsub(s2, "%s", "")) return strlower(gsub(s1, "%s", "")) == strlower(gsub(s2, "%s", ""))
@ -50,9 +36,9 @@ local t = _time()
index = readfile("index.html") index = readfile("index.html")
write("testing file upload: ") write("testing file upload: ")
remove("/home/ftp/dir1/index.up.html") remove("/var/ftp/dir1/index.up.html")
err = FTP.put("ftp://localhost/dir1/index.up.html;type=i", index) err = FTP.put("ftp://localhost/dir1/index.up.html;type=i", index)
saved = readfile("/home/ftp/dir1/index.up.html") saved = readfile("/var/ftp/dir1/index.up.html")
check(not err and saved == index, err) check(not err and saved == index, err)
write("testing file download: ") write("testing file download: ")
@ -78,7 +64,7 @@ back, err = FTP.get("ftp://luasocket:password@localhost/index.up.html;type=i")
check(not err and back == index, err) check(not err and back == index, err)
write("testing weird-character translation: ") write("testing weird-character translation: ")
back, err = FTP.get("ftp://luasocket:password@localhost/%2fhome/ftp/dir1/index.html;type=i") back, err = FTP.get("ftp://luasocket:password@localhost/%2fvar/ftp/dir1/index.html;type=i")
check(not err and back == index, err) check(not err and back == index, err)
write("testing parameter overriding: ") write("testing parameter overriding: ")
@ -100,12 +86,12 @@ local c, e = connect("", 21)
check(not back and err == e, err) check(not back and err == e, err)
write("testing directory listing: ") write("testing directory listing: ")
expected = capture("ls -F /home/ftp/dir1 | grep -v /") expected = capture("ls -F /var/ftp/dir1 | grep -v /")
back, err = FTP.get("ftp://localhost/dir1;type=d") back, err = FTP.get("ftp://localhost/dir1;type=d")
check(similar(back, expected)) check(similar(back, expected))
write("testing home directory listing: ") write("testing home directory listing: ")
expected = capture("ls -F /home/ftp | grep -v /") expected = capture("ls -F /var/ftp | grep -v /")
back, err = FTP.get("ftp://localhost/") back, err = FTP.get("ftp://localhost/")
check(back and similar(back, expected), nil, err) check(back and similar(back, expected), nil, err)