Selenium-Remote-Driver/t/Test-Selenium-Remote-Driver-google.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Selenium::Remote::Driver;

my ($host, $port) = Test::Selenium::Remote::Driver->server_is_running;
unless ($host and $port) {
    plan skip_all => "No Webdriver server found!";
    exit 0;
}

# Try to find
my $t = Test::Selenium::Remote::Driver->new(
    remote_server_addr => $host, port => $port,
);
$t->get_ok('http://www.google.com');
$t->title_like(qr/Google/);
$t->body_like(qr/Google/);

done_testing();