|
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)' ); |