perl_version '5.008004';
all_from 'lib/Test/WWW/Mechanize/Catalyst.pm';
-requires 'Catalyst' => '5.00';
+requires 'Catalyst' => '5.90';
requires 'LWP' => '5.816';
requires 'Test::WWW::Mechanize' => '1.14';
requires 'WWW::Mechanize' => '1.54';
use strict;
use warnings;
use Catalyst;
+use Catalyst::ScriptRunner;
use IO::Socket::INET;
__PACKAGE__->config( name => 'ExternalCatty' );
__PACKAGE__->setup;
-__PACKAGE__->setup_engine('HTTP');
sub MAX_PORT_TRIES() { 5 }
require POSIX;
POSIX::setsid() or die "Can't start a new session: $!";
}
-
- return($self->run($port), $port);
+ local @ARGV = ('-p', $port);
+ Catalyst::ScriptRunner->run(__PACKAGE__, 'Server');
}
sub assert_or_find_available_port {
$PORT = $ENV{TWMC_TEST_PORT} || 7357;
}
-use Test::More tests => 9;
+use Test::More;
use Test::Exception;
BEGIN {
use Test::WWW::Mechanize::Catalyst;
my $m = Test::WWW::Mechanize::Catalyst->new;
+# Yeah, sorry - wait for the forked process to spin up...
+sleep 10;
+
my $skip = 0;
TRY_CONNECT: {
eval { $m->get('/') };
}
}
+done_testing;
+
1;