use strict; package MyTestingSuite; use parent 'Test::Class'; use Test::Selenium::Remote::Driver; use Test::More; use Selenium::Remote::WebElement; sub startup : Test( startup => no_plan ) { my $self = shift; $self->{browsers} = [('chrome', 'internet explorer', 'phantomJS', 'firefox')]; } sub title_test : Tests { my $self = shift; foreach my $browser (@{$self->{browsers}}) { my $driver = Selenium::Remote::Driver->new( browser_name => $browser); $driver->get_ok("http://localhost"); $driver->pause(2000); $driver->set_window_size(640, 480); if($driver->find_element_ok('login','name')){ $driver->find_element('login','name') } if($driver->find_element_ok('password','name')){ $driver->find_element('password','name') } #$twd->click_element_ok($search_target [,$finder ,$desc]); $elem = $driver->find_element('submit','id'); $driver->mouse_move_to_location(element => $elem); # xoffset => x, yoffset => y $driver->click_ok('LEFT'); $driver->pause(2000); $driver->maximize_window(); $driver->pause(2000); $driver->title_is('M.E'); $driver->capture_screenshot("D:/snap-$browser.png"); #$elem = find_element_by_class("dx-focused"); #$driver->mouse_move_to_location(element => $elem); #$driver->click('LEFT'); #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(); } } sub element_test : Tests { my $self = shift; foreach my $browser (@{$self->{browsers}}) { my $driver = Selenium::Remote::Driver->new( browser_name => $browser); $driver->get("http://www.google.com"); $driver->pause(2000); $driver->set_window_size(640, 480); $driver->find_element('q','name'); $driver->find_element('btnG','name'); $driver->quit(); } } 1;