util.startup: Fix exiting on pidfile trouble
prosody.shutdown() relies on prosody.main_thread, which has not been set
yet at this point.
Doing a clean shutdown might actually be harmful in case it tears down
things set up by the conflicting Prosody, such as the very pidfile we
were looking at.
Thanks again SigmaTel71 for noticing
local strbitop = require "util.strbitop";
describe("util.strbitop", function ()
describe("sand()", function ()
it("works", function ()
assert.equal(string.rep("Aa", 100), strbitop.sand(string.rep("a", 200), "Aa"));
end);
it("returns empty string if first argument is empty", function ()
assert.equal("", strbitop.sand("", ""));
assert.equal("", strbitop.sand("", "key"));
end);
it("returns initial string if key is empty", function ()
assert.equal("hello", strbitop.sand("hello", ""));
end);
end);
describe("sor()", function ()
it("works", function ()
assert.equal(string.rep("a", 200), strbitop.sor(string.rep("Aa", 100), "a"));
end);
it("returns empty string if first argument is empty", function ()
assert.equal("", strbitop.sor("", ""));
assert.equal("", strbitop.sor("", "key"));
end);
it("returns initial string if key is empty", function ()
assert.equal("hello", strbitop.sor("hello", ""));
end);
end);
describe("sxor()", function ()
it("works", function ()
assert.equal(string.rep("Aa", 100), strbitop.sxor(string.rep("a", 200), " \0"));
end);
it("returns empty string if first argument is empty", function ()
assert.equal("", strbitop.sxor("", ""));
assert.equal("", strbitop.sxor("", "key"));
end);
it("returns initial string if key is empty", function ()
assert.equal("hello", strbitop.sxor("hello", ""));
end);
end);
describe("common_prefix_bits()", function ()
local function B(s)
assert(#s%8==0, "Invalid test input: B(s): s should be a multiple of 8 bits in length");
local byte = 0;
local out_str = {};
for i = 1, #s do
local bit_ascii = s:byte(i);
if bit_ascii == 49 then -- '1'
byte = byte + 2^((7-(i-1))%8);
elseif bit_ascii ~= 48 then
error("Invalid test input: B(s): s should contain only '0' or '1' characters");
end
if (i-1)%8 == 7 then
table.insert(out_str, string.char(byte));
byte = 0;
end
end
return table.concat(out_str);
end
local _cpb = strbitop.common_prefix_bits;
local function test(a, b)
local Ba, Bb = B(a), B(b);
local ret1 = _cpb(Ba, Bb);
local ret2 = _cpb(Bb, Ba);
assert(ret1 == ret2, ("parameter order should not make a difference to the result (%s, %s) = %d, reversed = %d"):format(a, b, ret1, ret2));
return ret1;
end
it("works on single bytes", function ()
assert.equal(0, test("00000000", "11111111"));
assert.equal(1, test("10000000", "11111111"));
assert.equal(0, test("01000000", "11111111"));
assert.equal(0, test("01000000", "11111111"));
assert.equal(8, test("11111111", "11111111"));
end);
it("works on multiple bytes", function ()
for i = 0, 16 do
assert.equal(i, test(string.rep("1", i)..string.rep("0", 16-i), "1111111111111111"));
end
end);
end);
end);