Lines 19-25
Link Here
|
19 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
19 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
20 |
|
20 |
|
21 |
use Modern::Perl; |
21 |
use Modern::Perl; |
22 |
use Test::More tests => 19; |
22 |
use Test::More tests => 20; |
23 |
use Test::MockModule; |
23 |
use Test::MockModule; |
24 |
use Test::Warn; |
24 |
use Test::Warn; |
25 |
|
25 |
|
Lines 1166-1168
sub process_letter {
Link Here
|
1166 |
); |
1166 |
); |
1167 |
return $letter; |
1167 |
return $letter; |
1168 |
} |
1168 |
} |
1169 |
- |
1169 |
|
|
|
1170 |
$sth->execute( "TEST_SUBSTITUTION", "[% SubstituteMe %]" ); |
1171 |
$prepared_letter = GetPreparedLetter( |
1172 |
( |
1173 |
module => 'test', |
1174 |
letter_code => 'TEST_SUBSTITUTION', |
1175 |
substitute => { |
1176 |
SubstituteMe => 'Substituted' |
1177 |
} |
1178 |
) |
1179 |
); |
1180 |
is( $prepared_letter->{content}, 'Substituted', 'Substitution works correctly' ); |