push(@author_requires, 'CatalystX::LeakChecker', '0.05');
push(@author_requires, 'Catalyst::Devel', '1.0'); # For http server test
push(@author_requires, 'Test::WWW::Mechanize::Catalyst', '0.51');
-push(@author_requires, 'Test::TCP', '1.27'); # ditto, ships Net::EmptyPort
+push(@author_requires, 'Test::TCP', '2.00'); # ditto, ships Net::EmptyPort
author_tests('t/author');
author_requires(
use warnings;
use Test::More tests => 1;
+use Test::TCP;
use File::Path;
use FindBin;
sub wait_port_timeout {
my ($port, $timeout) = @_;
- wait_port($port, 0.1, $timeout * 10) and return;
+ wait_port($port, $timeout * 10) and return;
die "Server did not start within $timeout seconds";
}