Software `/` code `/` prosody

Annotate

spec/core_storagemanager_spec.lua @ 11763:e273ef869794

net.server: Pikc server_epoll as unconditional default Previously it would have gone for server_select if util.poll was for some reason not available, which should be never these days. And even if it was, best to flush it out by throwing loud errors so users notice. Then they can work around it by using select until we delete that one.

author	Kim Alvefur <zash@zash.se>
date	Fri, 03 Sep 2021 17:39:00 +0200
parent	11739:e0d0680e04cc
child	12589:39ae08180c81
child	12598:a2624315d30e

rev	line source
9691 e11e076f0eb8 various: Don't rely on _G.unpack existing Kim Alvefur <zash@zash.se> parents: 9536 diff changeset	1 local unpack = table.unpack or unpack; -- luacheck: ignore 113
9389 9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	2 local server = require "net.server_select";
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	3 package.loaded["net.server"] = server;
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	4
9466 b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	5 local st = require "util.stanza";
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	6
9389 9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	7 local function mock_prosody()
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	8 _G.prosody = {
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	9 core_post_stanza = function () end;
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	10 events = require "util.events".new();
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	11 hosts = {};
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	12 paths = {
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	13 data = "./data";
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	14 };
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	15 };
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	16 end
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	17
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	18 local configs = {
9491 89e4cbd1a564 storagemanager tests: Also cover memory driver Kim Alvefur <zash@zash.se> parents: 9472 diff changeset	19 memory = {
89e4cbd1a564 storagemanager tests: Also cover memory driver Kim Alvefur <zash@zash.se> parents: 9472 diff changeset	20 storage = "memory";
89e4cbd1a564 storagemanager tests: Also cover memory driver Kim Alvefur <zash@zash.se> parents: 9472 diff changeset	21 };
9389 9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	22 internal = {
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	23 storage = "internal";
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	24 };
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	25 sqlite = {
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	26 storage = "sql";
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	27 sql = { driver = "SQLite3", database = "prosody-tests.sqlite" };
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	28 };
9452 9d892b2415bf Fix storage tests so they run, but not by default Matthew Wild <mwild1@gmail.com> parents: 9389 diff changeset	29 mysql = {
9d892b2415bf Fix storage tests so they run, but not by default Matthew Wild <mwild1@gmail.com> parents: 9389 diff changeset	30 storage = "sql";
9d892b2415bf Fix storage tests so they run, but not by default Matthew Wild <mwild1@gmail.com> parents: 9389 diff changeset	31 sql = { driver = "MySQL", database = "prosody", username = "prosody", password = "secret", host = "localhost" };
9d892b2415bf Fix storage tests so they run, but not by default Matthew Wild <mwild1@gmail.com> parents: 9389 diff changeset	32 };
9d892b2415bf Fix storage tests so they run, but not by default Matthew Wild <mwild1@gmail.com> parents: 9389 diff changeset	33 postgres = {
9d892b2415bf Fix storage tests so they run, but not by default Matthew Wild <mwild1@gmail.com> parents: 9389 diff changeset	34 storage = "sql";
9d892b2415bf Fix storage tests so they run, but not by default Matthew Wild <mwild1@gmail.com> parents: 9389 diff changeset	35 sql = { driver = "PostgreSQL", database = "prosody", username = "prosody", password = "secret", host = "localhost" };
9d892b2415bf Fix storage tests so they run, but not by default Matthew Wild <mwild1@gmail.com> parents: 9389 diff changeset	36 };
9389 9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	37 };
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	38
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	39 local test_host = "storage-unit-tests.invalid";
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	40
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	41 describe("storagemanager", function ()
9452 9d892b2415bf Fix storage tests so they run, but not by default Matthew Wild <mwild1@gmail.com> parents: 9389 diff changeset	42 for backend, backend_config in pairs(configs) do
9389 9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	43 local tagged_name = "#"..backend;
9452 9d892b2415bf Fix storage tests so they run, but not by default Matthew Wild <mwild1@gmail.com> parents: 9389 diff changeset	44 if backend ~= backend_config.storage then
9d892b2415bf Fix storage tests so they run, but not by default Matthew Wild <mwild1@gmail.com> parents: 9389 diff changeset	45 tagged_name = tagged_name.." #"..backend_config.storage;
9389 9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	46 end
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	47 insulate(tagged_name.." #storage backend", function ()
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	48 mock_prosody();
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	49
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	50 local config = require "core.configmanager";
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	51 local sm = require "core.storagemanager";
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	52 local hm = require "core.hostmanager";
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	53 local mm = require "core.modulemanager";
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	54
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	55 -- Simple check to ensure insulation is working correctly
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	56 assert.is_nil(config.get(test_host, "storage"));
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	57
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	58 for k, v in pairs(backend_config) do
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	59 config.set(test_host, k, v);
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	60 end
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	61 assert(hm.activate(test_host, {}));
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	62 sm.initialize_host(test_host);
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	63 assert(mm.load(test_host, "storage_"..backend_config.storage));
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	64
9466 b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	65 describe("key-value stores", function ()
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	66 -- These tests rely on being executed in order, disable any order
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	67 -- randomization for this block
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	68 randomize(false);
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	69
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	70 local store;
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	71 it("may be opened", function ()
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	72 store = assert(sm.open(test_host, "test"));
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	73 end);
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	74
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	75 local simple_data = { foo = "bar" };
9389 9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	76
9466 b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	77 it("may set data for a user", function ()
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	78 assert(store:set("user9999", simple_data));
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	79 end);
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	80
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	81 it("may get data for a user", function ()
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	82 assert.same(simple_data, assert(store:get("user9999")));
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	83 end);
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	84
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	85 it("may remove data for a user", function ()
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	86 assert(store:set("user9999", nil));
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	87 local ret, err = store:get("user9999");
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	88 assert.is_nil(ret);
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	89 assert.is_nil(err);
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	90 end);
9389 9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	91 end);
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	92
10676 33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	93 describe("map stores", function ()
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	94 -- These tests rely on being executed in order, disable any order
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	95 -- randomization for this block
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	96 randomize(false);
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	97
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	98 local store, kv_store;
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	99 it("may be opened", function ()
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	100 store = assert(sm.open(test_host, "test-map", "map"));
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	101 end);
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	102
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	103 it("may be opened as a keyval store", function ()
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	104 kv_store = assert(sm.open(test_host, "test-map", "keyval"));
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	105 end);
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	106
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	107 it("may set a specific key for a user", function ()
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	108 assert(store:set("user9999", "foo", "bar"));
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	109 assert.same(kv_store:get("user9999"), { foo = "bar" });
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	110 end);
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	111
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	112 it("may get a specific key for a user", function ()
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	113 assert.equal("bar", store:get("user9999", "foo"));
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	114 end);
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	115
10679 b50b1eae711c storagemanager: Add support for :find_key() and :delete_key() to map store shim Matthew Wild <mwild1@gmail.com> parents: 10678 diff changeset	116 it("may find all users with a specific key", function ()
10680 19692fc5c106 storagemanager, mod_storage_sql: Rename methods to :get_all() and :delete_all() Matthew Wild <mwild1@gmail.com> parents: 10679 diff changeset	117 assert.is_function(store.get_all);
10677 0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	118 assert(store:set("user9999b", "bar", "bar"));
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	119 assert(store:set("user9999c", "foo", "blah"));
10680 19692fc5c106 storagemanager, mod_storage_sql: Rename methods to :get_all() and :delete_all() Matthew Wild <mwild1@gmail.com> parents: 10679 diff changeset	120 local ret, err = store:get_all("foo");
10677 0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	121 assert.is_nil(err);
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	122 assert.same({ user9999 = "bar", user9999c = "blah" }, ret);
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	123 end);
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	124
10680 19692fc5c106 storagemanager, mod_storage_sql: Rename methods to :get_all() and :delete_all() Matthew Wild <mwild1@gmail.com> parents: 10679 diff changeset	125 it("rejects empty or non-string keys to get_all", function ()
19692fc5c106 storagemanager, mod_storage_sql: Rename methods to :get_all() and :delete_all() Matthew Wild <mwild1@gmail.com> parents: 10679 diff changeset	126 assert.is_function(store.get_all);
10677 0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	127 do
10680 19692fc5c106 storagemanager, mod_storage_sql: Rename methods to :get_all() and :delete_all() Matthew Wild <mwild1@gmail.com> parents: 10679 diff changeset	128 local ret, err = store:get_all("");
10677 0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	129 assert.is_nil(ret);
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	130 assert.is_not_nil(err);
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	131 end
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	132 do
10680 19692fc5c106 storagemanager, mod_storage_sql: Rename methods to :get_all() and :delete_all() Matthew Wild <mwild1@gmail.com> parents: 10679 diff changeset	133 local ret, err = store:get_all(true);
10677 0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	134 assert.is_nil(ret);
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	135 assert.is_not_nil(err);
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	136 end
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	137 end);
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	138
10680 19692fc5c106 storagemanager, mod_storage_sql: Rename methods to :get_all() and :delete_all() Matthew Wild <mwild1@gmail.com> parents: 10679 diff changeset	139 it("rejects empty or non-string keys to delete_all", function ()
19692fc5c106 storagemanager, mod_storage_sql: Rename methods to :get_all() and :delete_all() Matthew Wild <mwild1@gmail.com> parents: 10679 diff changeset	140 assert.is_function(store.delete_all);
10677 0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	141 do
10680 19692fc5c106 storagemanager, mod_storage_sql: Rename methods to :get_all() and :delete_all() Matthew Wild <mwild1@gmail.com> parents: 10679 diff changeset	142 local ret, err = store:delete_all("");
10677 0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	143 assert.is_nil(ret);
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	144 assert.is_not_nil(err);
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	145 end
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	146 do
10680 19692fc5c106 storagemanager, mod_storage_sql: Rename methods to :get_all() and :delete_all() Matthew Wild <mwild1@gmail.com> parents: 10679 diff changeset	147 local ret, err = store:delete_all(true);
10677 0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	148 assert.is_nil(ret);
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	149 assert.is_not_nil(err);
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	150 end
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	151 end);
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	152
10679 b50b1eae711c storagemanager: Add support for :find_key() and :delete_key() to map store shim Matthew Wild <mwild1@gmail.com> parents: 10678 diff changeset	153 it("may delete all instances of a specific key", function ()
10680 19692fc5c106 storagemanager, mod_storage_sql: Rename methods to :get_all() and :delete_all() Matthew Wild <mwild1@gmail.com> parents: 10679 diff changeset	154 assert.is_function(store.delete_all);
10677 0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	155 assert(store:set("user9999b", "foo", "hello"));
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	156
10680 19692fc5c106 storagemanager, mod_storage_sql: Rename methods to :get_all() and :delete_all() Matthew Wild <mwild1@gmail.com> parents: 10679 diff changeset	157 assert(store:delete_all("bar"));
10677 0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	158 -- Ensure key was deleted
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	159 do
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	160 local ret, err = store:get("user9999b", "bar");
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	161 assert.is_nil(ret);
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	162 assert.is_nil(err);
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	163 end
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	164 -- Ensure other users/keys are intact
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	165 do
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	166 local ret, err = store:get("user9999", "foo");
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	167 assert.equal("bar", ret);
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	168 assert.is_nil(err);
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	169 end
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	170 do
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	171 local ret, err = store:get("user9999b", "foo");
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	172 assert.equal("hello", ret);
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	173 assert.is_nil(err);
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	174 end
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	175 do
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	176 local ret, err = store:get("user9999c", "foo");
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	177 assert.equal("blah", ret);
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	178 assert.is_nil(err);
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	179 end
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	180 end);
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	181
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	182 it("may remove data for a specific key for a user", function ()
10676 33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	183 assert(store:set("user9999", "foo", nil));
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	184 do
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	185 local ret, err = store:get("user9999", "foo");
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	186 assert.is_nil(ret);
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	187 assert.is_nil(err);
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	188 end
10677 0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	189
0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	190 assert(store:set("user9999b", "foo", nil));
10676 33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	191 do
10677 0054aec3e8c5 mod_storage_sql: Add map_store:find_key() and map_store:delete_key() (+ tests) Matthew Wild <mwild1@gmail.com> parents: 10676 diff changeset	192 local ret, err = store:get("user9999b", "foo");
10676 33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	193 assert.is_nil(ret);
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	194 assert.is_nil(err);
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	195 end
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	196 end);
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	197 end);
33c7e4920591 storagemanager: Add tests for map stores Matthew Wild <mwild1@gmail.com> parents: 10541 diff changeset	198
9466 b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	199 describe("archive stores", function ()
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	200 randomize(false);
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	201
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	202 local archive;
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	203 it("can be opened", function ()
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	204 archive = assert(sm.open(test_host, "test-archive", "archive"));
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	205 end);
9389 9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	206
9466 b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	207 local test_stanza = st.stanza("test", { xmlns = "urn:example:foo" })
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	208 :tag("foo"):up()
10836 93019f3edd68 spec/storage: Reset build context of test stanza make comparisons easier Kim Alvefur <zash@zash.se> parents: 10680 diff changeset	209 :tag("foo"):up()
93019f3edd68 spec/storage: Reset build context of test stanza make comparisons easier Kim Alvefur <zash@zash.se> parents: 10680 diff changeset	210 :reset();
9466 b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	211 local test_time = 1539204123;
9470 0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	212
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	213 local test_data = {
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	214 { nil, test_stanza, test_time, "contact@example.com" };
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	215 { nil, test_stanza, test_time+1, "contact2@example.com" };
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	216 { nil, test_stanza, test_time+2, "contact2@example.com" };
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	217 { nil, test_stanza, test_time-1, "contact2@example.com" };
10927 470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	218 { nil, test_stanza, test_time-1, "contact3@example.com" };
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	219 { nil, test_stanza, test_time+0, "contact3@example.com" };
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	220 { nil, test_stanza, test_time+1, "contact3@example.com" };
9470 0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	221 };
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	222
9466 b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	223 it("can be added to", function ()
9470 0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	224 for _, data_item in ipairs(test_data) do
10927 470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	225 local id = archive:append("user", unpack(data_item, 1, 4));
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	226 assert.truthy(id);
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	227 data_item[1] = id;
9470 0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	228 end
9466 b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	229 end);
9389 9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	230
9470 0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	231 describe("can be queried", function ()
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	232 it("for all items", function ()
10541 6c6ff4509082 tests: Silence [luacheck] warnings Kim Alvefur <zash@zash.se> parents: 9691 diff changeset	233 -- luacheck: ignore 211/err
9470 0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	234 local data, err = archive:find("user", {});
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	235 assert.truthy(data);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	236 local count = 0;
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	237 for id, item, when in data do
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	238 count = count + 1;
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	239 assert.truthy(id);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	240 assert(st.is_stanza(item));
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	241 assert.equal("test", item.name);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	242 assert.equal("urn:example:foo", item.attr.xmlns);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	243 assert.equal(2, #item.tags);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	244 assert.equal(test_data[count][3], when);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	245 end
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	246 assert.equal(#test_data, count);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	247 end);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	248
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	249 it("by JID", function ()
10541 6c6ff4509082 tests: Silence [luacheck] warnings Kim Alvefur <zash@zash.se> parents: 9691 diff changeset	250 -- luacheck: ignore 211/err
9470 0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	251 local data, err = archive:find("user", {
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	252 with = "contact@example.com";
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	253 });
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	254 assert.truthy(data);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	255 local count = 0;
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	256 for id, item, when in data do
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	257 count = count + 1;
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	258 assert.truthy(id);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	259 assert(st.is_stanza(item));
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	260 assert.equal("test", item.name);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	261 assert.equal("urn:example:foo", item.attr.xmlns);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	262 assert.equal(2, #item.tags);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	263 assert.equal(test_time, when);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	264 end
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	265 assert.equal(1, count);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	266 end);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	267
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	268 it("by time (end)", function ()
10541 6c6ff4509082 tests: Silence [luacheck] warnings Kim Alvefur <zash@zash.se> parents: 9691 diff changeset	269 -- luacheck: ignore 211/err
9470 0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	270 local data, err = archive:find("user", {
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	271 ["end"] = test_time;
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	272 });
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	273 assert.truthy(data);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	274 local count = 0;
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	275 for id, item, when in data do
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	276 count = count + 1;
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	277 assert.truthy(id);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	278 assert(st.is_stanza(item));
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	279 assert.equal("test", item.name);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	280 assert.equal("urn:example:foo", item.attr.xmlns);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	281 assert.equal(2, #item.tags);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	282 assert(test_time >= when);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	283 end
10927 470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	284 assert.equal(4, count);
9470 0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	285 end);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	286
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	287 it("by time (start)", function ()
10541 6c6ff4509082 tests: Silence [luacheck] warnings Kim Alvefur <zash@zash.se> parents: 9691 diff changeset	288 -- luacheck: ignore 211/err
9470 0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	289 local data, err = archive:find("user", {
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	290 ["start"] = test_time;
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	291 });
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	292 assert.truthy(data);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	293 local count = 0;
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	294 for id, item, when in data do
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	295 count = count + 1;
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	296 assert.truthy(id);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	297 assert(st.is_stanza(item));
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	298 assert.equal("test", item.name);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	299 assert.equal("urn:example:foo", item.attr.xmlns);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	300 assert.equal(2, #item.tags);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	301 assert(test_time <= when);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	302 end
10927 470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	303 assert.equal(#test_data - 2, count);
9470 0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	304 end);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	305
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	306 it("by time (start+end)", function ()
10541 6c6ff4509082 tests: Silence [luacheck] warnings Kim Alvefur <zash@zash.se> parents: 9691 diff changeset	307 -- luacheck: ignore 211/err
9470 0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	308 local data, err = archive:find("user", {
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	309 ["start"] = test_time;
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	310 ["end"] = test_time+1;
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	311 });
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	312 assert.truthy(data);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	313 local count = 0;
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	314 for id, item, when in data do
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	315 count = count + 1;
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	316 assert.truthy(id);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	317 assert(st.is_stanza(item));
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	318 assert.equal("test", item.name);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	319 assert.equal("urn:example:foo", item.attr.xmlns);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	320 assert.equal(2, #item.tags);
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	321 assert(when >= test_time, ("%d >= %d"):format(when, test_time));
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	322 assert(when <= test_time+1, ("%d <= %d"):format(when, test_time+1));
0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	323 end
10927 470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	324 assert.equal(4, count);
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	325 end);
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	326
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	327 it("by id (after)", function ()
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	328 -- luacheck: ignore 211/err
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	329 local data, err = archive:find("user", {
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	330 ["after"] = test_data[2][1];
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	331 });
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	332 assert.truthy(data);
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	333 local count = 0;
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	334 for id, item in data do
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	335 count = count + 1;
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	336 assert.truthy(id);
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	337 assert.equal(test_data[2+count][1], id);
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	338 assert(st.is_stanza(item));
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	339 assert.equal("test", item.name);
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	340 assert.equal("urn:example:foo", item.attr.xmlns);
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	341 assert.equal(2, #item.tags);
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	342 end
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	343 assert.equal(5, count);
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	344 end);
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	345
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	346 it("by id (before)", function ()
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	347 -- luacheck: ignore 211/err
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	348 local data, err = archive:find("user", {
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	349 ["before"] = test_data[4][1];
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	350 });
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	351 assert.truthy(data);
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	352 local count = 0;
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	353 for id, item in data do
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	354 count = count + 1;
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	355 assert.truthy(id);
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	356 assert.equal(test_data[count][1], id);
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	357 assert(st.is_stanza(item));
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	358 assert.equal("test", item.name);
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	359 assert.equal("urn:example:foo", item.attr.xmlns);
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	360 assert.equal(2, #item.tags);
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	361 end
470602a8b633 storage tests: Add tests for archive queries before/after specific ids Matthew Wild <mwild1@gmail.com> parents: 10842 diff changeset	362 assert.equal(3, count);
9470 0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	363 end);
11273 9f1355689648 storage tests: Test querys with both before and after IDs Kim Alvefur <zash@zash.se> parents: 10927 diff changeset	364
9f1355689648 storage tests: Test querys with both before and after IDs Kim Alvefur <zash@zash.se> parents: 10927 diff changeset	365 it("by id (before and after) #full_id_range", function ()
9f1355689648 storage tests: Test querys with both before and after IDs Kim Alvefur <zash@zash.se> parents: 10927 diff changeset	366 assert.truthy(archive.caps and archive.caps.full_id_range, "full ID range support")
9f1355689648 storage tests: Test querys with both before and after IDs Kim Alvefur <zash@zash.se> parents: 10927 diff changeset	367 local data, err = archive:find("user", {
9f1355689648 storage tests: Test querys with both before and after IDs Kim Alvefur <zash@zash.se> parents: 10927 diff changeset	368 ["after"] = test_data[1][1];
9f1355689648 storage tests: Test querys with both before and after IDs Kim Alvefur <zash@zash.se> parents: 10927 diff changeset	369 ["before"] = test_data[4][1];
9f1355689648 storage tests: Test querys with both before and after IDs Kim Alvefur <zash@zash.se> parents: 10927 diff changeset	370 });
9f1355689648 storage tests: Test querys with both before and after IDs Kim Alvefur <zash@zash.se> parents: 10927 diff changeset	371 assert.truthy(data, err);
9f1355689648 storage tests: Test querys with both before and after IDs Kim Alvefur <zash@zash.se> parents: 10927 diff changeset	372 local count = 0;
9f1355689648 storage tests: Test querys with both before and after IDs Kim Alvefur <zash@zash.se> parents: 10927 diff changeset	373 for id, item in data do
9f1355689648 storage tests: Test querys with both before and after IDs Kim Alvefur <zash@zash.se> parents: 10927 diff changeset	374 count = count + 1;
9f1355689648 storage tests: Test querys with both before and after IDs Kim Alvefur <zash@zash.se> parents: 10927 diff changeset	375 assert.truthy(id);
9f1355689648 storage tests: Test querys with both before and after IDs Kim Alvefur <zash@zash.se> parents: 10927 diff changeset	376 assert.equal(test_data[1+count][1], id);
9f1355689648 storage tests: Test querys with both before and after IDs Kim Alvefur <zash@zash.se> parents: 10927 diff changeset	377 assert(st.is_stanza(item));
9f1355689648 storage tests: Test querys with both before and after IDs Kim Alvefur <zash@zash.se> parents: 10927 diff changeset	378 assert.equal("test", item.name);
9f1355689648 storage tests: Test querys with both before and after IDs Kim Alvefur <zash@zash.se> parents: 10927 diff changeset	379 assert.equal("urn:example:foo", item.attr.xmlns);
9f1355689648 storage tests: Test querys with both before and after IDs Kim Alvefur <zash@zash.se> parents: 10927 diff changeset	380 assert.equal(2, #item.tags);
9f1355689648 storage tests: Test querys with both before and after IDs Kim Alvefur <zash@zash.se> parents: 10927 diff changeset	381 end
9f1355689648 storage tests: Test querys with both before and after IDs Kim Alvefur <zash@zash.se> parents: 10927 diff changeset	382 assert.equal(2, count);
9f1355689648 storage tests: Test querys with both before and after IDs Kim Alvefur <zash@zash.se> parents: 10927 diff changeset	383 end);
9f1355689648 storage tests: Test querys with both before and after IDs Kim Alvefur <zash@zash.se> parents: 10927 diff changeset	384
11276 7b2ee8995af9 storage tests: Add test for querying a set of IDs Kim Alvefur <zash@zash.se> parents: 11273 diff changeset	385 it("by multiple ids", function ()
11424 2358299bc928 core.storagemanager: s/Multilpe/Multiple/ [codespell] Kim Alvefur <zash@zash.se> parents: 11354 diff changeset	386 assert.truthy(archive.caps and archive.caps.ids, "Multiple ID query")
11276 7b2ee8995af9 storage tests: Add test for querying a set of IDs Kim Alvefur <zash@zash.se> parents: 11273 diff changeset	387 local data, err = archive:find("user", {
7b2ee8995af9 storage tests: Add test for querying a set of IDs Kim Alvefur <zash@zash.se> parents: 11273 diff changeset	388 ["ids"] = {
7b2ee8995af9 storage tests: Add test for querying a set of IDs Kim Alvefur <zash@zash.se> parents: 11273 diff changeset	389 test_data[2][1];
7b2ee8995af9 storage tests: Add test for querying a set of IDs Kim Alvefur <zash@zash.se> parents: 11273 diff changeset	390 test_data[4][1];
7b2ee8995af9 storage tests: Add test for querying a set of IDs Kim Alvefur <zash@zash.se> parents: 11273 diff changeset	391 };
7b2ee8995af9 storage tests: Add test for querying a set of IDs Kim Alvefur <zash@zash.se> parents: 11273 diff changeset	392 });
7b2ee8995af9 storage tests: Add test for querying a set of IDs Kim Alvefur <zash@zash.se> parents: 11273 diff changeset	393 assert.truthy(data, err);
7b2ee8995af9 storage tests: Add test for querying a set of IDs Kim Alvefur <zash@zash.se> parents: 11273 diff changeset	394 local count = 0;
7b2ee8995af9 storage tests: Add test for querying a set of IDs Kim Alvefur <zash@zash.se> parents: 11273 diff changeset	395 for id, item in data do
7b2ee8995af9 storage tests: Add test for querying a set of IDs Kim Alvefur <zash@zash.se> parents: 11273 diff changeset	396 count = count + 1;
7b2ee8995af9 storage tests: Add test for querying a set of IDs Kim Alvefur <zash@zash.se> parents: 11273 diff changeset	397 assert.truthy(id);
7b2ee8995af9 storage tests: Add test for querying a set of IDs Kim Alvefur <zash@zash.se> parents: 11273 diff changeset	398 assert.equal(test_data[count==1 and 2 or 4][1], id);
7b2ee8995af9 storage tests: Add test for querying a set of IDs Kim Alvefur <zash@zash.se> parents: 11273 diff changeset	399 assert(st.is_stanza(item));
7b2ee8995af9 storage tests: Add test for querying a set of IDs Kim Alvefur <zash@zash.se> parents: 11273 diff changeset	400 assert.equal("test", item.name);
7b2ee8995af9 storage tests: Add test for querying a set of IDs Kim Alvefur <zash@zash.se> parents: 11273 diff changeset	401 assert.equal("urn:example:foo", item.attr.xmlns);
7b2ee8995af9 storage tests: Add test for querying a set of IDs Kim Alvefur <zash@zash.se> parents: 11273 diff changeset	402 assert.equal(2, #item.tags);
7b2ee8995af9 storage tests: Add test for querying a set of IDs Kim Alvefur <zash@zash.se> parents: 11273 diff changeset	403 end
7b2ee8995af9 storage tests: Add test for querying a set of IDs Kim Alvefur <zash@zash.se> parents: 11273 diff changeset	404 assert.equal(2, count);
7b2ee8995af9 storage tests: Add test for querying a set of IDs Kim Alvefur <zash@zash.se> parents: 11273 diff changeset	405
7b2ee8995af9 storage tests: Add test for querying a set of IDs Kim Alvefur <zash@zash.se> parents: 11273 diff changeset	406 end);
7b2ee8995af9 storage tests: Add test for querying a set of IDs Kim Alvefur <zash@zash.se> parents: 11273 diff changeset	407
7b2ee8995af9 storage tests: Add test for querying a set of IDs Kim Alvefur <zash@zash.se> parents: 11273 diff changeset	408
11353 367e6beaf8ab storage: Test reverse-ordered queries Kim Alvefur <zash@zash.se> parents: 11276 diff changeset	409 it("can be queried in reverse", function ()
367e6beaf8ab storage: Test reverse-ordered queries Kim Alvefur <zash@zash.se> parents: 11276 diff changeset	410
367e6beaf8ab storage: Test reverse-ordered queries Kim Alvefur <zash@zash.se> parents: 11276 diff changeset	411 local data, err = archive:find("user", {
367e6beaf8ab storage: Test reverse-ordered queries Kim Alvefur <zash@zash.se> parents: 11276 diff changeset	412 reverse = true;
367e6beaf8ab storage: Test reverse-ordered queries Kim Alvefur <zash@zash.se> parents: 11276 diff changeset	413 limit = 3;
367e6beaf8ab storage: Test reverse-ordered queries Kim Alvefur <zash@zash.se> parents: 11276 diff changeset	414 });
367e6beaf8ab storage: Test reverse-ordered queries Kim Alvefur <zash@zash.se> parents: 11276 diff changeset	415 assert.truthy(data, err);
367e6beaf8ab storage: Test reverse-ordered queries Kim Alvefur <zash@zash.se> parents: 11276 diff changeset	416
367e6beaf8ab storage: Test reverse-ordered queries Kim Alvefur <zash@zash.se> parents: 11276 diff changeset	417 local i = #test_data;
367e6beaf8ab storage: Test reverse-ordered queries Kim Alvefur <zash@zash.se> parents: 11276 diff changeset	418 for id, item in data do
367e6beaf8ab storage: Test reverse-ordered queries Kim Alvefur <zash@zash.se> parents: 11276 diff changeset	419 assert.truthy(id);
367e6beaf8ab storage: Test reverse-ordered queries Kim Alvefur <zash@zash.se> parents: 11276 diff changeset	420 assert.equal(test_data[i][1], id);
367e6beaf8ab storage: Test reverse-ordered queries Kim Alvefur <zash@zash.se> parents: 11276 diff changeset	421 assert(st.is_stanza(item));
367e6beaf8ab storage: Test reverse-ordered queries Kim Alvefur <zash@zash.se> parents: 11276 diff changeset	422 assert.equal("test", item.name);
367e6beaf8ab storage: Test reverse-ordered queries Kim Alvefur <zash@zash.se> parents: 11276 diff changeset	423 assert.equal("urn:example:foo", item.attr.xmlns);
367e6beaf8ab storage: Test reverse-ordered queries Kim Alvefur <zash@zash.se> parents: 11276 diff changeset	424 assert.equal(2, #item.tags);
367e6beaf8ab storage: Test reverse-ordered queries Kim Alvefur <zash@zash.se> parents: 11276 diff changeset	425 i = i - 1;
367e6beaf8ab storage: Test reverse-ordered queries Kim Alvefur <zash@zash.se> parents: 11276 diff changeset	426 end
367e6beaf8ab storage: Test reverse-ordered queries Kim Alvefur <zash@zash.se> parents: 11276 diff changeset	427
367e6beaf8ab storage: Test reverse-ordered queries Kim Alvefur <zash@zash.se> parents: 11276 diff changeset	428 end);
367e6beaf8ab storage: Test reverse-ordered queries Kim Alvefur <zash@zash.se> parents: 11276 diff changeset	429
367e6beaf8ab storage: Test reverse-ordered queries Kim Alvefur <zash@zash.se> parents: 11276 diff changeset	430
9466 b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	431 end);
9470 0d491bc98b9f storagemanager tests: Add additional archive query tests Matthew Wild <mwild1@gmail.com> parents: 9467 diff changeset	432
9471 6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	433 it("can selectively delete items", function ()
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	434 local delete_id;
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	435 do
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	436 local data = assert(archive:find("user", {}));
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	437 local count = 0;
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	438 for id, item, when in data do --luacheck: ignore 213/item 213/when
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	439 count = count + 1;
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	440 if count == 2 then
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	441 delete_id = id;
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	442 end
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	443 assert.truthy(id);
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	444 end
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	445 assert.equal(#test_data, count);
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	446 end
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	447
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	448 assert(archive:delete("user", { key = delete_id }));
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	449
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	450 do
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	451 local data = assert(archive:find("user", {}));
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	452 local count = 0;
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	453 for id, item, when in data do --luacheck: ignore 213/item 213/when
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	454 count = count + 1;
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	455 assert.truthy(id);
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	456 assert.not_equal(delete_id, id);
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	457 end
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	458 assert.equal(#test_data-1, count);
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	459 end
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	460 end);
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	461
9466 b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	462 it("can be purged", function ()
10541 6c6ff4509082 tests: Silence [luacheck] warnings Kim Alvefur <zash@zash.se> parents: 9691 diff changeset	463 -- luacheck: ignore 211/err
9466 b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	464 local ok, err = archive:delete("user");
b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	465 assert.truthy(ok);
9467 2098794ac866 storagemanager tests: Add some additional checks Matthew Wild <mwild1@gmail.com> parents: 9466 diff changeset	466 local data, err = archive:find("user", {
2098794ac866 storagemanager tests: Add some additional checks Matthew Wild <mwild1@gmail.com> parents: 9466 diff changeset	467 with = "contact@example.com";
2098794ac866 storagemanager tests: Add some additional checks Matthew Wild <mwild1@gmail.com> parents: 9466 diff changeset	468 });
2098794ac866 storagemanager tests: Add some additional checks Matthew Wild <mwild1@gmail.com> parents: 9466 diff changeset	469 assert.truthy(data);
2098794ac866 storagemanager tests: Add some additional checks Matthew Wild <mwild1@gmail.com> parents: 9466 diff changeset	470 local count = 0;
2098794ac866 storagemanager tests: Add some additional checks Matthew Wild <mwild1@gmail.com> parents: 9466 diff changeset	471 for id, item, when in data do -- luacheck: ignore id item when
2098794ac866 storagemanager tests: Add some additional checks Matthew Wild <mwild1@gmail.com> parents: 9466 diff changeset	472 count = count + 1;
2098794ac866 storagemanager tests: Add some additional checks Matthew Wild <mwild1@gmail.com> parents: 9466 diff changeset	473 end
2098794ac866 storagemanager tests: Add some additional checks Matthew Wild <mwild1@gmail.com> parents: 9466 diff changeset	474 assert.equal(0, count);
9466 b70ce39d366f storagemanager tests: Add initial basic tests for archive stores Matthew Wild <mwild1@gmail.com> parents: 9452 diff changeset	475 end);
9471 6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	476
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	477 it("can truncate the oldest items", function ()
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	478 local username = "user-truncate";
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	479 for i = 1, 10 do
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	480 assert(archive:append(username, nil, test_stanza, i, "contact@example.com"));
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	481 end
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	482 assert(archive:delete(username, { truncate = 3 }));
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	483
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	484 do
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	485 local data = assert(archive:find(username, {}));
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	486 local count = 0;
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	487 for id, item, when in data do --luacheck: ignore 213/when
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	488 count = count + 1;
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	489 assert.truthy(id);
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	490 assert(st.is_stanza(item));
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	491 assert(when > 7, ("%d > 7"):format(when));
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	492 end
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	493 assert.equal(3, count);
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	494 end
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	495 end);
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	496
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	497 it("overwrites existing keys with new data", function ()
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	498 local prefix = ("a"):rep(50);
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	499 local username = "user-overwrite";
11739 e0d0680e04cc core.storagemanager: Respect archive ids issued by storage drivers in tests Kim Alvefur <zash@zash.se> parents: 11424 diff changeset	500 local a1 = assert(archive:append(username, prefix.."-1", test_stanza, test_time, "contact@example.com"));
e0d0680e04cc core.storagemanager: Respect archive ids issued by storage drivers in tests Kim Alvefur <zash@zash.se> parents: 11424 diff changeset	501 local a2 = assert(archive:append(username, prefix.."-2", test_stanza, test_time, "contact@example.com"));
e0d0680e04cc core.storagemanager: Respect archive ids issued by storage drivers in tests Kim Alvefur <zash@zash.se> parents: 11424 diff changeset	502 local ids = { a1, a2, };
9471 6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	503
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	504 do
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	505 local data = assert(archive:find(username, {}));
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	506 local count = 0;
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	507 for id, item, when in data do --luacheck: ignore 213/when
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	508 count = count + 1;
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	509 assert.truthy(id);
11739 e0d0680e04cc core.storagemanager: Respect archive ids issued by storage drivers in tests Kim Alvefur <zash@zash.se> parents: 11424 diff changeset	510 assert.equals(ids[count], id);
9471 6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	511 assert(st.is_stanza(item));
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	512 end
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	513 assert.equal(2, count);
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	514 end
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	515
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	516 local new_stanza = st.clone(test_stanza);
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	517 new_stanza.attr.foo = "bar";
11739 e0d0680e04cc core.storagemanager: Respect archive ids issued by storage drivers in tests Kim Alvefur <zash@zash.se> parents: 11424 diff changeset	518 assert(archive:append(username, a2, new_stanza, test_time+1, "contact2@example.com"));
9471 6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	519
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	520 do
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	521 local data = assert(archive:find(username, {}));
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	522 local count = 0;
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	523 for id, item, when in data do
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	524 count = count + 1;
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	525 assert.truthy(id);
11739 e0d0680e04cc core.storagemanager: Respect archive ids issued by storage drivers in tests Kim Alvefur <zash@zash.se> parents: 11424 diff changeset	526 assert.equals(ids[count], id);
9471 6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	527 assert(st.is_stanza(item));
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	528 if count == 2 then
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	529 assert.equals(test_time+1, when);
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	530 assert.equals("bar", item.attr.foo);
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	531 end
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	532 end
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	533 assert.equal(2, count);
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	534 end
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	535 end);
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	536
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	537 it("can contain multiple long unique keys #issue1073", function ()
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	538 local prefix = ("a"):rep(50);
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	539 assert(archive:append("user-issue1073", prefix.."-1", test_stanza, test_time, "contact@example.com"));
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	540 assert(archive:append("user-issue1073", prefix.."-2", test_stanza, test_time, "contact@example.com"));
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	541
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	542 local data = assert(archive:find("user-issue1073", {}));
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	543 local count = 0;
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	544 for id, item, when in data do --luacheck: ignore 213/when
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	545 count = count + 1;
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	546 assert.truthy(id);
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	547 assert(st.is_stanza(item));
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	548 end
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	549 assert.equal(2, count);
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	550 assert(archive:delete("user-issue1073"));
6798fcd25e9c storagemanager tests: Add many more archive tests, including (failing) cases for #1200 and #1073 Matthew Wild <mwild1@gmail.com> parents: 9470 diff changeset	551 end);
10837 f23363380599 mod_storage_internal: Implement key-value API Kim Alvefur <zash@zash.se> parents: 10836 diff changeset	552
f23363380599 mod_storage_internal: Implement key-value API Kim Alvefur <zash@zash.se> parents: 10836 diff changeset	553 it("can be treated as a map store", function ()
f23363380599 mod_storage_internal: Implement key-value API Kim Alvefur <zash@zash.se> parents: 10836 diff changeset	554 assert.falsy(archive:get("mapuser", "no-such-id"));
f23363380599 mod_storage_internal: Implement key-value API Kim Alvefur <zash@zash.se> parents: 10836 diff changeset	555 assert.falsy(archive:set("mapuser", "no-such-id", test_stanza));
f23363380599 mod_storage_internal: Implement key-value API Kim Alvefur <zash@zash.se> parents: 10836 diff changeset	556
f23363380599 mod_storage_internal: Implement key-value API Kim Alvefur <zash@zash.se> parents: 10836 diff changeset	557 local id = archive:append("mapuser", nil, test_stanza, test_time, "contact@example.com");
10842 5a6ba2f38e2b mod_storage_internal: Fix keeping old timestamp in archive map API Kim Alvefur <zash@zash.se> parents: 10837 diff changeset	558 do
5a6ba2f38e2b mod_storage_internal: Fix keeping old timestamp in archive map API Kim Alvefur <zash@zash.se> parents: 10837 diff changeset	559 local stanza_roundtrip, when, with = archive:get("mapuser", id);
11354 10fba62332c5 mod_storage_sql: Implement map-like API for archives Kim Alvefur <zash@zash.se> parents: 11353 diff changeset	560 assert.same(tostring(test_stanza), tostring(stanza_roundtrip), "same stanza is returned");
10842 5a6ba2f38e2b mod_storage_internal: Fix keeping old timestamp in archive map API Kim Alvefur <zash@zash.se> parents: 10837 diff changeset	561 assert.equal(test_time, when, "same 'when' is returned");
5a6ba2f38e2b mod_storage_internal: Fix keeping old timestamp in archive map API Kim Alvefur <zash@zash.se> parents: 10837 diff changeset	562 assert.equal("contact@example.com", with, "same 'with' is returned");
5a6ba2f38e2b mod_storage_internal: Fix keeping old timestamp in archive map API Kim Alvefur <zash@zash.se> parents: 10837 diff changeset	563 end
10837 f23363380599 mod_storage_internal: Implement key-value API Kim Alvefur <zash@zash.se> parents: 10836 diff changeset	564
f23363380599 mod_storage_internal: Implement key-value API Kim Alvefur <zash@zash.se> parents: 10836 diff changeset	565 local replacement_stanza = st.stanza("test", { xmlns = "urn:example:foo" })
f23363380599 mod_storage_internal: Implement key-value API Kim Alvefur <zash@zash.se> parents: 10836 diff changeset	566 :tag("bar"):up()
f23363380599 mod_storage_internal: Implement key-value API Kim Alvefur <zash@zash.se> parents: 10836 diff changeset	567 :reset();
10842 5a6ba2f38e2b mod_storage_internal: Fix keeping old timestamp in archive map API Kim Alvefur <zash@zash.se> parents: 10837 diff changeset	568 assert(archive:set("mapuser", id, replacement_stanza, test_time+1));
5a6ba2f38e2b mod_storage_internal: Fix keeping old timestamp in archive map API Kim Alvefur <zash@zash.se> parents: 10837 diff changeset	569
5a6ba2f38e2b mod_storage_internal: Fix keeping old timestamp in archive map API Kim Alvefur <zash@zash.se> parents: 10837 diff changeset	570 do
5a6ba2f38e2b mod_storage_internal: Fix keeping old timestamp in archive map API Kim Alvefur <zash@zash.se> parents: 10837 diff changeset	571 local replaced, when, with = archive:get("mapuser", id);
11354 10fba62332c5 mod_storage_sql: Implement map-like API for archives Kim Alvefur <zash@zash.se> parents: 11353 diff changeset	572 assert.same(tostring(replacement_stanza), tostring(replaced), "replaced stanza is returned");
10842 5a6ba2f38e2b mod_storage_internal: Fix keeping old timestamp in archive map API Kim Alvefur <zash@zash.se> parents: 10837 diff changeset	573 assert.equal(test_time+1, when, "modified 'when' is returned");
5a6ba2f38e2b mod_storage_internal: Fix keeping old timestamp in archive map API Kim Alvefur <zash@zash.se> parents: 10837 diff changeset	574 assert.equal("contact@example.com", with, "original 'with' is returned");
5a6ba2f38e2b mod_storage_internal: Fix keeping old timestamp in archive map API Kim Alvefur <zash@zash.se> parents: 10837 diff changeset	575 end
10837 f23363380599 mod_storage_internal: Implement key-value API Kim Alvefur <zash@zash.se> parents: 10836 diff changeset	576 end);
f23363380599 mod_storage_internal: Implement key-value API Kim Alvefur <zash@zash.se> parents: 10836 diff changeset	577
9389 9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	578 end);
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	579 end);
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	580 end
9ae575efbb1f Add storage tests (currently only internal and sqlite) Matthew Wild <mwild1@gmail.com> parents: diff changeset	581 end);

prosody

e273ef869794

spec/core_storagemanager_spec.lua

Software / code / prosody

Annotate

spec/core_storagemanager_spec.lua @ 11763:e273ef869794

Software `/` code `/` prosody