luasocket/test/testsupport.lua

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
})