Lines 1-5
Link Here
|
1 |
use Modern::Perl; |
1 |
use Modern::Perl; |
2 |
use Test::More tests => 6; |
2 |
use Test::More tests => 7; |
3 |
|
3 |
|
4 |
use C4::Context; |
4 |
use C4::Context; |
5 |
use C4::Letters qw( GetLetterTemplates ); |
5 |
use C4::Letters qw( GetLetterTemplates ); |
Lines 123-125
is( scalar( keys %$letter_templates ),
Link Here
|
123 |
1, '1 template should exist for circulation CPL code1' ); |
123 |
1, '1 template should exist for circulation CPL code1' ); |
124 |
is( exists( $letter_templates->{email} ), |
124 |
is( exists( $letter_templates->{email} ), |
125 |
1, 'The mtt should be email for circulation CPL code1' ); |
125 |
1, 'The mtt should be email for circulation CPL code1' ); |
126 |
- |
126 |
|
|
|
127 |
$letter_templates = C4::Letters::GetLetterTemplates( |
128 |
{ module => 'circulation', code => 'code1' } ); |
129 |
is( scalar( keys %$letter_templates ), |
130 |
2, '2 default templates should exist for circulation code1 (even if branchcode is not given)' ); |