luasocket/test/tftptest.lua
Diego Nehab d46f7a09a7 Fixed smtp.lua loading.
Adjusted tftp module.
Added some comments.
2004-06-16 01:02:07 +00:00

21 lines
514 B
Lua

-- load tftpclnt.lua
local tftp = require("tftp")
-- needs tftp server running on localhost, with root pointing to
-- a directory with index.html in it
function readfile(file)
local f = io.open(file, "r")
if not f then return nil end
local a = f:read("*a")
f:close()
return a
end
host = host or "localhost"
retrieved, err = tftp.get("tftp://" .. host .."/index.html")
assert(not err, err)
original = readfile("test/index.html")
assert(original == retrieved, "files differ!")
print("passed")