selenium/PERL/Members/FilterMembers.pl

   1 use strict;
   2 use warnings;
   3 use Time::HiRes qw(sleep);
   4 use Test::WWW::Selenium;
   5 use Test::More "no_plan";
   6 use Test::Exception;
   7
   8 my $sel = Test::WWW::Selenium->new( host => "localhost",
   9                                     port => 4444,
  10                                     browser => "*chrome",
  11                                     browser_url => "http://change-this-to-the-site-you-are-testing/" );
  12
  13 $sel->open_ok("/cgi-bin/koha/mainpage.pl");
  14 $sel->click_ok("//div[\@id='yui-main']/div/div/div[1]/h3[2]/a");
  15 $sel->wait_for_page_to_load_ok("30000");
  16 $sel->click_ok("link=C");
  17 $sel->wait_for_page_to_load_ok("30000");
  18 $sel->is_element_present_ok("memberresultst");
  19 $sel->select_ok("branchcode", "label=Bibliothèque de Luminy");
  20 $sel->click_ok("//div[\@id='bd']/div[2]/form/input[3]");
  21 $sel->wait_for_page_to_load_ok("30000");
  22 $sel->is_element_present_ok("memberresultst");
  23 $sel->select_ok("categorycode", "label=Etudiant niveau M");
  24 $sel->click_ok("//div[\@id='bd']/div[2]/form/input[3]");
  25 $sel->wait_for_page_to_load_ok("30000");
  26 $sel->is_element_present_ok("memberresultst");
  27 $sel->type_ok("//input[\@name='member' and \@value='']", "cas");
  28 $sel->click_ok("//div[\@id='bd']/div[2]/form/input[3]");
  29 $sel->wait_for_page_to_load_ok("30000");
  30 $sel->is_element_present_ok("memberresultst");