| Lines 42-51
          use Test::More tests => 20;
      
      
        Link Here | 
        
          | 42 | use MARC::Record; | 42 | use MARC::Record; | 
        
          | 43 | use MARC::Field; | 43 | use MARC::Field; | 
        
          | 44 |  | 44 |  | 
          
            
              | 45 | my $dbh = C4::Context->dbh; | 45 | my $dbh      = C4::Context->dbh; | 
            
              | 46 | my $login = 'koha'; | 46 | my $login    = $ENV{KOHA_USER} || 'koha'; | 
            
              | 47 | my $password = 'koha'; | 47 | my $password = $ENV{KOHA_PASS} || 'koha'; | 
            
              | 48 | my $base_url= ( $ENV{KOHA_INTRANET_URL} || 'http://'.C4::Context->preference("staffClientBaseURL") ) . "/cgi-bin/koha/"; | 48 | my $base_url | 
            
              |  |  | 49 |     = ( $ENV{KOHA_INTRANET_URL} || 'http://' . C4::Context->preference("staffClientBaseURL") ) | 
            
              | 50 |     . "/cgi-bin/koha/"; | 
            
              | 51 | my $selenium_addr = $ENV{SELENIUM_ADDR} || 'localhost'; | 
            
              | 52 | my $selenium_port = $ENV{SELENIUM_PORT} || 4444; | 
            
              | 53 |  | 
        
          | 49 |  | 54 |  | 
        
          | 50 |  | 55 |  | 
        
          | 51 | my $number_of_biblios_to_insert = 3; | 56 | my $number_of_biblios_to_insert = 3; | 
  
    | Lines 89-95
          SKIP: {
      
      
        Link Here | 
        
          | 89 |  | 94 |  | 
        
          | 90 |     open my $fh, '>>', '/tmp/output.txt'; | 95 |     open my $fh, '>>', '/tmp/output.txt'; | 
        
          | 91 |  | 96 |  | 
          
            
              | 92 |     my $driver = Selenium::Remote::Driver->new; | 97 |     my $driver = Selenium::Remote::Driver->new( | 
            
              |  |  | 98 |         port               => $selenium_port, | 
            
              | 99 |         remote_server_addr => $selenium_addr | 
            
              | 100 |     ); | 
            
              | 101 |  | 
        
          | 93 |     $start = gettimeofday; | 102 |     $start = gettimeofday; | 
        
          | 94 |     $prev_time = $start; | 103 |     $prev_time = $start; | 
        
          | 95 |     $driver->get($base_url."mainpage.pl"); | 104 |     $driver->get($base_url."mainpage.pl"); | 
  
    | Lines 202-208
          END {
      
      
        Link Here | 
        
          | 202 |  | 211 |  | 
        
          | 203 | sub auth { | 212 | sub auth { | 
        
          | 204 |     my ( $driver, $login, $password) = @_; | 213 |     my ( $driver, $login, $password) = @_; | 
          
            
              | 205 |     fill_form( $driver, { userid => 'koha', password => 'koha' } ); | 214 |     fill_form( $driver, { userid => $login, password => $password } ); | 
        
          | 206 |     my $login_button = $driver->find_element('//input[@id="submit"]'); | 215 |     my $login_button = $driver->find_element('//input[@id="submit"]'); | 
        
          | 207 |     $login_button->submit(); | 216 |     $login_button->submit(); | 
        
          | 208 | } | 217 | } | 
            
              | 209 | -  |  |  |