diff options
Diffstat (limited to 'Build/source/texk/web2c/luatexdir/luasocket/test/tftptest.lua')
-rw-r--r-- | Build/source/texk/web2c/luatexdir/luasocket/test/tftptest.lua | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/luatexdir/luasocket/test/tftptest.lua b/Build/source/texk/web2c/luatexdir/luasocket/test/tftptest.lua new file mode 100644 index 00000000000..35078e83654 --- /dev/null +++ b/Build/source/texk/web2c/luatexdir/luasocket/test/tftptest.lua @@ -0,0 +1,20 @@ +-- load tftpclnt.lua +local tftp = require("socket.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 "diego.student.princeton.edu" +retrieved, err = tftp.get("tftp://" .. host .."/index.html") +assert(not err, err) +original = readfile("test/index.html") +assert(original == retrieved, "files differ!") +print("passed") |