diff options
Diffstat (limited to 'Build/source/texk/web2c/luatexdir/luasocket/test/ltn12test.lua')
-rw-r--r-- | Build/source/texk/web2c/luatexdir/luasocket/test/ltn12test.lua | 299 |
1 files changed, 0 insertions, 299 deletions
diff --git a/Build/source/texk/web2c/luatexdir/luasocket/test/ltn12test.lua b/Build/source/texk/web2c/luatexdir/luasocket/test/ltn12test.lua deleted file mode 100644 index e3f85fb40a4..00000000000 --- a/Build/source/texk/web2c/luatexdir/luasocket/test/ltn12test.lua +++ /dev/null @@ -1,299 +0,0 @@ -local ltn12 = require("ltn12") - -dofile("testsupport.lua") - -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 split(size) - local buffer = "" - local last_out = "" - local last_in = "" - local function output(chunk) - local part = string.sub(buffer, 1, size) - buffer = string.sub(buffer, size+1) - last_out = (part ~= "" or chunk) and part - last_in = chunk - return last_out - end - return function(chunk, done) - if done then - return not last_in and not last_out - end - -- check if argument is consistent with state - if not chunk then - if last_in and last_in ~= "" and last_out ~= "" then - error("nil chunk following data chunk", 2) - end - if not last_out then error("extra nil chunk", 2) end - return output(chunk) - elseif chunk == "" then - if last_out == "" then error('extra "" chunk', 2) end - if not last_out then error('"" chunk following nil return', 2) end - if not last_in then error('"" chunk following nil chunk', 2) end - return output(chunk) - else - if not last_in then error("data chunk following nil chunk", 2) end - if last_in ~= "" and last_out ~= "" then - error("data chunk following data chunk", 2) - end - buffer = chunk - return output(chunk) - end - 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 merge(size) - local buffer = "" - local last_out = "" - local last_in = "" - local function output(chunk) - local part - if string.len(buffer) >= size or not chunk then - part = buffer - buffer = "" - else - part = "" - end - last_out = (part ~= "" or chunk) and part - last_in = chunk - return last_out - end - return function(chunk, done) - if done then - return not last_in and not last_out - end - -- check if argument is consistent with state - if not chunk then - if last_in and last_in ~= "" and last_out ~= "" then - error("nil chunk following data chunk", 2) - end - if not last_out then error("extra nil chunk", 2) end - return output(chunk) - elseif chunk == "" then - if last_out == "" then error('extra "" chunk', 2) end - if not last_out then error('"" chunk following nil return', 2) end - if not last_in then error('"" chunk following nil chunk', 2) end - return output(chunk) - else - if not last_in then error("data chunk following nil chunk", 2) end - if last_in ~= "" and last_out ~= "" then - error("data chunk following data chunk", 2) - end - buffer = buffer .. chunk - return output(chunk) - end - end -end - --------------------------------- -io.write("testing sink.table: ") -local sink, t = ltn12.sink.table() -local s, c = "", "" -for i = 0, 10 do - c = string.rep(string.char(i), i) - s = s .. c - assert(sink(c), "returned error") -end -assert(sink(nil), "returned error") -assert(table.concat(t) == s, "mismatch") -print("ok") - --------------------------------- -io.write("testing sink.chain (with split): ") -sink, t = ltn12.sink.table() -local filter = split(3) -sink = ltn12.sink.chain(filter, sink) -s = "123456789012345678901234567890" -assert(sink(s), "returned error") -assert(sink(s), "returned error") -assert(sink(nil), "returned error") -assert(table.concat(t) == s .. s, "mismatch") -assert(filter(nil, 1), "filter not empty") -print("ok") - --------------------------------- -io.write("testing sink.chain (with merge): ") -sink, t = ltn12.sink.table() -filter = merge(10) -sink = ltn12.sink.chain(filter, sink) -s = string.rep("123", 30) -s = s .. string.rep("4321", 30) -for i = 1, 30 do - assert(sink("123"), "returned error") -end -for i = 1, 30 do - assert(sink("4321"), "returned error") -end -assert(sink(nil), "returned error") -assert(filter(nil, 1), "filter not empty") -assert(table.concat(t) == s, "mismatch") -print("ok") - --------------------------------- -io.write("testing source.string and pump.all: ") -local source = ltn12.source.string(s) -sink, t = ltn12.sink.table() -assert(ltn12.pump.all(source, sink), "returned error") -assert(table.concat(t) == s, "mismatch") -print("ok") - --------------------------------- -io.write("testing source.chain (with split): ") -source = ltn12.source.string(s) -filter = split(5) -source = ltn12.source.chain(source, filter) -sink, t = ltn12.sink.table() -assert(ltn12.pump.all(source, sink), "returned error") -assert(table.concat(t) == s, "mismatch") -assert(filter(nil, 1), "filter not empty") -print("ok") - --------------------------------- -io.write("testing source.chain (with several filters): ") -local function double(x) -- filter turning "ABC" into "AABBCC" - if not x then return end - local b={} - for k in x:gmatch'.' do table.insert(b, k..k) end - return table.concat(b) -end -source = ltn12.source.string(s) -source = ltn12.source.chain(source, double, double, double) -sink, t = ltn12.sink.table() -assert(ltn12.pump.all(source, sink), "returned error") -assert(table.concat(t) == double(double(double(s))), "mismatch") -print("ok") - --------------------------------- -io.write("testing source.chain (with split) and sink.chain (with merge): ") -source = ltn12.source.string(s) -filter = split(5) -source = ltn12.source.chain(source, filter) -local filter2 = merge(13) -sink, t = ltn12.sink.table() -sink = ltn12.sink.chain(filter2, sink) -assert(ltn12.pump.all(source, sink), "returned error") -assert(table.concat(t) == s, "mismatch") -assert(filter(nil, 1), "filter not empty") -assert(filter2(nil, 1), "filter2 not empty") -print("ok") - --------------------------------- -io.write("testing sink.chain (with several filters): ") -source = ltn12.source.string(s) -sink, t = ltn12.sink.table() -sink = ltn12.sink.chain(double, double, double, sink) -assert(ltn12.pump.all(source, sink), "returned error") -assert(table.concat(t) == double(double(double(s))), "mismatch") -print("ok") - --------------------------------- -io.write("testing filter.chain (and sink.chain, with split, merge): ") -source = ltn12.source.string(s) -filter = split(5) -filter2 = merge(13) -local chain = ltn12.filter.chain(filter, filter2) -sink, t = ltn12.sink.table() -sink = ltn12.sink.chain(chain, sink) -assert(ltn12.pump.all(source, sink), "returned error") -assert(table.concat(t) == s, "mismatch") -assert(filter(nil, 1), "filter not empty") -assert(filter2(nil, 1), "filter2 not empty") -print("ok") - --------------------------------- -io.write("testing filter.chain (and sink.chain, a bunch): ") -source = ltn12.source.string(s) -filter = split(5) -filter2 = merge(13) -local filter3 = split(7) -local filter4 = merge(11) -local filter5 = split(10) -chain = ltn12.filter.chain(filter, filter2, filter3, filter4, filter5) -sink, t = ltn12.sink.table() -sink = ltn12.sink.chain(chain, sink) -assert(ltn12.pump.all(source, sink)) -assert(table.concat(t) == s, "mismatch") -assert(filter(nil, 1), "filter not empty") -assert(filter2(nil, 1), "filter2 not empty") -assert(filter3(nil, 1), "filter3 not empty") -assert(filter4(nil, 1), "filter4 not empty") -assert(filter5(nil, 1), "filter5 not empty") -print("ok") - --------------------------------- -io.write("testing filter.chain (and source.chain, with split, merge): ") -source = ltn12.source.string(s) -filter = split(5) -filter2 = merge(13) -local chain = ltn12.filter.chain(filter, filter2) -sink, t = ltn12.sink.table() -source = ltn12.source.chain(source, chain) -assert(ltn12.pump.all(source, sink), "returned error") -assert(table.concat(t) == s, "mismatch") -assert(filter(nil, 1), "filter not empty") -assert(filter2(nil, 1), "filter2 not empty") -print("ok") - --------------------------------- -io.write("testing filter.chain (and source.chain, a bunch): ") -source = ltn12.source.string(s) -filter = split(5) -filter2 = merge(13) -local filter3 = split(7) -local filter4 = merge(11) -local filter5 = split(10) -chain = ltn12.filter.chain(filter, filter2, filter3, filter4, filter5) -sink, t = ltn12.sink.table() -source = ltn12.source.chain(source, chain) -assert(ltn12.pump.all(source, sink)) -assert(table.concat(t) == s, "mismatch") -assert(filter(nil, 1), "filter not empty") -assert(filter2(nil, 1), "filter2 not empty") -assert(filter3(nil, 1), "filter3 not empty") -assert(filter4(nil, 1), "filter4 not empty") -assert(filter5(nil, 1), "filter5 not empty") -print("ok") - |