| Lines 1-5
          
      
      
        Link Here | 
        
          | 1 | use Modern::Perl; | 1 | use Modern::Perl; | 
          
            
              | 2 | use Test::More tests => 5; | 2 | use Test::More tests => 6; | 
        
          | 3 | use Test::MockModule; | 3 | use Test::MockModule; | 
        
          | 4 |  | 4 |  | 
        
          | 5 | use MARC::Record; | 5 | use MARC::Record; | 
  
    | Lines 90-92
          is_deeply(
      
      
        Link Here | 
        
          | 90 |     [ [ 'x', $default_x ] ], | 90 |     [ [ 'x', $default_x ] ], | 
        
          | 91 |     '099$x contains the default value' | 91 |     '099$x contains the default value' | 
        
          | 92 | ); | 92 | ); | 
          
            
              | 93 | -  | 93 |  | 
            
              |  |  | 94 | # Test controlfield default | 
            
              | 95 | $record->field('008')->update( undef ); | 
            
              | 96 | C4::Acquisition::FillWithDefaultValues($record); | 
            
              | 97 | is( $record->field('008')->data, $default_x, 'Controlfield got default' ); | 
            
              | 98 |  | 
            
              | 99 | $schema->storage->txn_rollback; |