use strict;
use warnings;
use Time::HiRes qw(sleep);
use Test::WWW::Selenium;
use Test::More "no_plan";
use Test::Exception;

my $where_firefox_lives = "C:\\Program Files (x86)\\Mozilla Firefox\\firefox.exe";

my $sel = Test::WWW::Selenium->new( host => "localhost", 
                                    port => 4444, 
                                    browser => "*firefox $where_firefox_lives", 
                                    browser_url => "http://www.sqaforums.com" );

$sel->open_ok("/logout.php");
$sel->click_ok("link=Login");
$sel->wait_for_page_to_load_ok("30000");
$sel->type_ok("Loginname", "patrickee");
$sel->type_ok("Loginpass", "leeee1");
$sel->click_ok("buttlogin");
$sel->wait_for_page_to_load_ok("30000");
$sel->click_ok("link=SQAForums", "");
$sel->wait_for_page_to_load_ok("30000");
$sel->click_ok("link=Logout");
$sel->wait_for_page_to_load_ok("30000");
$sel->click_ok("ss0");