|
Lines 19-29
Link Here
|
| 19 |
|
19 |
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
|
21 |
|
| 22 |
use Test::More tests => 10; |
22 |
use Test::More tests => 11; |
| 23 |
|
23 |
|
| 24 |
use C4::Context; |
24 |
use C4::Context; |
|
|
25 |
use C4::Members::Messaging; |
| 25 |
use Koha::Database; |
26 |
use Koha::Database; |
| 26 |
use Koha::DateUtils; |
27 |
use Koha::DateUtils; |
|
|
28 |
use Koha::Patron; |
| 27 |
use Koha::Patron::Category; |
29 |
use Koha::Patron::Category; |
| 28 |
use Koha::Patron::Categories; |
30 |
use Koha::Patron::Categories; |
| 29 |
use t::lib::TestBuilder; |
31 |
use t::lib::TestBuilder; |
|
Lines 100-105
subtest 'BlockExpiredPatronOpacActions' => sub {
Link Here
|
| 100 |
$category->delete; |
102 |
$category->delete; |
| 101 |
}; |
103 |
}; |
| 102 |
|
104 |
|
|
|
105 |
subtest 'default_messaging tests' => sub { |
| 106 |
plan tests => 5; |
| 107 |
|
| 108 |
my $next_month = dt_from_string->add( months => 1 ); |
| 109 |
my $category = Koha::Patron::Category->new({ |
| 110 |
categorycode => 'my2ndcat', |
| 111 |
category_type => 'A', |
| 112 |
description => 'mycatdesc', |
| 113 |
enrolmentperiod => undef, |
| 114 |
enrolmentperioddate => $next_month, |
| 115 |
})->store; |
| 116 |
my $attr = $builder->build({ source => 'MessageAttribute', }); |
| 117 |
my $transport = $builder->build({ |
| 118 |
source => 'MessageTransport', |
| 119 |
value => { |
| 120 |
message_attribute_id => $attr->{'message_attribute_id'}, |
| 121 |
message_transport_type => 'email', |
| 122 |
is_digest => 1, |
| 123 |
} |
| 124 |
}); |
| 125 |
C4::Members::Messaging::SetMessagingPreference({ |
| 126 |
categorycode => $category->categorycode, |
| 127 |
message_attribute_id => $attr->{'message_attribute_id'}, |
| 128 |
message_transport_types => [ qw( email ) ], |
| 129 |
days_in_advance => 5, |
| 130 |
wants_digest => 1 |
| 131 |
}); |
| 132 |
my $default_messaging = $category->default_messaging; |
| 133 |
is(@$default_messaging, 1, "One default messaging found."); |
| 134 |
$default_messaging = $default_messaging->[0]; |
| 135 |
is($default_messaging->{'message_attribute_id'}, $attr->{'message_attribute_id'}, "Default attribute id is correct."); |
| 136 |
is($default_messaging->{'message_name'}, $attr->{'message_name'}, "Default message_name is correct."); |
| 137 |
ok($default_messaging->{$attr->{'message_name'}}, "Found message_name as a key."); |
| 138 |
is($default_messaging->{'transports'}->[0]->{'transport'}, "email", "Email found as transport type"); |
| 139 |
$category->delete; # finally, delete the category in order not to fail last delete test |
| 140 |
}; |
| 141 |
|
| 103 |
$retrieved_category_1->delete; |
142 |
$retrieved_category_1->delete; |
| 104 |
is( Koha::Patron::Categories->search->count, $nb_of_categories + 1, 'Delete should have deleted the patron category' ); |
143 |
is( Koha::Patron::Categories->search->count, $nb_of_categories + 1, 'Delete should have deleted the patron category' ); |
| 105 |
|
144 |
|
| 106 |
- |
|
|