Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Avoid "UNKNOWN" reports from CPAN testers. All tests were skipped whe…

…n not tested as root, so add a test for non-root users.
  • Loading branch information...
commit 27b7665de4fa1e3b3960720ddd83632f21c60497 1 parent 65682a4
@rcaputo authored
Showing with 17 additions and 1 deletion.
  1. +1 −0  MANIFEST
  2. +1 −1  lib/POE/Component/Client/Ping.pm
  3. +15 −0 t/00_info.t
View
1  MANIFEST
@@ -3,6 +3,7 @@ MANIFEST
Makefile.PL
lib/POE/Component/Client/Ping.pm
README
+t/00_info.t
t/01_ping.t
t/02_arbitrary_data.t
t/03_provided_socket.t
View
2  lib/POE/Component/Client/Ping.pm
@@ -24,7 +24,7 @@ use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS);
);
use vars qw($VERSION $PKTSIZE);
-$VERSION = '1.162';
+$VERSION = '1.163';
$PKTSIZE = $^O eq 'linux' ? 3_000 : 100;
use Carp qw(croak);
View
15 t/00_info.t
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+# vim: ts=2 sw=2 filetype=perl expandtab
+use warnings;
+use strict;
+
+use Test::More tests => 2;
+use_ok('POE');
+use_ok('POE::Component::Client::Ping');
+
+# idea from Test::Harness, thanks!
+diag(
+ "Testing POE $POE::VERSION, ",
+ "Perl $], ",
+ "$^X on $^O"
+);
Please sign in to comment.
Something went wrong with that request. Please try again.