#!/usr/bin/env perl use strict; use warnings; use Test::Simple tests => 2; use Mock::CommandRegistry; use Plugin::Echo; my $cr = new Mock::CommandRegistry; my $register = sub { $cr->register(@_); }; Plugin::Echo->configure($register, undef, undef, undef); ok($cr->is_registered_to_owner("Plugin::Echo", "echo"), "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");