From a65352b35f6c549f8f62f77adabbf2cbcd8460e9 Mon Sep 17 00:00:00 2001
From: Matthew Wild <mwild1@gmail.com>
Date: Fri, 16 Mar 2018 14:24:53 +0000
Subject: util.stanza: Fix tests to call error_reply() correctly, and add tests
to ensure it vaguely works
---
spec/util_stanza_spec.lua | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/spec/util_stanza_spec.lua b/spec/util_stanza_spec.lua
index be294e49..d8e4ba71 100644
--- a/spec/util_stanza_spec.lua
+++ b/spec/util_stanza_spec.lua
@@ -134,12 +134,13 @@ describe("util.stanza", function()
local s = st.stanza("s", { to = "touser", from = "fromuser", id = "123" })
:tag("child1");
-- Make reply stanza
- local r = st.error_reply(s);
+ local r = st.error_reply(s, "cancel", "service-unavailable");
assert.are.equal(r.name, s.name);
assert.are.equal(r.id, s.id);
assert.are.equal(r.attr.to, s.attr.from);
assert.are.equal(r.attr.from, s.attr.to);
assert.are.equal(#r.tags, 1);
+ assert.are.equal(r.tags[1].tags[1].name, "service-unavailable");
end);
it("should work for <iq get>", function()
@@ -147,13 +148,14 @@ describe("util.stanza", function()
local s = st.stanza("iq", { to = "touser", from = "fromuser", id = "123", type = "get" })
:tag("child1");
-- Make reply stanza
- local r = st.error_reply(s);
+ local r = st.error_reply(s, "cancel", "service-unavailable");
assert.are.equal(r.name, s.name);
assert.are.equal(r.id, s.id);
assert.are.equal(r.attr.to, s.attr.from);
assert.are.equal(r.attr.from, s.attr.to);
assert.are.equal(r.attr.type, "error");
assert.are.equal(#r.tags, 1);
+ assert.are.equal(r.tags[1].tags[1].name, "service-unavailable");
end);
end);
end);
--
cgit v1.2.3