IMPORTANT: due to a drive failure, as of 13-Mar-2021, the Mercurial repository had to be re-mirrored, which changed every commit SHA. The old SHAs and trees are backed up in the vault branches. Please migrate to the new branches as soon as you can.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
prosody/spec/util_strbitop_spec.lua

85 lines
2.7 KiB

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