test/test_ping.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::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");