#!/usr/bin/env perl

use strict;
use warnings;

use Test::Simple tests => 2;

use Plugin::Ping;

our $registered;
our $response;
my $expected = "user: pong";

sub register_cmd {
	my ($module, $name, $run) = @_;

	$registered = 1;

	$response = $run->(
		undef, # irc
		undef, # logger
		'user!who@example.com',
		undef, # where
		undef, # ided
		undef, # rest
		undef, # no reenter
		undef, # arguments
	);
}

Plugin::Ping->configure(\&register_cmd, undef, undef, undef);

ok($registered, "plugin registered command");
ok($response eq $expected, "echo expectation met");