WIP: Start writing some plugin tests

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(\&register_cmd, undef, undef, undef);
+
+ok($registered, "plugin registered command");
+ok($response eq $expected, "echo expectation met");