| 
      
            Lines 80-96
          subtest 'Notifications on new issues - add_subscriber|remove_subscriber|subscrib
      
      
        Link Here
      
     | 
  
        
          | 80 | 
          };  | 
          80 | 
          };  | 
        
        
          | 81 | 
           | 
          81 | 
           | 
        
        
          | 82 | 
          subtest 'Koha::Subscription->vendor' => sub { | 
          82 | 
          subtest 'Koha::Subscription->vendor' => sub { | 
        
          
            
              | 83 | 
                  plan tests => 2;  | 
              83 | 
                  plan tests => 3;  | 
            
            
              | 84 | 
                  my $vendor = $builder->build( { source => 'Aqbookseller' } ); | 
              84 | 
                  my $vendor = $builder->build_object( { class => 'Koha::Acquisition::Booksellers' } ); | 
            
            
              | 85 | 
                  my $subscription = $builder->build(  | 
              85 | 
                  my $subscription = $builder->build_object(  | 
            
        
          | 86 | 
                  { | 
          86 | 
                  { | 
        
          
            
              | 87 | 
                          source => 'Subscription',  | 
              87 | 
                          class => 'Koha::Subscriptions',  | 
            
            
              | 88 | 
                          value  => { aqbooksellerid => $vendor->{id} } | 
              88 | 
                          value => { aqbooksellerid => $vendor->id } | 
            
        
          | 89 | 
                  }  | 
          89 | 
                  }  | 
        
        
          | 90 | 
              );  | 
          90 | 
              );  | 
        
          
            
              | 91 | 
                  my $object = Koha::Subscriptions->find( $subscription->{subscriptionid} ); | 
              91 | 
                  is(  | 
            
            
              | 92 | 
                  is( ref($object->vendor), 'Koha::Acquisition::Bookseller', 'Koha::Subscription->vendor should return a Koha::Acquisition::Bookseller' );  | 
              92 | 
                      ref( $subscription->vendor ), 'Koha::Acquisition::Bookseller',  | 
            
            
              | 93 | 
                  is( $object->vendor->id, $subscription->{aqbooksellerid}, 'Koha::Subscription->vendor should return the correct vendor' ); | 
              93 | 
                      'Koha::Subscription->vendor should return a Koha::Acquisition::Bookseller'  | 
            
            
               | 
               | 
              94 | 
                  );  | 
            
            
              | 95 | 
                  is(  | 
            
            
              | 96 | 
                      $subscription->vendor->id, $subscription->aqbooksellerid,  | 
            
            
              | 97 | 
                      'Koha::Subscription->vendor should return the correct vendor'  | 
            
            
              | 98 | 
                  );  | 
            
            
              | 99 | 
               | 
            
            
              | 100 | 
                  $vendor->delete();  | 
            
            
              | 101 | 
                  $subscription->discard_changes;  | 
            
            
              | 102 | 
                  is( $subscription->vendor, undef, 'Koha::Subscription->vendor should return undef if the vendor is deleted' );  | 
            
        
          | 94 | 
          };  | 
          103 | 
          };  | 
        
        
          | 95 | 
           | 
          104 | 
           | 
        
        
          | 96 | 
          subtest 'Koha::Subscription->frequency' => sub { | 
          105 | 
          subtest 'Koha::Subscription->frequency' => sub { | 
        
            
              | 97 | 
              -   | 
               | 
               |