root/honeyclient/branches/exp/kindlund-selenium/test.pl

#!/usr/bin/perl -w

use strict;
use warnings;

use WWW::Selenium;

my $urls = [
    'http://www.google.com',
    'http://www.craigslist.org',
];

my $sel = WWW::Selenium->new(
            host => "localhost",
            port => 4444,
            browser => "*iehta",
            browser_url => "http://localhost",
          );

my $isStarted = 0;
foreach my $url (@$urls) {
    if (!$isStarted) {
        $sel->start();
        # Set timeout to 25s.
        $sel->set_timeout(25000);
        $sel->open("/");
        $sel->window_maximize();
        $sel->window_focus();
        $isStarted = 1;
    }
    eval {
        $sel->open($url);
        sleep(10);
    };
    if ($@) {
        print "Error: " . $@ . "\n";
        $sel->stop();
        $isStarted = 0;
    }
}

if ($isStarted) {
    $sel->stop();
}