| 
      
            Lines 17-23
          
      
      
        Link Here
      
     | 
  
        
          | 17 | 
           | 
          17 | 
           | 
        
        
          | 18 | 
          use Modern::Perl;  | 
          18 | 
          use Modern::Perl;  | 
        
        
          | 19 | 
           | 
          19 | 
           | 
        
          
            
              | 20 | 
              use Test::More tests => 4;  | 
              20 | 
              use Test::More tests => 5;  | 
            
        
          | 21 | 
           | 
          21 | 
           | 
        
        
          | 22 | 
          use t::lib::TestBuilder;  | 
          22 | 
          use t::lib::TestBuilder;  | 
        
        
          | 23 | 
           | 
          23 | 
           | 
        
  
    | 
      
            Lines 86-88
          subtest 'hidden_in_opac() tests' => sub {
      
      
        Link Here
      
     | 
  
        
          | 86 | 
           | 
          86 | 
           | 
        
        
          | 87 | 
              $schema->storage->txn_rollback;  | 
          87 | 
              $schema->storage->txn_rollback;  | 
        
        
          | 88 | 
          };  | 
          88 | 
          };  | 
        
          
            
              | 89 | 
              -   | 
              89 | 
               | 
            
            
               | 
               | 
              90 | 
              subtest 'is_serial() tests' => sub { | 
            
            
              | 91 | 
               | 
            
            
              | 92 | 
                  plan tests => 3;  | 
            
            
              | 93 | 
               | 
            
            
              | 94 | 
                  $schema->storage->txn_begin;  | 
            
            
              | 95 | 
               | 
            
            
              | 96 | 
                  my $biblio = $builder->build_sample_biblio();  | 
            
            
              | 97 | 
               | 
            
            
              | 98 | 
                  $biblio->serial( 1 )->store->discard_changes;  | 
            
            
              | 99 | 
                  ok( $biblio->is_serial, 'Bibliographic record is serial' );  | 
            
            
              | 100 | 
               | 
            
            
              | 101 | 
                  $biblio->serial( 0 )->store->discard_changes;  | 
            
            
              | 102 | 
                  ok( !$biblio->is_serial, 'Bibliographic record is not serial' );  | 
            
            
              | 103 | 
               | 
            
            
              | 104 | 
                  my $record = $biblio->metadata->record;  | 
            
            
              | 105 | 
                  $record->leader('00142nas a22     7a 4500'); | 
            
            
              | 106 | 
                  ModBiblio($record, $biblio->biblionumber );  | 
            
            
              | 107 | 
                  $biblio = Koha::Biblios->find($biblio->biblionumber);  | 
            
            
              | 108 | 
               | 
            
            
              | 109 | 
                  ok( $biblio->is_serial, 'Bibliographic record is serial' );  | 
            
            
              | 110 | 
               | 
            
            
              | 111 | 
                  $schema->storage->txn_rollback;  | 
            
            
              | 112 | 
              };  | 
            
            
              | 113 | 
               |