Add test plans for Thanks, Vote

1 files changed, 273 insertions, 0 deletions

diff --git a/test/test_vote.t b/test/test_vote.t
new file mode 100755
index 0000000..43537c5
--- /dev/null
+++ b/test/test_vote.t
@@ -0,0 +1,273 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use Test::More tests => 42;
+use Mock::CommandRegistry;
+
+use Plugin::Vote;
+
+
+my %ctx_a = (
+	irc => undef,
+	logger => undef,
+	who => 'user!who@example.com',
+	where => "#channel_a",
+	ided => undef,
+	rest => undef,
+	no_reenter => undef,
+);
+
+my %ctx_b = %ctx_a;
+$ctx_b{where} = "#channel_b";
+
+my $cr = new Mock::CommandRegistry;
+my $register = sub { $cr->register(@_); };
+Plugin::Vote->configure($register, undef, undef, undef);
+
+# Test all expected commands registered
+{
+	my @expected_commands = ("vote on", "vote yes", "vote no", "vote end");
+	for my $cmd (@expected_commands) {
+		my $is_registered = $cr->is_registered_to_owner("Plugin::Vote", $cmd);
+		ok($is_registered, "registered command $cmd");
+	}
+}
+
+
+# Test ending a vote when none is in progress produces error message
+{
+	my %ctx = %ctx_a;
+	my $r = $cr->run_owned("Plugin::Vote", "vote end", %ctx);
+	ok($r =~ m/no vote.*progress/i, "no vote error message");
+}
+
+
+sub ok_vote_match {
+	my ($result, $expect_ayes, $expect_noes) = @_;
+
+	if ($result =~ m/The votes are in.*Ayes: (\d+).*Noes: (\d+)/) {
+		is($1, $expect_ayes, "ayes match");
+		is($2, $expect_noes, "ayes match");
+	} else {
+		die("'$result' can't be taken apart");
+	}
+}
+
+sub vote_started {
+	my ($result) = @_;
+	$result =~ m/^Call to vote.*/;
+}
+
+# - Start a vote, end a vote, 0,0
+{
+	my %ctx = %ctx_a;
+	$ctx{rest} = "topic1";
+	my $r = $cr->run_owned("Plugin::Vote", "vote on", %ctx);
+	note($r);
+	ok(vote_started($r), "vote started");
+
+	$ctx{rest} = "";
+	$r = $cr->run_owned("Plugin::Vote", "vote end", %ctx);
+	note($r);
+	ok_vote_match($r, 0, 0);
+}
+
+# - Start a vote, start another, error message, end a vote, 0,0
+{
+	my %ctx = %ctx_a;
+	$ctx{rest} = "topic1";
+	my $r = $cr->run_owned("Plugin::Vote", "vote on", %ctx);
+	note($r);
+	ok(vote_started($r), "first vote started");
+
+	$ctx{rest} = "topic2";
+	$r = $cr->run_owned("Plugin::Vote", "vote on", %ctx);
+	note($r);
+	ok(!vote_started($r), "second vote not started");
+
+	$ctx{rest} = "";
+	$r = $cr->run_owned("Plugin::Vote", "vote end", %ctx);
+	note($r);
+	ok_vote_match($r, 0, 0);
+}
+
+# - Start a vote, vote yes, end a vote, 1,0
+{
+	my %ctx = %ctx_a;
+	$ctx{rest} = "topic1";
+	my $r = $cr->run_owned("Plugin::Vote", "vote on", %ctx);
+	note($r);
+	ok(vote_started($r), "vote started");
+
+	$ctx{rest} = "";
+	$r = $cr->run_owned("Plugin::Vote", "vote yes", %ctx);
+	note($r);
+
+	$r = $cr->run_owned("Plugin::Vote", "vote end", %ctx);
+	note($r);
+	ok_vote_match($r, 1, 0);
+}
+
+# - Start a vote, vote no, end a vote, 0,1
+{
+	my %ctx = %ctx_a;
+	$ctx{rest} = "topic1";
+	my $r = $cr->run_owned("Plugin::Vote", "vote on", %ctx);
+	note($r);
+	ok(vote_started($r), "vote started");
+
+	$ctx{rest} = "";
+	$r = $cr->run_owned("Plugin::Vote", "vote no", %ctx);
+	note($r);
+
+	$r = $cr->run_owned("Plugin::Vote", "vote end", %ctx);
+	note($r);
+	ok_vote_match($r, 0, 1);
+}
+
+# - Start a vote, vote yes twice, error message, end the vote, 1,0
+{
+	my %ctx = %ctx_a;
+	$ctx{rest} = "topic1";
+	my $r = $cr->run_owned("Plugin::Vote", "vote on", %ctx);
+	note($r);
+	ok(vote_started($r), "vote started");
+
+	$ctx{rest} = "";
+	$r = $cr->run_owned("Plugin::Vote", "vote yes", %ctx);
+	note($r);
+
+	$r = $cr->run_owned("Plugin::Vote", "vote yes", %ctx);
+	note($r);
+	ok($r =~ m/already voted/, "user told about double vote");
+
+	$r = $cr->run_owned("Plugin::Vote", "vote end", %ctx);
+	note($r);
+	ok_vote_match($r, 1, 0);
+}
+
+# - Start a vote, vote no twice, error message, end the vote, 0,1
+{
+	my %ctx = %ctx_a;
+	$ctx{rest} = "topic1";
+	my $r = $cr->run_owned("Plugin::Vote", "vote on", %ctx);
+	note($r);
+	ok(vote_started($r), "vote started");
+
+	$ctx{rest} = "";
+	$r = $cr->run_owned("Plugin::Vote", "vote no", %ctx);
+	note($r);
+
+	$r = $cr->run_owned("Plugin::Vote", "vote no", %ctx);
+	note($r);
+	ok($r =~ m/already voted/, "user told about double vote");
+
+	$r = $cr->run_owned("Plugin::Vote", "vote end", %ctx);
+	note($r);
+	ok_vote_match($r, 0, 1);
+}
+
+# - Start a vote, vote no then yes, error message, end the vote, 0,1
+{
+	my %ctx = %ctx_a;
+	$ctx{rest} = "topic1";
+	my $r = $cr->run_owned("Plugin::Vote", "vote on", %ctx);
+	note($r);
+	ok(vote_started($r), "vote started");
+
+	$ctx{rest} = "";
+	$r = $cr->run_owned("Plugin::Vote", "vote no", %ctx);
+	note($r);
+
+	$r = $cr->run_owned("Plugin::Vote", "vote yes", %ctx);
+	note($r);
+	ok($r =~ m/already voted/, "user told about double vote");
+
+	$r = $cr->run_owned("Plugin::Vote", "vote end", %ctx);
+	note($r);
+	ok_vote_match($r, 0, 1);
+}
+
+# - Start a vote, two people vote yes, one no, end the vote, 2,1
+{
+	my %ctx = %ctx_a;
+	$ctx{rest} = "topic1";
+	my $r = $cr->run_owned("Plugin::Vote", "vote on", %ctx);
+	note($r);
+	ok(vote_started($r), "vote started");
+
+	$ctx{rest} = "";
+	$r = $cr->run_owned("Plugin::Vote", "vote yes", %ctx);
+	note($r);
+
+	my $orig_who = $ctx{who};
+	$ctx{who} = "a$orig_who";
+	$r = $cr->run_owned("Plugin::Vote", "vote yes", %ctx);
+	note($r);
+
+	$ctx{who} = "b$orig_who";
+	$r = $cr->run_owned("Plugin::Vote", "vote no", %ctx);
+	note($r);
+
+	$ctx{who} = $orig_who;
+	$r = $cr->run_owned("Plugin::Vote", "vote end", %ctx);
+	note($r);
+	ok_vote_match($r, 2, 1);
+}
+
+# Test cases cross-chan
+# - Start a vote #a, vote on #b, error message, end a vote, 0,0
+{
+	my %ctx = %ctx_a;
+
+	# Start a vote on channel A
+	$ctx{rest} = "topic1";
+	my $r = $cr->run_owned("Plugin::Vote", "vote on", %ctx);
+	note($r);
+	ok(vote_started($r), "vote started");
+
+	# Vote yes on channel B - should fail since votes are channel-bound
+	$r = $cr->run_owned("Plugin::Vote", "vote yes", %ctx_b);
+	note($r);
+
+	$r = $cr->run_owned("Plugin::Vote", "vote end", %ctx);
+	note($r);
+	ok_vote_match($r, 0, 0);
+}
+
+# - Start a vote #a, start identical vote #b, vote #a yes, vote #b no, end #a vote, 1,0, end #b vote, 0,1
+{
+	my %ctx_m_a = %ctx_a;
+	my %ctx_m_b = %ctx_b;
+
+	# Start a vote on channel A
+	$ctx_m_a{rest} = "topic1";
+	my $r = $cr->run_owned("Plugin::Vote", "vote on", %ctx_m_a);
+	note($r);
+	ok(vote_started($r), "vote A started");
+
+	# Start a vote on channel B
+	$ctx_m_b{rest} = "topic1";
+	$r = $cr->run_owned("Plugin::Vote", "vote on", %ctx_m_b);
+	note($r);
+	ok(vote_started($r), "vote B started");
+
+	# Vote yes on channel A
+	$r = $cr->run_owned("Plugin::Vote", "vote yes", %ctx_m_a);
+	note($r);
+
+	# Vote no on channel B
+	$r = $cr->run_owned("Plugin::Vote", "vote no", %ctx_m_b);
+	note($r);
+
+	# Gather votes from A, expect 1 for, 0 against
+	$r = $cr->run_owned("Plugin::Vote", "vote end", %ctx_m_a);
+	note($r);
+	ok_vote_match($r, 1, 0);
+
+	# Gather votes from B, expect 0 for, 1 against
+	$r = $cr->run_owned("Plugin::Vote", "vote end", %ctx_m_b);
+	note($r);
+	ok_vote_match($r, 0, 1);
+}