# use strict; # use warnings; # use Time::HiRes qw(sleep); # use Test::WWW::Selenium; # use Test::More "no_plan"; # use Test::Exception; # # my $sel = Test::WWW::Selenium->new( host => "localhost", # port => 4444, # browser => "*firefox", # browser_url => "http://localhost:28080/" ); # # my $s = $sel->open_ok("/interop/index.jsp"); # print " \n Test Script \n "; # print " \n \n my var $s \n \n"; # $sel->set_speed("1000"); # without this line, everything will error out. # $sel->wait_for_page_to_load_ok("100000"); # sleep (50); # $sel->type_ok("bpm.Logon.1.txtPassword", "password"); # $sel->click_ok("bpm.Logon.1.btnLogon"); #### # D:\selenium_sc_HSS\RC>perl pl3.pl # ok 1 - open, http://localhost:19000/interop/index.jsp # # Test Script # # # my var 1 # # ok 2 - wait_for_page_to_load, 100000 # # Error requesting http://localhost:4444/selenium-server/driver/: # # ERROR: Element bpm.Logon.1.txtPassword not found # not ok 3 - type, bpm.Logon.1.txtPassword, password # # Failed test 'type, bpm.Logon.1.txtPassword, password' # # at pl3.pl line 27. # # Error requesting http://localhost:4444/selenium-server/driver/: # # ERROR: Element bpm.Logon.1.btnLogon not found # not ok 4 - click, bpm.Logon.1.btnLogon # # Failed test 'click, bpm.Logon.1.btnLogon' # # at pl3.pl line 28. # 1..4 # # Looks like you failed 2 tests of 4.