test/test_echo.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

#!/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");