summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/luatexdir/luasocket/test/tftptest.lua
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/luatexdir/luasocket/test/tftptest.lua')
-rw-r--r--Build/source/texk/web2c/luatexdir/luasocket/test/tftptest.lua20
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")