mirror of
https://github.com/lunarmodules/luasocket.git
synced 2024-11-14 09:18:21 +01:00
290 lines
7.7 KiB
Lua
290 lines
7.7 KiB
Lua
local socket = require("socket")
|
|
local ltn12 = require("ltn12")
|
|
local mime = require("mime")
|
|
|
|
dofile("testsupport.lua")
|
|
|
|
local qptest = "qptest.bin"
|
|
local eqptest = "qptest.bin2"
|
|
local dqptest = "qptest.bin3"
|
|
|
|
local b64test = "luasocket.dll"
|
|
local eb64test = "b64test.bin"
|
|
local db64test = "b64test.bin2"
|
|
|
|
-- make sure test file exists
|
|
local f = assert(io.open(b64test, "r"))
|
|
f:close()
|
|
|
|
-- from Machado de Assis, "A Mão e a Rosa"
|
|
local mao = [[
|
|
Cursavam estes dois moços a academia de S. Paulo, estando
|
|
Luís Alves no quarto ano e Estêvão no terceiro.
|
|
Conheceram-se na academia, e ficaram amigos íntimos, tanto
|
|
quanto podiam sê-lo dois espíritos diferentes, ou talvez por
|
|
isso mesmo que o eram. Estêvão, dotado de extrema
|
|
sensibilidade, e não menor fraqueza de ânimo, afetuoso e
|
|
bom, não daquela bondade varonil, que é apanágio de uma alma
|
|
forte, mas dessa outra bondade mole e de cera, que vai à
|
|
mercê de todas as circunstâncias, tinha, além de tudo isso,
|
|
o infortúnio de trazer ainda sobre o nariz os óculos
|
|
cor-de-rosa de suas virginais ilusões. Luís Alves via bem
|
|
com os olhos da cara. Não era mau rapaz, mas tinha o seu
|
|
grão de egoísmo, e se não era incapaz de afeições, sabia
|
|
regê-las, moderá-las, e sobretudo guiá-las ao seu próprio
|
|
interesse. Entre estes dois homens travara-se amizade
|
|
íntima, nascida para um na simpatia, para outro no costume.
|
|
Eram eles os naturais confidentes um do outro, com a
|
|
diferença que Luís Alves dava menos do que recebia, e, ainda
|
|
assim, nem tudo o que dava exprimia grande confiança.
|
|
]]
|
|
|
|
local function random(handle, io_err)
|
|
if handle then
|
|
return function()
|
|
local len = math.random(0, 1024)
|
|
local chunk = handle:read(len)
|
|
if not chunk then handle:close() end
|
|
return chunk
|
|
end
|
|
else return ltn12.source.empty(io_err or "unable to open file") end
|
|
end
|
|
|
|
local function format(chunk)
|
|
if chunk then
|
|
if chunk == "" then return "''"
|
|
else return string.len(chunk) end
|
|
else return "nil" end
|
|
end
|
|
|
|
local function show(name, input, output)
|
|
local sin = format(input)
|
|
local sout = format(output)
|
|
io.write(name, ": ", sin, " -> ", sout, "\n")
|
|
end
|
|
|
|
local function chunked(length)
|
|
local tmp
|
|
return function(chunk)
|
|
local ret
|
|
if chunk and chunk ~= "" then
|
|
tmp = chunk
|
|
end
|
|
ret = string.sub(tmp, 1, length)
|
|
tmp = string.sub(tmp, length+1)
|
|
if not chunk and ret == "" then ret = nil end
|
|
return ret
|
|
end
|
|
end
|
|
|
|
--[[
|
|
local function named(f, name)
|
|
return function(chunk)
|
|
local ret = f(chunk)
|
|
show(name, chunk, ret)
|
|
return ret
|
|
end
|
|
end
|
|
]]
|
|
local function named(f)
|
|
return f
|
|
end
|
|
|
|
local what = nil
|
|
local function transform(input, output, filter)
|
|
local source = random(io.open(input, "rb"))
|
|
local sink = ltn12.sink.file(io.open(output, "wb"))
|
|
if what then
|
|
sink = ltn12.sink.chain(filter, sink)
|
|
else
|
|
source = ltn12.source.chain(source, filter)
|
|
end
|
|
--what = not what
|
|
ltn12.pump.all(source, sink)
|
|
end
|
|
|
|
local function encode_qptest(mode)
|
|
local encode = mime.encode("quoted-printable", mode)
|
|
local split = mime.wrap("quoted-printable")
|
|
local chain = ltn12.filter.chain(encode, split)
|
|
transform(qptest, eqptest, chain)
|
|
end
|
|
|
|
local function compare_qptest()
|
|
compare(qptest, dqptest)
|
|
end
|
|
|
|
local function decode_qptest()
|
|
local decode = mime.decode("quoted-printable")
|
|
transform(eqptest, dqptest, decode)
|
|
end
|
|
|
|
local function create_qptest()
|
|
local f, err = io.open(qptest, "wb")
|
|
if not f then fail(err) end
|
|
-- try all characters
|
|
for i = 0, 255 do
|
|
f:write(string.char(i))
|
|
end
|
|
-- try all characters and different line sizes
|
|
for i = 0, 255 do
|
|
for j = 0, i do
|
|
f:write(string.char(i))
|
|
end
|
|
f:write("\r\n")
|
|
end
|
|
-- test latin text
|
|
f:write(mao)
|
|
-- force soft line breaks and treatment of space/tab in end of line
|
|
local tab
|
|
f:write(string.gsub(mao, "(%s)", function(c)
|
|
if tab then
|
|
tab = nil
|
|
return "\t"
|
|
else
|
|
tab = 1
|
|
return " "
|
|
end
|
|
end))
|
|
-- test crazy end of line conventions
|
|
local eol = { "\r\n", "\r", "\n", "\n\r" }
|
|
local which = 0
|
|
f:write(string.gsub(mao, "(\n)", function(c)
|
|
which = which + 1
|
|
if which > 4 then which = 1 end
|
|
return eol[which]
|
|
end))
|
|
for i = 1, 4 do
|
|
for j = 1, 4 do
|
|
f:write(eol[i])
|
|
f:write(eol[j])
|
|
end
|
|
end
|
|
-- try long spaced and tabbed lines
|
|
f:write("\r\n")
|
|
for i = 0, 255 do
|
|
f:write(string.char(9))
|
|
end
|
|
f:write("\r\n")
|
|
for i = 0, 255 do
|
|
f:write(' ')
|
|
end
|
|
f:write("\r\n")
|
|
for i = 0, 255 do
|
|
f:write(string.char(9),' ')
|
|
end
|
|
f:write("\r\n")
|
|
for i = 0, 255 do
|
|
f:write(' ',string.char(32))
|
|
end
|
|
f:write("\r\n")
|
|
|
|
f:close()
|
|
end
|
|
|
|
local function cleanup_qptest()
|
|
os.remove(qptest)
|
|
os.remove(eqptest)
|
|
os.remove(dqptest)
|
|
end
|
|
|
|
local function encode_b64test()
|
|
local e1 = mime.encode("base64")
|
|
local e2 = mime.encode("base64")
|
|
local e3 = mime.encode("base64")
|
|
local e4 = mime.encode("base64")
|
|
local sp4 = mime.wrap()
|
|
local sp3 = mime.wrap(59)
|
|
local sp2 = mime.wrap("base64", 30)
|
|
local sp1 = mime.wrap(27)
|
|
local chain = ltn12.filter.chain(e1, sp1, e2, sp2, e3, sp3, e4, sp4)
|
|
chain = socket.protect(chain)
|
|
transform(b64test, eb64test, chain)
|
|
end
|
|
|
|
local function decode_b64test()
|
|
local d1 = named(mime.decode("base64"), "d1")
|
|
local d2 = named(mime.decode("base64"), "d2")
|
|
local d3 = named(mime.decode("base64"), "d3")
|
|
local d4 = named(mime.decode("base64"), "d4")
|
|
local chain = named(ltn12.filter.chain(d1, d2, d3, d4), "chain")
|
|
transform(eb64test, db64test, chain)
|
|
end
|
|
|
|
local function cleanup_b64test()
|
|
os.remove(eb64test)
|
|
os.remove(db64test)
|
|
end
|
|
|
|
local function compare_b64test()
|
|
compare(b64test, db64test)
|
|
end
|
|
|
|
local function identity_test()
|
|
local chain = ltn12.filter.chain(
|
|
mime.encode("quoted-printable"),
|
|
mime.encode("base64"),
|
|
mime.decode("base64"),
|
|
mime.decode("quoted-printable")
|
|
)
|
|
transform(b64test, eb64test, chain)
|
|
compare(b64test, eb64test)
|
|
os.remove(eb64test)
|
|
end
|
|
|
|
|
|
local function padcheck(original, encoded)
|
|
local e = (mime.b64(original))
|
|
local d = (mime.unb64(encoded))
|
|
if e ~= encoded then fail("encoding failed") end
|
|
if d ~= original then fail("decoding failed") end
|
|
end
|
|
|
|
local function chunkcheck(original, encoded)
|
|
local len = string.len(original)
|
|
for i = 0, len do
|
|
local a = string.sub(original, 1, i)
|
|
local b = string.sub(original, i+1)
|
|
local e, r = mime.b64(a, b)
|
|
local f = (mime.b64(r))
|
|
if (e .. f ~= encoded) then fail(e .. f) end
|
|
end
|
|
end
|
|
|
|
local function padding_b64test()
|
|
padcheck("a", "YQ==")
|
|
padcheck("ab", "YWI=")
|
|
padcheck("abc", "YWJj")
|
|
padcheck("abcd", "YWJjZA==")
|
|
padcheck("abcde", "YWJjZGU=")
|
|
padcheck("abcdef", "YWJjZGVm")
|
|
padcheck("abcdefg", "YWJjZGVmZw==")
|
|
padcheck("abcdefgh", "YWJjZGVmZ2g=")
|
|
padcheck("abcdefghi", "YWJjZGVmZ2hp")
|
|
padcheck("abcdefghij", "YWJjZGVmZ2hpag==")
|
|
chunkcheck("abcdefgh", "YWJjZGVmZ2g=")
|
|
chunkcheck("abcdefghi", "YWJjZGVmZ2hp")
|
|
chunkcheck("abcdefghij", "YWJjZGVmZ2hpag==")
|
|
print("ok")
|
|
end
|
|
|
|
local t = socket.gettime()
|
|
|
|
identity_test()
|
|
encode_b64test()
|
|
decode_b64test()
|
|
compare_b64test()
|
|
cleanup_b64test()
|
|
padding_b64test()
|
|
|
|
create_qptest()
|
|
encode_qptest()
|
|
decode_qptest()
|
|
compare_qptest()
|
|
encode_qptest("binary")
|
|
decode_qptest()
|
|
compare_qptest()
|
|
cleanup_qptest()
|
|
|
|
print(string.format("done in %.2fs", socket.gettime() - t))
|