1 files changed, 20 insertions, 0 deletions
diff --git a/ThirdParty/luasocket/test/tftptest.lua b/ThirdParty/luasocket/test/tftptest.lua
new file mode 100644
index 0000000..35078e8
--- /dev/null
+++ b/ThirdParty/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")