+luasocket src

1 files changed, 37 insertions, 0 deletions

diff --git a/ThirdParty/luasocket/test/testsupport.lua b/ThirdParty/luasocket/test/testsupport.lua
new file mode 100644
index 0000000..b986088
--- /dev/null
+++ b/ThirdParty/luasocket/test/testsupport.lua
@@ -0,0 +1,37 @@
+function readfile(name)
+    local f = io.open(name, "rb")
+    if not f then return nil end
+    local s = f:read("*a")
+    f:close()
+    return s
+end
+
+function similar(s1, s2)
+    return string.lower(string.gsub(s1 or "", "%s", "")) == 
+        string.lower(string.gsub(s2 or "", "%s", ""))
+end
+
+function fail(msg)
+    msg = msg or "failed"
+    error(msg, 2)
+end
+
+function compare(input, output)
+    local original = readfile(input)
+    local recovered = readfile(output)
+    if original ~= recovered then fail("comparison failed")
+    else print("ok") end
+end
+
+local G = _G
+local set = rawset
+local warn = print
+
+local setglobal = function(table, key, value)
+    warn("changed " .. key)
+    set(table, key, value)
+end
+
+setmetatable(G, {
+    __newindex = setglobal
+})