test-selenium-driver.t

#!/usr/bin/perl
use strict;
use warnings;

use Selenium::Remote::Driver;
use Test::More;

my $driver = Selenium::Remote::Driver->new;
my $driver2 = Selenium::Remote::Driver->new(remote_server_addr=>'10.4.20.1');

$driver->get('http://www.google.com');
$driver2->get('http://github.com');
like($driver->get_title,qr/google/i,"Got google's title");
like($driver2->get_title,qr/github/i,"got github's title");
my $elem = $driver->find_element('q','name');
my $elem2 = $driver2->find_element('q','name');
isa_ok($elem,'Selenium::Remote::WebElement','got webelement1');
isa_ok($elem2,'Selenium::Remote::WebElement','got webelement2');
$elem->send_keys('hello world');
$elem2->send_keys('Selenium-Remote-Driver');
note "sent keys";
$elem->submit;
$elem2->submit;
note 'submitted';
undef $driver;
undef $driver2;
pass('destroyed drivers');

done_testing;