#!/usr/bin/env perl

use strict;
use warnings;

use Test::Simple tests => 2;

use Plugin::Echo;

my $expected = " Ping pong do the echo thing!";
our $registered;
our $response;

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

	$registered = 1;

	$response = $run->(
		undef, # irc
		undef, # logger
		undef, # who
		undef, # where
		undef, # ided
		$expected,
		undef, # no reenter
		undef, # arguments
	);
}

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

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