Perl_Selenium_example

Perl_Selenium_example.pl

#!/usr/bin/perl
use Selenium::Remote::Driver;
use Test::More tests=>4;

my $driver = Selenium::Remote::Driver->new;
$driver->get("http://www.google.com");
$driver->find_element('q','name')->send_keys("Hello WebDriver!");

ok($driver->get_title =~ /Google/,"title matches google");
is($driver->get_title,'Google',"Title is google");
ok($driver->get_title eq 'Google','Title equals google');
like($driver->get_title,qr/Google/,"Title matches google");

$driver->quit();