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

(-)a/t/db_dependent/Letters.t (-2 / +10 lines)
Lines 18-24 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::More tests => 60;
21
use Test::More tests => 61;
22
use Test::MockModule;
22
use Test::MockModule;
23
use Test::Warn;
23
use Test::Warn;
24
24
Lines 180-185 is( $letter14206_a->{message_transport_type}, 'print', 'Bug 14206 - message_tran Link Here
180
my $letter14206_b = C4::Letters::getletter('my module', 'my code', 'FFL', 'print');
180
my $letter14206_b = C4::Letters::getletter('my module', 'my code', 'FFL', 'print');
181
is( $letter14206_b->{message_transport_type}, 'print', 'Bug 14206 - message_transport_type passed, correct mtt detected'  );
181
is( $letter14206_b->{message_transport_type}, 'print', 'Bug 14206 - message_transport_type passed, correct mtt detected'  );
182
182
183
# test for overdue_notices.pl
184
my $overdue_rules = {
185
    letter1         => 'my code',
186
};
187
my $i = 1;
188
my $branchcode = 'FFL';
189
my $letter14206_c = C4::Letters::getletter('my module', $overdue_rules->{"letter$i"}, $branchcode);
190
is( $letter14206_c->{message_transport_type}, 'print', 'Bug 14206 - correct mtt detected for call from overdue_notices.pl' );
191
183
# addalert
192
# addalert
184
my $type = 'my type';
193
my $type = 'my type';
185
my $externalid = 'my external id';
194
my $externalid = 'my external id';
186
- 

Return to bug 14206