author | Matthew Wild <mwild1@gmail.com> |
Tue, 31 Mar 2009 20:15:33 +0100 | |
changeset 948 | 4aff205cc4cd |
parent 682 | dedd19e9d4b3 |
child 1522 | 569d58d21612 |
permissions | -rw-r--r-- |
682
dedd19e9d4b3
Add more tests for util/stanza.lua serialization routines
Matthew Wild <mwild1@gmail.com>
parents:
681
diff
changeset
|
1 |
|
dedd19e9d4b3
Add more tests for util/stanza.lua serialization routines
Matthew Wild <mwild1@gmail.com>
parents:
681
diff
changeset
|
2 |
function preserialize(preserialize, st) |
dedd19e9d4b3
Add more tests for util/stanza.lua serialization routines
Matthew Wild <mwild1@gmail.com>
parents:
681
diff
changeset
|
3 |
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
|
4 |
local stanza2 = preserialize(stanza); |
dedd19e9d4b3
Add more tests for util/stanza.lua serialization routines
Matthew Wild <mwild1@gmail.com>
parents:
681
diff
changeset
|
5 |
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
|
6 |
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
|
7 |
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
|
8 |
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
|
9 |
end |
681 | 10 |
|
11 |
function deserialize(deserialize, st) |
|
12 |
local stanza = st.stanza("message", { a = "a" }); |
|
13 |
||
14 |
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
|
15 |
assert_is(stanza2 and stanza.name, "deserialize returns a stanza"); |
681 | 16 |
assert_is(stanza2.last_add, "Deserialized stanza is missing last_add for adding child tags"); |
682
dedd19e9d4b3
Add more tests for util/stanza.lua serialization routines
Matthew Wild <mwild1@gmail.com>
parents:
681
diff
changeset
|
17 |
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
|
18 |
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
|
19 |
assert_table(getmetatable(stanza2), "Deserialized stanza has metatable"); |
681 | 20 |
end |