test/muc_tester.lua

-- One-shot test client: joins the MUC on the remote server and repeatedly

-- sends "-ping" until the bot replies with a pong (or a timeout is hit).

-- Usage: lua5.4 muc_tester.lua [timeout-seconds]

local verse = require "verse";

require "verse.client";

verse.set_log_handler(print, { "warn", "error" });

local room = "test@muc.remotemuc";

local nick = "tester";

local timeout = tonumber(arg and arg[1]) or 60;

local c = verse.new();

c.connect_host = "prosody";

verse.add_task(timeout, function ()

	print("TEST FAIL: no pong after "..timeout.."s");

	os.exit(1);

end);

c:hook("ready", function ()

	c:send(verse.presence());

	c:send(verse.presence({ to = room.."/"..nick })

		:tag("x", { xmlns = "http://jabber.org/protocol/muc" })

			:tag("history", { maxstanzas = "0" }));

	-- Keep poking the room until the bot answers; re-send the join too, in

	-- case the room was recreated underneath us

	verse.add_task(2, function ()

		c:send(verse.presence({ to = room.."/"..nick })

			:tag("x", { xmlns = "http://jabber.org/protocol/muc" })

				:tag("history", { maxstanzas = "0" }));

		c:send(verse.message({ to = room, type = "groupchat" })

			:tag("body"):text("-ping"));

		return 5;

	end);

end);

c:hook("stanza", function (stanza)

	if stanza.name == "message" and stanza.attr.type == "groupchat" then

		local from_nick = (stanza.attr.from or ""):match("/(.+)$");

		local body = stanza:get_child_text("body");

		if body and from_nick and from_nick ~= nick and body:lower():match("pong") then

			print("Reply in "..room.." from "..from_nick..": "..body);

			print("TEST PASS");

			os.exit(0);

		end

	end

end);

c:hook("disconnected", function ()

	print("TEST FAIL: disconnected");

	os.exit(1);

end);

c:connect_client("tester@prosody", "testerpass");

verse.loop();