| Lines 17-23
          
      
      
        Link Here | 
        
          | 17 |  | 17 |  | 
        
          | 18 | use Modern::Perl; | 18 | use Modern::Perl; | 
        
          | 19 |  | 19 |  | 
          
            
              | 20 | use Test::More tests => 95; | 20 | use Test::More tests => 96; | 
        
          | 21 |  | 21 |  | 
        
          | 22 | use DateTime; | 22 | use DateTime; | 
        
          | 23 |  | 23 |  | 
  
    | Lines 29-39
          use C4::Biblio;
      
      
        Link Here | 
        
          | 29 | use C4::Items; | 29 | use C4::Items; | 
        
          | 30 | use C4::Log; | 30 | use C4::Log; | 
        
          | 31 | use C4::Members; | 31 | use C4::Members; | 
            
              |  |  | 32 | use C4::Message; | 
        
          | 32 | use C4::Reserves; | 33 | use C4::Reserves; | 
        
          | 33 | use C4::Overdues qw(UpdateFine CalcFine); | 34 | use C4::Overdues qw(UpdateFine CalcFine); | 
        
          | 34 | use Koha::DateUtils; | 35 | use Koha::DateUtils; | 
        
          | 35 | use Koha::Database; | 36 | use Koha::Database; | 
        
          | 36 | use Koha::IssuingRules; | 37 | use Koha::IssuingRules; | 
            
              |  |  | 38 | use Koha::Patron::Message::Attributes; | 
            
              | 39 | use Koha::Patron::Message::Preferences; | 
        
          | 37 | use Koha::Subscriptions; | 40 | use Koha::Subscriptions; | 
        
          | 38 |  | 41 |  | 
        
          | 39 | my $schema = Koha::Database->schema; | 42 | my $schema = Koha::Database->schema; | 
  
    | Lines 1520-1525
          subtest 'AddReturn + CumulativeRestrictionPeriods' => sub {
      
      
        Link Here | 
        
          | 1520 |             } | 1523 |             } | 
        
          | 1521 |         } | 1524 |         } | 
        
          | 1522 |     ); | 1525 |     ); | 
            
              |  |  | 1526 |  | 
        
          | 1523 |     my $biblioitem_2 = $builder->build( { source => 'Biblioitem' } ); | 1527 |     my $biblioitem_2 = $builder->build( { source => 'Biblioitem' } ); | 
        
          | 1524 |     my $item_2 = $builder->build( | 1528 |     my $item_2 = $builder->build( | 
        
          | 1525 |         { | 1529 |         { | 
  
    | Lines 1626-1631
          subtest 'AddReturn + CumulativeRestrictionPeriods' => sub {
      
      
        Link Here | 
        
          | 1626 |     is( $debarments->[0]->{expiration}, $expected_expiration ); | 1630 |     is( $debarments->[0]->{expiration}, $expected_expiration ); | 
        
          | 1627 | }; | 1631 | }; | 
        
          | 1628 |  | 1632 |  | 
            
              |  |  | 1633 | subtest 'SendCirculationAlert test' => sub { | 
            
              | 1634 |     plan tests => 4; | 
            
              | 1635 |  | 
            
              | 1636 |     my $library = $builder->build( { source => 'Branch' } ); | 
            
              | 1637 |     my $patron  = $builder->build( { source => 'Borrower' } ); | 
            
              | 1638 |     my $attribute = Koha::Patron::Message::Attributes->find({ | 
            
              | 1639 |         message_name => 'Item_Checkout', | 
            
              | 1640 |     }); | 
            
              | 1641 |     Koha::Patron::Message::Preference->new({ | 
            
              | 1642 |         borrowernumber => $patron->{'borrowernumber'}, | 
            
              | 1643 |         message_attribute_id => $attribute->message_attribute_id, | 
            
              | 1644 |         days_in_advance => 0, | 
            
              | 1645 |         wants_digest => 0, | 
            
              | 1646 |         message_transport_types => ['email'], | 
            
              | 1647 |     })->store; | 
            
              | 1648 |     my $biblioitem_1 = $builder->build( { source => 'Biblioitem' } ); | 
            
              | 1649 |     my $item_1 = $builder->build( | 
            
              | 1650 |         {   source => 'Item', | 
            
              | 1651 |             value  => { | 
            
              | 1652 |                 homebranch    => $library->{branchcode}, | 
            
              | 1653 |                 holdingbranch => $library->{branchcode}, | 
            
              | 1654 |                 notforloan    => 0, | 
            
              | 1655 |                 itemlost      => 0, | 
            
              | 1656 |                 withdrawn     => 0, | 
            
              | 1657 |                 biblionumber  => $biblioitem_1->{biblionumber} | 
            
              | 1658 |             } | 
            
              | 1659 |         } | 
            
              | 1660 |     ); | 
            
              | 1661 |  | 
            
              | 1662 |     my $old_message = C4::Message->find_last_message($patron, 'CHECKOUT', 'email'); | 
            
              | 1663 |     $old_message->{'message_id'} = 0 unless $old_message; | 
            
              | 1664 |     is(C4::Circulation::SendCirculationAlert({ | 
            
              | 1665 |         type     => 'CHECKOUT', | 
            
              | 1666 |         item     => $item_1, | 
            
              | 1667 |         borrower => $patron, | 
            
              | 1668 |         branch   => $library->{'branchcode'}, | 
            
              | 1669 |     }), undef, "SendCirculationAlert called."); | 
            
              | 1670 |     my $new_message = C4::Message->find_last_message($patron, 'CHECKOUT', 'email'); | 
            
              | 1671 |     ok($old_message->{'message_id'} != $new_message->{'message_id'}, "New message has appeared."); | 
            
              | 1672 |     is($new_message->{'letter_code'}, 'CHECKOUT', "New message letter code is CHECKOUT."); | 
            
              | 1673 |     is($new_message->{'borrowernumber'}, $patron->{'borrowernumber'}, "New message is to our test patron."); | 
            
              | 1674 | }; | 
            
              | 1675 |  | 
        
          | 1629 | sub set_userenv { | 1676 | sub set_userenv { | 
        
          | 1630 |     my ( $library ) = @_; | 1677 |     my ( $library ) = @_; | 
        
          | 1631 |     C4::Context->set_userenv(0,0,0,'firstname','surname', $library->{branchcode}, $library->{branchname}, '', '', ''); | 1678 |     C4::Context->set_userenv(0,0,0,'firstname','surname', $library->{branchcode}, $library->{branchname}, '', '', ''); |