• file
• latest
• revisions
• annotate
• diff
• comparison
• raw

tests/test_util_jid.lua@4c0dcd245d34 (annotated)

tests/test_util_jid.lua

Fri, 24 Oct 2008 07:27:36 +0100

author

Matthew Wild <mwild1@gmail.com>

date

Fri, 24 Oct 2008 07:27:36 +0100

branch

s2s

changeset 148

4c0dcd245d34

parent 28

4a238233f278

child 239

6f4e9911c7d1

permissions

-rw-r--r--

s2s works! \o/ \o/

28 4a238233f278 Adding initial unit testing scripts Matthew Wild <mwild1@gmail.com> parents: diff changeset	1
4a238233f278 Adding initial unit testing scripts Matthew Wild <mwild1@gmail.com> parents: diff changeset	2	function split(split)
4a238233f278 Adding initial unit testing scripts Matthew Wild <mwild1@gmail.com> parents: diff changeset	3	function test(jid, node, server, resource)
4a238233f278 Adding initial unit testing scripts Matthew Wild <mwild1@gmail.com> parents: diff changeset	4	local rnode, rserver, rresource = split(jid);
4a238233f278 Adding initial unit testing scripts Matthew Wild <mwild1@gmail.com> parents: diff changeset	5	assert_equal(node, rnode, "split("..jid..") failed");
4a238233f278 Adding initial unit testing scripts Matthew Wild <mwild1@gmail.com> parents: diff changeset	6	assert_equal(server, rserver, "split("..jid..") failed");
4a238233f278 Adding initial unit testing scripts Matthew Wild <mwild1@gmail.com> parents: diff changeset	7	assert_equal(resource, rresource, "split("..jid..") failed");
4a238233f278 Adding initial unit testing scripts Matthew Wild <mwild1@gmail.com> parents: diff changeset	8	end
4a238233f278 Adding initial unit testing scripts Matthew Wild <mwild1@gmail.com> parents: diff changeset	9	test("node@server", "node", "server", nil );
4a238233f278 Adding initial unit testing scripts Matthew Wild <mwild1@gmail.com> parents: diff changeset	10	test("node@server/resource", "node", "server", "resource" );
4a238233f278 Adding initial unit testing scripts Matthew Wild <mwild1@gmail.com> parents: diff changeset	11	test("server", nil, "server", nil );
4a238233f278 Adding initial unit testing scripts Matthew Wild <mwild1@gmail.com> parents: diff changeset	12	test("server/resource", nil, "server", "resource" );
4a238233f278 Adding initial unit testing scripts Matthew Wild <mwild1@gmail.com> parents: diff changeset	13	end