| Lines 17-23
          
      
      
        Link Here | 
        
          | 17 |  | 17 |  | 
        
          | 18 | use Modern::Perl; | 18 | use Modern::Perl; | 
        
          | 19 |  | 19 |  | 
          
            
              | 20 | use Test::More tests => 47; | 20 | use Test::More tests => 48; | 
        
          | 21 | use Test::MockModule; | 21 | use Test::MockModule; | 
        
          | 22 | use Test::Exception; | 22 | use Test::Exception; | 
        
          | 23 |  | 23 |  | 
  
    | Lines 248-258
          $builder->build({
      
      
        Link Here | 
        
          | 248 | # IndependentBranches is off. | 248 | # IndependentBranches is off. | 
        
          | 249 | t::lib::Mocks::mock_preference('IndependentBranches', 0); | 249 | t::lib::Mocks::mock_preference('IndependentBranches', 0); | 
        
          | 250 |  | 250 |  | 
            
              |  |  | 251 | my $anonymous_patron = Koha::Patron->new({ categorycode => 'CIVILIAN', branchcode => $library2->{branchcode} })->store->borrowernumber; | 
            
              | 252 | t::lib::Mocks::mock_preference('AnonymousPatron', $anonymous_patron); | 
            
              | 253 |  | 
        
          | 251 | my $owner = Koha::Patron->new({ categorycode => 'STAFFER', branchcode => $library2->{branchcode} })->store->borrowernumber; | 254 | my $owner = Koha::Patron->new({ categorycode => 'STAFFER', branchcode => $library2->{branchcode} })->store->borrowernumber; | 
        
          | 252 | my $list1 = AddPatronList( { name => 'Test List 1', owner => $owner } ); | 255 | my $list1 = AddPatronList( { name => 'Test List 1', owner => $owner } ); | 
            
              |  |  | 256 |  | 
            
              | 257 | AddPatronsToList( { list => $list1, borrowernumbers => [$anonymous_patron] } ); | 
            
              | 258 | my $patstodel = GetBorrowersToExpunge( { patron_list_id => $list1->patron_list_id() } ); | 
            
              | 259 | is( scalar(@$patstodel), 0, 'Anonymous Patron not deleted from list' ); | 
            
              | 260 |  | 
        
          | 253 | my @listpatrons = ($bor1inlist, $bor2inlist); | 261 | my @listpatrons = ($bor1inlist, $bor2inlist); | 
        
          | 254 | AddPatronsToList(  { list => $list1, borrowernumbers => \@listpatrons }); | 262 | AddPatronsToList(  { list => $list1, borrowernumbers => \@listpatrons }); | 
          
            
              | 255 | my $patstodel = GetBorrowersToExpunge( {patron_list_id => $list1->patron_list_id() } ); | 263 | $patstodel = GetBorrowersToExpunge( {patron_list_id => $list1->patron_list_id() } ); | 
        
          | 256 | is( scalar(@$patstodel),0,'No staff deleted from list of all staff'); | 264 | is( scalar(@$patstodel),0,'No staff deleted from list of all staff'); | 
        
          | 257 | Koha::Patrons->find($bor2inlist)->set({ categorycode => 'CIVILIAN' })->store; | 265 | Koha::Patrons->find($bor2inlist)->set({ categorycode => 'CIVILIAN' })->store; | 
        
          | 258 | $patstodel = GetBorrowersToExpunge( {patron_list_id => $list1->patron_list_id()} ); | 266 | $patstodel = GetBorrowersToExpunge( {patron_list_id => $list1->patron_list_id()} ); | 
            
              | 259 | -  |  |  |