| Lines 29-34
          use C4::Context;
      
      
        Link Here | 
        
          | 29 | use Koha::Authority::Types; | 29 | use Koha::Authority::Types; | 
        
          | 30 | use Koha::Cities; | 30 | use Koha::Cities; | 
        
          | 31 | use Koha::Biblios; | 31 | use Koha::Biblios; | 
            
              |  |  | 32 | use Koha::Items; | 
        
          | 32 | use Koha::Patron::Category; | 33 | use Koha::Patron::Category; | 
        
          | 33 | use Koha::Patron::Categories; | 34 | use Koha::Patron::Categories; | 
        
          | 34 | use Koha::Patrons; | 35 | use Koha::Patrons; | 
  
    | Lines 1286-1298
          subtest 'empty() tests' => sub {
      
      
        Link Here | 
        
          | 1286 |  | 1287 |  | 
        
          | 1287 | subtest 'delete() tests' => sub { | 1288 | subtest 'delete() tests' => sub { | 
        
          | 1288 |  | 1289 |  | 
          
            
              | 1289 |     plan tests => 2; | 1290 |     plan tests => 3; | 
        
          | 1290 |  | 1291 |  | 
        
          | 1291 |     $schema->storage->txn_begin; | 1292 |     $schema->storage->txn_begin; | 
        
          | 1292 |  | 1293 |  | 
        
          | 1293 |     # Make sure no cities | 1294 |     # Make sure no cities | 
        
          | 1294 |     warnings_are { Koha::Cities->delete }[], | 1295 |     warnings_are { Koha::Cities->delete }[], | 
          
            
              | 1295 |       "No warnings, no Koha::City->delete called as it doesn't exist"; | 1296 |         "No warnings, no Koha::City->delete called as it doesn't exist"; | 
        
          | 1296 |  | 1297 |  | 
        
          | 1297 |     # Mock Koha::City | 1298 |     # Mock Koha::City | 
        
          | 1298 |     my $mocked_city = Test::MockModule->new('Koha::City'); | 1299 |     my $mocked_city = Test::MockModule->new('Koha::City'); | 
  
    | Lines 1311-1317
          subtest 'delete() tests' => sub {
      
      
        Link Here | 
        
          | 1311 |     my $cities = Koha::Cities->search; | 1312 |     my $cities = Koha::Cities->search; | 
        
          | 1312 |     $cities->next; | 1313 |     $cities->next; | 
        
          | 1313 |     warnings_are { $cities->delete } | 1314 |     warnings_are { $cities->delete } | 
          
            
              | 1314 |         [ "delete called!", "delete called!" ], | 1315 |     [ "delete called!", "delete called!" ], | 
            
              |  |  | 1316 |         "No warnings, no Koha::City->delete called as it doesn't exist"; | 
            
              | 1317 |  | 
            
              | 1318 |     my $item_id_1 = $builder->build_sample_item()->id; | 
            
              | 1319 |     my $item_id_2 = $builder->build_sample_item()->id; | 
            
              | 1320 |  | 
            
              | 1321 |     # Mock Koha::City | 
            
              | 1322 |     my $mocked_item = Test::MockModule->new('Koha::Item'); | 
            
              | 1323 |     $mocked_item->mock( | 
            
              | 1324 |         'delete', | 
            
              | 1325 |         sub { | 
            
              | 1326 |             my ( $self, $params ) = @_; | 
            
              | 1327 |             warn ref($self); | 
            
              | 1328 |             warn $params->{skip_record_index}; | 
            
              | 1329 |         } | 
            
              | 1330 |     ); | 
            
              | 1331 |     my $items = Koha::Items->search( { itemnumber => [ $item_id_1, $item_id_2 ] } ); | 
            
              | 1332 |  | 
            
              | 1333 |     warning_is { $items->delete( { skip_record_index => 1 } ) } | 
            
              | 1334 |     [ "Koha::Item", "1", "Koha::Item", "1" ], | 
        
          | 1315 |         "No warnings, no Koha::City->delete called as it doesn't exist"; | 1335 |         "No warnings, no Koha::City->delete called as it doesn't exist"; | 
        
          | 1316 |  | 1336 |  | 
        
          | 1317 |     $schema->storage->txn_rollback; | 1337 |     $schema->storage->txn_rollback; | 
            
              | 1318 | -  |  |  |