| 
      
            Lines 435-441
          subtest 'Koha::Patrons->delete' => sub {
      
      
        Link Here
      
     | 
  
        
          | 435 | 
              my $id1 = $patron1->borrowernumber;  | 
          435 | 
              my $id1 = $patron1->borrowernumber;  | 
        
        
          | 436 | 
              my $set = Koha::Patrons->search({ borrowernumber => { '>=' => $id1 }}); | 
          436 | 
              my $set = Koha::Patrons->search({ borrowernumber => { '>=' => $id1 }}); | 
        
        
          | 437 | 
              is( $set->count, 2, 'Two patrons found as expected' );  | 
          437 | 
              is( $set->count, 2, 'Two patrons found as expected' );  | 
        
          
            
              | 438 | 
                  is( $set->delete({ move => 1 }), 1, 'Two patrons deleted' ); | 
              438 | 
                  is( $set->delete({ move => 1 }), 2, 'Two patrons deleted' ); | 
            
        
          | 439 | 
              is( $moved_to_deleted, 2, 'Patrons moved to deletedborrowers' );  | 
          439 | 
              is( $moved_to_deleted, 2, 'Patrons moved to deletedborrowers' );  | 
        
        
          | 440 | 
           | 
          440 | 
           | 
        
        
          | 441 | 
              # Add again, test if we can raise an exception  | 
          441 | 
              # Add again, test if we can raise an exception  | 
        
            
              | 442 | 
              -   | 
               | 
               |