From 6b841f66fd7aca6bdbf36bc747de4d2e14a4a521 Mon Sep 17 00:00:00 2001 From: Matthew Wild Date: Wed, 10 Oct 2018 22:03:11 +0100 Subject: storagemanager tests: Add some additional checks --- spec/core_storagemanager_spec.lua | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'spec') diff --git a/spec/core_storagemanager_spec.lua b/spec/core_storagemanager_spec.lua index ea518c62..25e5cc6a 100644 --- a/spec/core_storagemanager_spec.lua +++ b/spec/core_storagemanager_spec.lua @@ -108,7 +108,9 @@ describe("storagemanager", function () with = "contact@example.com"; }); assert.truthy(data); + local count = 0; for id, item, when in data do + count = count + 1; assert.truthy(id); assert(st.is_stanza(item)); assert.equal("test", item.name); @@ -116,10 +118,20 @@ describe("storagemanager", function () assert.equal(2, #item.tags); assert.equal(test_time, when); end + assert.equal(1, count); end); it("can be purged", function () local ok, err = archive:delete("user"); assert.truthy(ok); + local data, err = archive:find("user", { + with = "contact@example.com"; + }); + assert.truthy(data); + local count = 0; + for id, item, when in data do -- luacheck: ignore id item when + count = count + 1; + end + assert.equal(0, count); end); end); end); -- cgit v1.2.3