#!/usr/bin/env perl use strict; use warnings; use Test::Simple tests => 2; use Mock::CommandRegistry; use Plugin::Ping; my $cr = new Mock::CommandRegistry; my $register = sub { $cr->register(@_); }; Plugin::Ping->configure($register, undef, undef, undef); ok($cr->is_registered_to_owner("Plugin::Ping", "ping"), "registered command"); my $pinger = "somelad"; my %ctx = ( irc => undef, logger => undef, who => "$pinger!who\@example.com", where => undef, ided => undef, rest => undef, no_reenter => undef, args => undef ); my $expected = "$pinger: pong"; my $response = $cr->run_owned("Plugin::Ping", "ping", %ctx); ok($response eq $expected, "pong format correct");