|
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 |
- |
|
|