Option for an external webdriver

(still must be on port 4444)
agranig/peering-route
Gerhard Jungwirth 12 years ago
parent d801311821
commit 341aad8a93

@ -48,8 +48,10 @@ around('ACTION_test', sub {
Pod::Usage::pod2usage(-exitval => 0, -input => 'Build.PL', -verbose => 2) if $opt{man};
Pod::Usage::pod2usage("$0: --webdriver option required.\nRun `perldoc Build.PL`") unless $opt{webdriver};
$webdriver = child { exec $opt{webdriver} };
$self->wait_socket(qw(localhost 4444));
unless ($opt{webdriver} eq "external") {
$webdriver = child { exec $opt{webdriver} };
$self->wait_socket(qw(localhost 4444));
}
require URI;
my $uri = URI->new($opt{server});

Loading…
Cancel
Save