prosody
495de404a8ae
tests/test_util_stanza.lua

Find changesets by keywords by author, files, the commit message, revision number or hash, or revset expression.

Software / code / prosody

Annotate

tests/test_util_stanza.lua @ 7567:495de404a8ae

ejabberdsql2prosody: rename variable 'host' to prevent shadowing upvalue [luacheck] Functions roster(), roster_pending(), roster_group(), private_storage() and offline_msg() have argument named "host", which used to shadow upvalue of this variable before this change. Instead of renaming this argument, let's rename the variable to match what the script says in usage: Usage: ejabberdsql2prosody.lua filename.txt hostname
author Anton Shestakov <av6@dwimlabs.net>
date Fri, 12 Aug 2016 13:44:47 +0800
parent 7503:1810f1a4ff05
child 7961:ff556d010225
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1522
569d58d21612 Add copyright header to those files missing one
Matthew Wild <mwild1@gmail.com>
parents: 682
diff changeset
1 -- Prosody IM
2923
b7049746bd29 Update copyright headers for 2010
Matthew Wild <mwild1@gmail.com>
parents: 1522
diff changeset
2 -- Copyright (C) 2008-2010 Matthew Wild
b7049746bd29 Update copyright headers for 2010
Matthew Wild <mwild1@gmail.com>
parents: 1522
diff changeset
3 -- Copyright (C) 2008-2010 Waqas Hussain
5776
bd0ff8ae98a8 Remove all trailing whitespace
Florian Zeitz <florob@babelmonkeys.de>
parents: 3639
diff changeset
4 --
1522
569d58d21612 Add copyright header to those files missing one
Matthew Wild <mwild1@gmail.com>
parents: 682
diff changeset
5 -- This project is MIT/X11 licensed. Please see the
569d58d21612 Add copyright header to those files missing one
Matthew Wild <mwild1@gmail.com>
parents: 682
diff changeset
6 -- COPYING file in the source package for more information.
569d58d21612 Add copyright header to those files missing one
Matthew Wild <mwild1@gmail.com>
parents: 682
diff changeset
7 --
569d58d21612 Add copyright header to those files missing one
Matthew Wild <mwild1@gmail.com>
parents: 682
diff changeset
8
682
dedd19e9d4b3 Add more tests for util/stanza.lua serialization routines
Matthew Wild <mwild1@gmail.com>
parents: 681
diff changeset
9
dedd19e9d4b3 Add more tests for util/stanza.lua serialization routines
Matthew Wild <mwild1@gmail.com>
parents: 681
diff changeset
10 function preserialize(preserialize, st)
dedd19e9d4b3 Add more tests for util/stanza.lua serialization routines
Matthew Wild <mwild1@gmail.com>
parents: 681
diff changeset
11 local stanza = st.stanza("message", { a = "a" });
dedd19e9d4b3 Add more tests for util/stanza.lua serialization routines
Matthew Wild <mwild1@gmail.com>
parents: 681
diff changeset
12 local stanza2 = preserialize(stanza);
dedd19e9d4b3 Add more tests for util/stanza.lua serialization routines
Matthew Wild <mwild1@gmail.com>
parents: 681
diff changeset
13 assert_is(stanza2 and stanza.name, "preserialize returns a stanza");
dedd19e9d4b3 Add more tests for util/stanza.lua serialization routines
Matthew Wild <mwild1@gmail.com>
parents: 681
diff changeset
14 assert_is_not(stanza2.tags, "Preserialized stanza has no tag list");
dedd19e9d4b3 Add more tests for util/stanza.lua serialization routines
Matthew Wild <mwild1@gmail.com>
parents: 681
diff changeset
15 assert_is_not(stanza2.last_add, "Preserialized stanza has no last_add marker");
dedd19e9d4b3 Add more tests for util/stanza.lua serialization routines
Matthew Wild <mwild1@gmail.com>
parents: 681
diff changeset
16 assert_is_not(getmetatable(stanza2), "Preserialized stanza has no metatable");
dedd19e9d4b3 Add more tests for util/stanza.lua serialization routines
Matthew Wild <mwild1@gmail.com>
parents: 681
diff changeset
17 end
681
686b73503ce8 Add test for previous commit
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
18
686b73503ce8 Add test for previous commit
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
19 function deserialize(deserialize, st)
686b73503ce8 Add test for previous commit
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
20 local stanza = st.stanza("message", { a = "a" });
5776
bd0ff8ae98a8 Remove all trailing whitespace
Florian Zeitz <florob@babelmonkeys.de>
parents: 3639
diff changeset
21
681
686b73503ce8 Add test for previous commit
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
22 local stanza2 = deserialize(st.preserialize(stanza));
682
dedd19e9d4b3 Add more tests for util/stanza.lua serialization routines
Matthew Wild <mwild1@gmail.com>
parents: 681
diff changeset
23 assert_is(stanza2 and stanza.name, "deserialize returns a stanza");
dedd19e9d4b3 Add more tests for util/stanza.lua serialization routines
Matthew Wild <mwild1@gmail.com>
parents: 681
diff changeset
24 assert_table(stanza2.attr, "Deserialized stanza has attributes");
dedd19e9d4b3 Add more tests for util/stanza.lua serialization routines
Matthew Wild <mwild1@gmail.com>
parents: 681
diff changeset
25 assert_equal(stanza2.attr.a, "a", "Deserialized stanza retains attributes");
dedd19e9d4b3 Add more tests for util/stanza.lua serialization routines
Matthew Wild <mwild1@gmail.com>
parents: 681
diff changeset
26 assert_table(getmetatable(stanza2), "Deserialized stanza has metatable");
681
686b73503ce8 Add test for previous commit
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
27 end
7254
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
28
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
29 function stanza(stanza)
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
30 local s = stanza("foo", { xmlns = "myxmlns", a = "attr-a" });
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
31 assert_equal(s.name, "foo");
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
32 assert_equal(s.attr.xmlns, "myxmlns");
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
33 assert_equal(s.attr.a, "attr-a");
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
34
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
35 local s1 = stanza("s1");
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
36 assert_equal(s1.name, "s1");
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
37 assert_equal(s1.attr.xmlns, nil);
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
38 assert_equal(#s1, 0);
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
39 assert_equal(#s1.tags, 0);
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
40
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
41 s1:tag("child1");
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
42 assert_equal(#s1.tags, 1);
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
43 assert_equal(s1.tags[1].name, "child1");
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
44
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
45 s1:tag("grandchild1"):up();
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
46 assert_equal(#s1.tags, 1);
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
47 assert_equal(s1.tags[1].name, "child1");
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
48 assert_equal(#s1.tags[1], 1);
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
49 assert_equal(s1.tags[1][1].name, "grandchild1");
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
50
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
51 s1:up():tag("child2");
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
52 assert_equal(#s1.tags, 2, tostring(s1));
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
53 assert_equal(s1.tags[1].name, "child1");
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
54 assert_equal(s1.tags[2].name, "child2");
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
55 assert_equal(#s1.tags[1], 1);
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
56 assert_equal(s1.tags[1][1].name, "grandchild1");
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
57
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
58 s1:up():text("Hello world");
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
59 assert_equal(#s1.tags, 2);
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
60 assert_equal(#s1, 3);
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
61 assert_equal(s1.tags[1].name, "child1");
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
62 assert_equal(s1.tags[2].name, "child2");
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
63 assert_equal(#s1.tags[1], 1);
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
64 assert_equal(s1.tags[1][1].name, "grandchild1");
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
65 end
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
66
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
67 function message(message)
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
68 local m = message();
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
69 assert_equal(m.name, "message");
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
70 end
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
71
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
72 function iq(iq)
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
73 local i = iq();
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
74 assert_equal(i.name, "iq");
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
75 end
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
76
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
77 function presence(presence)
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
78 local p = presence();
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
79 assert_equal(p.name, "presence");
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
80 end
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
81
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
82 function reply(reply, _M)
7503
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
83 do
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
84 -- Test stanza
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
85 local s = _M.stanza("s", { to = "touser", from = "fromuser", id = "123" })
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
86 :tag("child1");
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
87 -- Make reply stanza
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
88 local r = reply(s);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
89 assert_equal(r.name, s.name);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
90 assert_equal(r.id, s.id);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
91 assert_equal(r.attr.to, s.attr.from);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
92 assert_equal(r.attr.from, s.attr.to);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
93 assert_equal(#r.tags, 0, "A reply should not include children of the original stanza");
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
94 end
7254
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
95
7503
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
96 do
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
97 -- Test stanza
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
98 local s = _M.stanza("iq", { to = "touser", from = "fromuser", id = "123", type = "get" })
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
99 :tag("child1");
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
100 -- Make reply stanza
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
101 local r = reply(s);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
102 assert_equal(r.name, s.name);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
103 assert_equal(r.id, s.id);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
104 assert_equal(r.attr.to, s.attr.from);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
105 assert_equal(r.attr.from, s.attr.to);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
106 assert_equal(r.attr.type, "result");
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
107 assert_equal(#r.tags, 0, "A reply should not include children of the original stanza");
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
108 end
7254
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
109
7503
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
110 do
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
111 -- Test stanza
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
112 local s = _M.stanza("iq", { to = "touser", from = "fromuser", id = "123", type = "set" })
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
113 :tag("child1");
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
114 -- Make reply stanza
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
115 local r = reply(s);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
116 assert_equal(r.name, s.name);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
117 assert_equal(r.id, s.id);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
118 assert_equal(r.attr.to, s.attr.from);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
119 assert_equal(r.attr.from, s.attr.to);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
120 assert_equal(r.attr.type, "result");
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
121 assert_equal(#r.tags, 0, "A reply should not include children of the original stanza");
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
122 end
7254
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
123 end
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
124
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
125 function error_reply(error_reply, _M)
7503
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
126 do
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
127 -- Test stanza
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
128 local s = _M.stanza("s", { to = "touser", from = "fromuser", id = "123" })
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
129 :tag("child1");
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
130 -- Make reply stanza
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
131 local r = error_reply(s);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
132 assert_equal(r.name, s.name);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
133 assert_equal(r.id, s.id);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
134 assert_equal(r.attr.to, s.attr.from);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
135 assert_equal(r.attr.from, s.attr.to);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
136 assert_equal(#r.tags, 1);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
137 end
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
138
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
139 do
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
140 -- Test stanza
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
141 local s = _M.stanza("iq", { to = "touser", from = "fromuser", id = "123", type = "get" })
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
142 :tag("child1");
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
143 -- Make reply stanza
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
144 local r = error_reply(s);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
145 assert_equal(r.name, s.name);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
146 assert_equal(r.id, s.id);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
147 assert_equal(r.attr.to, s.attr.from);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
148 assert_equal(r.attr.from, s.attr.to);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
149 assert_equal(r.attr.type, "error");
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
150 assert_equal(#r.tags, 1);
1810f1a4ff05 test_util_stanza: wrap individual test blocks in do-end [luacheck]
Anton Shestakov <av6@dwimlabs.net>
parents: 7254
diff changeset
151 end
7254
8aaae816cc7e tests: Expand util.stanza tests
Matthew Wild <mwild1@gmail.com>
parents: 5776
diff changeset
152 end