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