| 
      
      
        Link Here
      
     | 
  
        
          | 28 | 
           | 
          28 | 
           | 
        
        
          | 29 | 
          use C4::Biblio qw(ModBiblio);  | 
          29 | 
          use C4::Biblio qw(ModBiblio);  | 
        
        
          | 30 | 
          use Koha::Biblio::Metadata::Extractor;  | 
          30 | 
          use Koha::Biblio::Metadata::Extractor;  | 
        
            
              | 31 | 
              use Koha::Biblio::Metadata::Extractor::MARC::MARC21;  | 
               | 
               | 
            
        
          | 32 | 
           | 
          31 | 
           | 
        
        
          | 33 | 
          my $schema  = Koha::Database->schema;  | 
          32 | 
          my $schema  = Koha::Database->schema;  | 
        
        
          | 34 | 
          my $builder = t::lib::TestBuilder->new;  | 
          33 | 
          my $builder = t::lib::TestBuilder->new;  | 
        
  
    | 
      
      
        Link Here
      
     | 
  
        
          | 92 | 
           | 
          91 | 
           | 
        
        
          | 93 | 
          subtest 'check_fixed_length' => sub { | 
          92 | 
          subtest 'check_fixed_length' => sub { | 
        
        
          | 94 | 
           | 
          93 | 
           | 
        
          
            
              | 95 | 
                  plan tests => 6;  | 
              94 | 
                  plan tests => 8;  | 
            
        
          | 96 | 
              $schema->storage->txn_begin;  | 
          95 | 
              $schema->storage->txn_begin;  | 
        
        
          | 97 | 
           | 
          96 | 
           | 
        
          
            
              | 98 | 
                  my $record = MARC::Record->new;  | 
              97 | 
                  # Check empty object  | 
            
            
               | 
               | 
              98 | 
                  my $record    = MARC::Record->new;  | 
            
            
              | 99 | 
                  my $extractor = Koha::Biblio::Metadata::Extractor::MARC->new( { metadata => $record } ); | 
            
            
              | 100 | 
                  my $result    = $extractor->check_fixed_length;  | 
            
            
              | 101 | 
                  is( scalar @{ $result->{passed} }, 0, 'No passed fields' ); | 
            
            
              | 102 | 
                  is( scalar @{ $result->{failed} }, 0, 'No failed fields' ); | 
            
            
              | 103 | 
               | 
            
        
          | 99 | 
              $record->append_fields(  | 
          104 | 
              $record->append_fields(  | 
        
        
          | 100 | 
                  MARC::Field->new( '005', '0123456789012345' ),  | 
          105 | 
                  MARC::Field->new( '005', '0123456789012345' ),  | 
        
        
          | 101 | 
              );  | 
          106 | 
              );  | 
        
        
          | 102 | 
              my $biblio = $builder->build_sample_biblio;  | 
          107 | 
              my $biblio = $builder->build_sample_biblio;  | 
        
        
          | 103 | 
              ModBiblio( $record, $biblio->biblionumber );  | 
          108 | 
              ModBiblio( $record, $biblio->biblionumber );  | 
        
        
          | 104 | 
           | 
          109 | 
           | 
        
          
            
              | 105 | 
                  my $extractor;  | 
              110 | 
                  $extractor = Koha::Biblio::Metadata::Extractor::MARC->new( { biblio => $biblio } ); | 
            
            
              | 106 | 
                  $extractor = Koha::Biblio::Metadata::Extractor::MARC::MARC21->new( { biblio => $biblio } ); | 
              111 | 
                  $result    = $extractor->check_fixed_length;  | 
            
            
              | 107 | 
                  my $result = $extractor->check_fixed_length;  | 
               | 
               | 
            
        
          | 108 | 
              is( $result->{passed}->[0],        '005', 'Check first passed field' ); | 
          112 | 
              is( $result->{passed}->[0],        '005', 'Check first passed field' ); | 
        
        
          | 109 | 
              is( scalar @{ $result->{failed} }, 0,     'Check failed count' ); | 
          113 | 
              is( scalar @{ $result->{failed} }, 0,     'Check failed count' ); | 
        
        
          | 110 | 
           | 
          114 | 
           | 
        
  
    | 
      
      
        Link Here
      
     | 
  
        
          | 116 | 
              );  | 
          120 | 
              );  | 
        
        
          | 117 | 
           | 
          121 | 
           | 
        
        
          | 118 | 
              # Passing latest record changes via metadata now  | 
          122 | 
              # Passing latest record changes via metadata now  | 
        
          
            
              | 119 | 
                  $extractor = Koha::Biblio::Metadata::Extractor::MARC::MARC21->new( { metadata => $record } ); | 
              123 | 
                  $extractor = Koha::Biblio::Metadata::Extractor::MARC->new( { metadata => $record } ); | 
            
        
          | 120 | 
              $result    = $extractor->check_fixed_length;  | 
          124 | 
              $result    = $extractor->check_fixed_length;  | 
        
        
          | 121 | 
              is( $result->{passed}->[1], '007', 'Check second passed field' ); | 
          125 | 
              is( $result->{passed}->[1], '007', 'Check second passed field' ); | 
        
        
          | 122 | 
              is( $result->{passed}->[2], '007', 'Check third passed field' ); | 
          126 | 
              is( $result->{passed}->[2], '007', 'Check third passed field' ); | 
        
            
              | 123 | 
              -   | 
               | 
               |