#!/usr/bin/perl -w
###########################################
# gtest
# Mike Schilli, 2006 (m@perlmeister.com)
###########################################
use Test::WWW::Selenium;
use Test::More tests => 4;

my $url = "http://www.google.com";

my $sel = Test::WWW::Selenium->new(
  host => "localhost", 
  port => 4444, 
  browser => "*firefox " . 
    "$ENV{FIREFOX_HOME}/firefox-bin", 
  browser_url => $url,
);

$sel->open_ok($url);

$sel->type_ok("q", "schilli", 
              "Type query");

$sel->click_ok(
        '//input[@value="Google Search"]', 
        "Clicking Search");
$sel->wait_for_page_to_load(5000);

$sel->body_text_like(qr/perlmeister/, 
        "perlmeister found");