=cut
-our $VERSION = '0.05';
+our $VERSION = '0.06';
=head1 DEVELOPERISH RELEASE
if(defined $d){
$DEBUG = $d;
}
+
+ $args{-selenium_args} ||= '-singleWindow';
+
+ if ($ENV{SELENIUM_SERVER}) {
+ $args{-no_selenium_server} = 1;
+ }
+ elsif ($ENV{SELENIUM_PORT}) {
+ $args{-selenium_args} .= " -port " . $ENV{SELENIUM_PORT};
+ }
unless ($args{-no_selenium_server}) {
$class->_start_server($args{-selenium_args}) or croak "Couldn't start selenium server";
my $sel_class = delete $args->{selenium_class} || 'Test::WWW::Selenium';
my $sel;
+ if ($ENV{SELENIUM_SERVER}) {
+ my $uri = $ENV{SELENIUM_SERVER};
+ $uri =~ s!^(?:http://)?!http://!;
+ $uri = new URI($uri);
+ $args->{selenium_host} = $uri->host;
+ $args->{selenium_port} = $uri->port;
+ }
+ elsif ($ENV{SELENIUM_PORT}) {
+ $args->{selenium_port} = $ENV{SELENIUM_PORT};
+ }
+
+ my $sel_host = delete $args->{selenium_host} || 'localhost';
+ my $sel_port = delete $args->{selenium_port} || 4444;
while(!$sel && $tries--){
sleep 1;
diag("Waiting for selenium server to start")
eval {
$sel = $sel_class->new(
- host => delete $args->{selenium_host} || 'localhost',
- port => delete $args->{selenium_port} || 4444,
+ host => $sel_host,
+ port => $sel_port,
browser => '*firefox',
browser_url => $uri,
auto_stop => 0,
if($www_selenium){
diag("Shutting down Selenium Server $sel_pid") if $DEBUG;
$www_selenium->stop();
- $www_selenium->do_command('shutDown');
+ # This can fail if a page hasn't been requested yet.
+ eval { $www_selenium->do_command('shutDown') };
undef $www_selenium;
}
diag("Killing Selenium Server $sel_pid") if $DEBUG;
=head1 ACKNOWLEDGEMENTS
-Thanks for mst for getting on my case to actually write this thing :)
+Thanks for mst for getting on my (jrockway's) case to actually write this thing
+:)
=head1 COPYRIGHT & LICENSE