diff options
Diffstat (limited to 'test/test_ping.t')
-rwxr-xr-x | test/test_ping.t | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/test/test_ping.t b/test/test_ping.t new file mode 100755 index 0000000..f7ae60f --- /dev/null +++ b/test/test_ping.t @@ -0,0 +1,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(\®ister_cmd, undef, undef, undef); + +ok($registered, "plugin registered command"); +ok($response eq $expected, "echo expectation met"); |