|
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}, '', '', ''); |