| Lines 1-30
          
      
      
        Link Here | 
            
              | 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"); |