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

updated due to test location changes

Browse Source
This commit is contained in:
Diego Nehab 2001-09-25 21:32:52 +00:00
parent 9f677cdbf4
commit b319e6a1e8
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
test/tftptest.lua
View File

@ -1,16 +1,25 @@
-- load tftpclng.lua
assert(dofile("../examples/tftpclnt.lua"))
assert(dofile("auxiliar.lua"))
-- needs tftp server running on localhost, with root pointing to
-- /home/i/diego/public/html/luasocket/test
host = host or "localhost"
function readfile(file)
local f = openfile("file", "rb")
local a
if f then
a = read(f, "*a")
closefile(f)
end
return a
end
host = host or "goya"
print("downloading")
err = tftp_get(host, 69, "test/index.html")
err = tftp_get(host, 69, "index.html", "index.got")
assert(not err, err)
original = readfile("/home/i/diego/public/html/luasocket/test/index.html")
retrieved = readfile("index.html")
remove("index.html")
original = readfile("index.index")
retrieved = readfile("index.got")
remove("index.got")
assert(original == retrieved, "files differ!")
print("passed")