test/tester.lua

-- One-shot test client: sends "-ping" to the bot and expects a reply

local verse = require "verse";

require "verse.client";

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

local c = verse.new();

c.connect_host = "prosody";

local timeout = 30;

verse.add_task(timeout, function ()

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

	os.exit(1);

end);

c:hook("ready", function ()

	c:send(verse.presence());

	c:send(verse.message({ to = "riddim@prosody", type = "chat" })

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

end);

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

	if stanza.name == "message" then

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

		if body then

			print("Reply from bot: "..body);

			if body:lower():match("pong") then

				print("TEST PASS");

				os.exit(0);

			else

				print("TEST FAIL: unexpected reply");

				os.exit(2);

			end

		end

	end

end);

c:hook("disconnected", function ()

	print("TEST FAIL: disconnected");

	os.exit(1);

end);

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

verse.loop();