| 
      
            Lines 19-25
          
      
      
        Link Here
      
     | 
  
        
          | 19 | 
           | 
          19 | 
           | 
        
        
          | 20 | 
          use Modern::Perl;  | 
          20 | 
          use Modern::Perl;  | 
        
        
          | 21 | 
           | 
          21 | 
           | 
        
          
            
              | 22 | 
              use Test::More tests => 5;  | 
              22 | 
              use Test::More tests => 6;  | 
            
        
          | 23 | 
           | 
          23 | 
           | 
        
        
          | 24 | 
          use Koha::NewsItem;  | 
          24 | 
          use Koha::NewsItem;  | 
        
        
          | 25 | 
          use Koha::News;  | 
          25 | 
          use Koha::News;  | 
        
  
    | 
      
            Lines 54-58
          is( $retrieved_news_item_1->content, $new_news_item_1->content, 'The content met
      
      
        Link Here
      
     | 
  
        
          | 54 | 
          $retrieved_news_item_1->delete;  | 
          54 | 
          $retrieved_news_item_1->delete;  | 
        
        
          | 55 | 
          is( Koha::News->search->count, $nb_of_news + 1, 'Delete should have deleted the news_item' );  | 
          55 | 
          is( Koha::News->search->count, $nb_of_news + 1, 'Delete should have deleted the news_item' );  | 
        
        
          | 56 | 
           | 
          56 | 
           | 
        
            
               | 
               | 
              57 | 
              subtest '->author' => sub { | 
            
            
              | 58 | 
                  plan tests => 1;  | 
            
            
              | 59 | 
               | 
            
            
              | 60 | 
                  my $news_item = $builder->build_object({ class => 'Koha::News' }); | 
            
            
              | 61 | 
                  is( ref($news_item->author), 'Koha::Patron', 'Koha::NewsItem->author returns a Koha::Patron object' );  | 
            
            
              | 62 | 
              };  | 
            
            
              | 63 | 
               | 
            
        
          | 57 | 
          $schema->storage->txn_rollback;  | 
          64 | 
          $schema->storage->txn_rollback;  | 
        
        
          | 58 | 
           | 
          65 | 
           | 
        
            
              | 59 | 
              -   | 
               | 
               |