Add test plan for Random

4 files changed, 75 insertions, 3 deletions

diff --git a/Mock/CommandRegistry.pm b/Mock/CommandRegistry.pm
index 6531fd7..cf1d573 100644
--- a/Mock/CommandRegistry.pm
+++ b/Mock/CommandRegistry.pm
@@ -22,7 +22,7 @@ sub run {
 
 sub run_owned {
 	my ($self, $owner, $command, %ctx) = @_;
-	die "$owner::$command not registered\n"
+	die "$owner\:\:$command not registered\n"
 		unless $self->is_registered_to_owner($owner, $command);
 
 	# XXX plugins need to eventually use the ctx hash directly. Much more
diff --git a/test.pl b/test.pl
index fbce463..b819e0e 100755
--- a/test.pl
+++ b/test.pl
@@ -3,7 +3,7 @@
 use Test::Harness;
 
 my @tests = map {"test/test_$_.t"} qw/
-	autojoin echo ping thanks vote
+	autojoin echo ping random thanks vote
 /;
 
 runtests(@tests);
diff --git a/test/TODO.md b/test/TODO.md
index b8d66bf..2dc857d 100644
--- a/test/TODO.md
+++ b/test/TODO.md
@@ -19,7 +19,6 @@
 * Men.pm
 * Natural.pm
 * Quote_Grab.pm
-* Random.pm
 * Source.pm
 * Timezone.pm
 * Titillate.pm
@@ -32,5 +31,6 @@
 * Autojoin.pm
 * Echo.pm
 * Ping.pm
+* Random.pm
 * Thanks.pm
 * Vote.pm
diff --git a/test/test_random.t b/test/test_random.t
new file mode 100755
index 0000000..fc30336
--- /dev/null
+++ b/test/test_random.t
@@ -0,0 +1,72 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use Test::More tests => 10;
+use Mock::CommandRegistry;
+
+use Plugin::Random;
+
+my $cr = new Mock::CommandRegistry;
+my $register = sub { $cr->register(@_); };
+Plugin::Random->configure($register, undef, undef, undef);
+
+my %ctx = (
+	irc => undef,
+	logger => undef,
+	who => undef,
+	where => undef,
+	ided => undef,
+	rest => undef,
+	no_reenter => undef,
+	args => undef
+);
+
+# Test that all expected commands were registered
+{
+	for my $cmd (qw/shuffle choose/) {
+		my $is_registered = $cr->is_registered_to_owner("Plugin::Random", $cmd);
+		ok($is_registered, "registered command $cmd");
+	}
+}
+
+# Test that `choose` works on a singleton input
+{
+	my %ctx_m = %ctx;
+	$ctx_m{rest} = "singleton";
+	my $result = $cr->run_owned("Plugin::Random", "choose", %ctx_m);
+	is($result, "singleton", "choose on singleton is the singleton");
+}
+
+# Test that `choose` chooses returns something from the input
+{
+	my %ctx_m = %ctx;
+	$ctx_m{rest} = "foo bar baz qux";
+	my @items = split / /, $ctx_m{rest};
+	my $result = $cr->run_owned("Plugin::Random", "choose", %ctx_m);
+	my $in_input = grep {$_ eq $result} @items;
+	ok($in_input, "chosen value was given as an option");
+}
+
+# Test that `shuffle` on singleton is that same singleton
+{
+	my %ctx_m = %ctx;
+	$ctx_m{rest} = "singleton";
+	my $result = $cr->run_owned("Plugin::Random", "shuffle", %ctx_m);
+	is($result, "singleton", "shuffled singleton is the same");
+}
+
+# Test that `shuffle` on list has all the same elements. No more or less
+{
+	my %ctx_m = %ctx;
+	$ctx_m{rest} = "foo bar baz qux";
+	my @expected_items = split / /, $ctx_m{rest};
+	my $result = $cr->run_owned("Plugin::Random", "shuffle", %ctx_m);
+	my @results = split / /, $result;
+
+	for my $item (@expected_items) {
+		ok((grep {$_ eq $item} @results), "$item carried over");
+	}
+
+	is(@results, @expected_items, "shuffled list same length as expected");
+}