File

local xmppstream = require "util.xmppstream";

describe("util.xmppstream", function()
	describe("#new()", function()
		it("should work", function()
			local function test(xml, expect_success, ex)
				local stanzas = {};
				local session = { notopen = true };
				local callbacks = {
					stream_ns = "streamns";
					stream_tag = "stream";
					default_ns = "stanzans";
					streamopened = function (_session)
						assert.are.equal(session, _session);
						assert.are.equal(session.notopen, true);
						_session.notopen = nil;
						return true;
					end;
					handlestanza = function (_session, stanza)
						assert.are.equal(session, _session);
						assert.are.equal(_session.notopen, nil);
						table.insert(stanzas, stanza);
					end;
					streamclosed = function (_session)
						assert.are.equal(session, _session);
						assert.are.equal(_session.notopen, nil);
						_session.notopen = nil;
					end;
				}
				if type(ex) == "table" then
					for k, v in pairs(ex) do
						if k ~= "_size_limit" then
							callbacks[k] = v;
						end
					end
				end
				local stream = xmppstream.new(session, callbacks, size_limit);
				local ok, err = pcall(function ()
					assert(stream:feed(xml));
				end);

				if ok and type(expect_success) == "function" then
					expect_success(stanzas);
				end
				assert.are.equal(not not ok, not not expect_success, "Expected "..(expect_success and ("success ("..tostring(err)..")") or "failure"));
			end

			local function test_stanza(stanza, expect_success, ex)
				return test([[<stream:stream xmlns:stream="streamns" xmlns="stanzans">]]..stanza, expect_success, ex);
			end

			test([[<stream:stream xmlns:stream="streamns"/>]], true);
			test([[<stream xmlns="streamns"/>]], true);

			test([[<stream1 xmlns="streamns"/>]], false);
			test([[<stream xmlns="streamns1"/>]], false);
			test("<>", false);

			test_stanza("<message/>", function (stanzas)
				assert.are.equal(#stanzas, 1);
				assert.are.equal(stanzas[1].name, "message");
			end);
			test_stanza("< message>>>>/>\n", false);

			test_stanza([[<x xmlns:a="b">
				<y xmlns:a="c">
					<a:z/>
				</y>
				<a:z/>
			</x>]], function (stanzas)
				assert.are.equal(#stanzas, 1);
				local s = stanzas[1];
				assert.are.equal(s.name, "x");
				assert.are.equal(#s.tags, 2);

				assert.are.equal(s.tags[1].name, "y");
				assert.are.equal(s.tags[1].attr.xmlns, nil);

				assert.are.equal(s.tags[1].tags[1].name, "z");
				assert.are.equal(s.tags[1].tags[1].attr.xmlns, "c");

				assert.are.equal(s.tags[2].name, "z");
				assert.are.equal(s.tags[2].attr.xmlns, "b");

				assert.are.equal(s.namespaces, nil);
			end);
		end);
	end);
end);