View | Details | Raw Unified | Return to bug 18595
Collapse All | Expand All

(-)a/t/db_dependent/Koha/Patron/Categories.t (-2 / +40 lines)
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
- 

Return to bug 18595