| 
      
            Lines 19-25
          
      
      
        Link Here
      
     | 
  
        
          | 19 | 
           | 
          19 | 
           | 
        
        
          | 20 | 
          use Modern::Perl;  | 
          20 | 
          use Modern::Perl;  | 
        
        
          | 21 | 
           | 
          21 | 
           | 
        
          
            
              | 22 | 
              use Test::More tests => 15;  | 
              22 | 
              use Test::More tests => 16;  | 
            
        
          | 23 | 
          use Test::Warn;  | 
          23 | 
          use Test::Warn;  | 
        
        
          | 24 | 
           | 
          24 | 
           | 
        
        
          | 25 | 
          use Koha::Authority::Types;  | 
          25 | 
          use Koha::Authority::Types;  | 
        
  
    | 
      
            Lines 214-216
          subtest 'Exceptions' => sub {
      
      
        Link Here
      
     | 
  
        
          | 214 | 
          };  | 
          214 | 
          };  | 
        
        
          | 215 | 
           | 
          215 | 
           | 
        
        
          | 216 | 
          $schema->storage->txn_rollback;  | 
          216 | 
          $schema->storage->txn_rollback;  | 
        
          
            
              | 217 | 
              -   | 
              217 | 
               | 
            
            
               | 
               | 
              218 | 
              subtest '->is_paged tests' => sub { | 
            
            
              | 219 | 
               | 
            
            
              | 220 | 
                  plan tests => 2;  | 
            
            
              | 221 | 
               | 
            
            
              | 222 | 
                  $schema->storage->txn_begin;  | 
            
            
              | 223 | 
               | 
            
            
              | 224 | 
                  foreach (1..10) { | 
            
            
              | 225 | 
                      $builder->build_object({ class => 'Koha::Patrons' }); | 
            
            
              | 226 | 
                  }  | 
            
            
              | 227 | 
               | 
            
            
              | 228 | 
                  my $patrons = Koha::Patrons->search();  | 
            
            
              | 229 | 
                  ok( !$patrons->is_paged, 'Search is not paged' );  | 
            
            
              | 230 | 
                  $patrons = Koha::Patrons->search( undef, { 'page' => 1, 'rows' => 3 } ); | 
            
            
              | 231 | 
                  ok( $patrons->is_paged, 'Search is paged' );  | 
            
            
              | 232 | 
               | 
            
            
              | 233 | 
                  $schema->storage->txn_rollback;  | 
            
            
              | 234 | 
              }  |