diff options
Diffstat (limited to 'test/test_echo.t')
| -rwxr-xr-x | test/test_echo.t | 41 |
1 files changed, 18 insertions, 23 deletions
diff --git a/test/test_echo.t b/test/test_echo.t index 73ff0e8..d8c1b69 100755 --- a/test/test_echo.t +++ b/test/test_echo.t @@ -2,33 +2,28 @@ use strict; use warnings; - use Test::Simple tests => 2; +use Mock::CommandRegistry; use Plugin::Echo; -my $expected = " Ping pong do the echo thing!"; -our $registered; -our $response; - -sub register_cmd { - my ($module, $name, $run) = @_; - - $registered = 1; +my $cr = new Mock::CommandRegistry; +my $register = sub { $cr->register(@_); }; - $response = $run->( - undef, # irc - undef, # logger - undef, # who - undef, # where - undef, # ided - $expected, - undef, # no reenter - undef, # arguments - ); -} +Plugin::Echo->configure($register, undef, undef, undef); +ok($cr->is_registered_to_owner("Plugin::Echo", "echo"), "registered command"); -Plugin::Echo->configure(\®ister_cmd, undef, undef, undef); - -ok($registered, "plugin registered command"); +my $expected = " Ping pong do the echo thing!"; +my %ctx = ( + irc => undef, + logger => undef, + who => undef, + where => undef, + ided => undef, + rest => $expected, + no_reenter => undef, + args => undef +); +my $response = $cr->run_owned("Plugin::Echo", "echo", %ctx); ok($response eq $expected, "echo expectation met"); + |