Add test plan for Mentest

3 files changed, 49 insertions, 2 deletions

diff --git a/test.pl b/test.pl
index b819e0e..69b1e60 100755
--- a/test.pl
+++ b/test.pl
@@ -3,7 +3,7 @@
 use Test::Harness;
 
 my @tests = map {"test/test_$_.t"} qw/
-	autojoin echo ping random thanks vote
+	autojoin echo men ping random thanks vote
 /;
 
 runtests(@tests);
diff --git a/test/TODO.md b/test/TODO.md
index 2dc857d..1972e47 100644
--- a/test/TODO.md
+++ b/test/TODO.md
@@ -16,7 +16,6 @@
 * Log.pm
 * Map.pm
 * Markov.pm
-* Men.pm
 * Natural.pm
 * Quote_Grab.pm
 * Source.pm
@@ -30,6 +29,7 @@
 
 * Autojoin.pm
 * Echo.pm
+* Men.pm
 * Ping.pm
 * Random.pm
 * Thanks.pm
diff --git a/test/test_men.t b/test/test_men.t
new file mode 100755
index 0000000..683accd
--- /dev/null
+++ b/test/test_men.t
@@ -0,0 +1,47 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use Test::More tests => 4;
+use Mock::IRC;
+
+use Plugin::Men;
+
+my $irc = new Mock::IRC;
+
+my %config = (
+	chance => 100,
+);
+Plugin::Men->configure(undef, undef, \%config, undef);
+
+# Simplest test case, just message that reads `men`
+{
+	my $what = "men";
+	my $r = Plugin::Men->on_message(\&note, undef, undef, $what, $what, $irc);
+	ok($r =~ m/women.*children too/, "caught expected word");
+}
+
+# Simple test case, mid-word
+{
+	my $what = "foo comment bar";
+	my $r = Plugin::Men->on_message(\&note, undef, undef, $what, $what, $irc);
+	ok($r =~ m/comwoment.*comchildrent too/, "caught expected word");
+}
+
+# Case preservation on surrounding word
+# XXX rethink this behaviour - shouldn't it preserve case on whole word?
+{
+	my $what = "frongle COMMENT kleng";
+	my $r = Plugin::Men->on_message(\&note, undef, undef, $what, $what, $irc);
+	ok($r =~ m/COMwomenT.*COMchildrenT too/, "caught expected word");
+}
+
+# UTF-8 support
+{
+	my $what = "💯　ｔｅｓｔmen☭";
+	my $r = Plugin::Men->on_message(\&note, undef, undef, $what, $what, $irc);
+	# use utf8 after this point. Don't use it above, module does its own
+	# conversion for now because of how POE::Component::IRC passes data in
+	use utf8;
+	ok($r =~ m/ｔｅｓｔwomen.*ｔｅｓｔchildren too/, "caught expected word");
+}