| 
      
            Lines 20-26
          
      
      
        Link Here
      
     | 
  
        
          | 20 | 
          use Modern::Perl;  | 
          20 | 
          use Modern::Perl;  | 
        
        
          | 21 | 
          use Test::MockTime qw/set_fixed_time restore_time/;  | 
          21 | 
          use Test::MockTime qw/set_fixed_time restore_time/;  | 
        
        
          | 22 | 
           | 
          22 | 
           | 
        
          
            
              | 23 | 
              use Test::More tests => 29;  | 
              23 | 
              use Test::More tests => 30;  | 
            
        
          | 24 | 
          use DateTime;  | 
          24 | 
          use DateTime;  | 
        
        
          | 25 | 
          use Test::MockModule;  | 
          25 | 
          use Test::MockModule;  | 
        
        
          | 26 | 
          use Test::Warn;  | 
          26 | 
          use Test::Warn;  | 
        
  
    | 
      
            Lines 376-379
          subtest 'Bug 19725: OAI-PMH ListRecords and ListIdentifiers should use biblio_me
      
      
        Link Here
      
     | 
  
        
          | 376 | 
              });  | 
          376 | 
              });  | 
        
        
          | 377 | 
          };  | 
          377 | 
          };  | 
        
        
          | 378 | 
           | 
          378 | 
           | 
        
            
               | 
               | 
              379 | 
              subtest 'Bug 20665: OAI-PMH Provider should reset the MySQL connection time zone' => sub { | 
            
            
              | 380 | 
                  plan tests => 2;  | 
            
            
              | 381 | 
               | 
            
            
              | 382 | 
                  # Set time zone to SYSTEM so that it can be checked later  | 
            
            
              | 383 | 
                  $dbh->do("SET time_zone='SYSTEM'"); | 
            
            
              | 384 | 
               | 
            
            
              | 385 | 
               | 
            
            
              | 386 | 
                  test_query('ListIdentifiers without metadataPrefix', {verb => 'ListIdentifiers'}, { | 
            
            
              | 387 | 
                      error => { | 
            
            
              | 388 | 
                          code => 'badArgument',  | 
            
            
              | 389 | 
                          content => "Required argument 'metadataPrefix' was undefined",  | 
            
            
              | 390 | 
                      },  | 
            
            
              | 391 | 
                  });  | 
            
            
              | 392 | 
               | 
            
            
              | 393 | 
                  my $sth = C4::Context->dbh->prepare('SELECT @@session.time_zone'); | 
            
            
              | 394 | 
                  $sth->execute();  | 
            
            
              | 395 | 
                  my ( $tz ) = $sth->fetchrow();  | 
            
            
              | 396 | 
               | 
            
            
              | 397 | 
                  ok ( $tz eq 'SYSTEM', 'MySQL connection time zone is SYSTEM' );  | 
            
            
              | 398 | 
              };  | 
            
            
              | 399 | 
               | 
            
            
              | 400 | 
               | 
            
        
          | 379 | 
          $schema->storage->txn_rollback;  | 
          401 | 
          $schema->storage->txn_rollback;  | 
        
            
              | 380 | 
              -   | 
               | 
               |