#!/usr/bin/perl
use strict;
use warnings;
use lib 'lib';
use Test::WWW::Selenium;
use WWW::Selenium::Util qw(server_is_running);
use Test::More;

my ($host, $port) = server_is_running();
if ($host and $port) {
    plan tests => 1;
}
else {
    plan skip_all => "No selenium server found!";
    exit 0;
}


my $sel = Test::WWW::Selenium->new(
    host        => $host,
    port        => $port,
    browser     => "*firefox",
    browser_url => "http://www.google.com/webhp",
);
$sel->open('http://www.google.com/webhp?hl=en');
$sel->type("q", "hello world");
$sel->pause(2000);
$sel->click("btnG");
# google search is now an ajax call.. no page to load!
#$sel->wait_for_page_to_load(5000);
$sel->pause(2000);
$sel->title_like(qr/Google Search/);