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

tests/test_util_jid.lua@018705d57f09 (annotated)

tests/test_util_jid.lua

Sun, 05 Oct 2008 19:10:21 +0100

author

Matthew Wild <mwild1@gmail.com>

date

Sun, 05 Oct 2008 19:10:21 +0100

branch

tls

changeset 66

018705d57f09

parent 28

4a238233f278

child 239

6f4e9911c7d1

permissions

-rw-r--r--

Working TLS!

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