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 => 14; |
21 |
use Test::More tests => 15; |
22 |
|
22 |
|
23 |
use MARC::Record; |
23 |
use MARC::Record; |
24 |
|
24 |
|
Lines 264-266
$prepared_letter = GetPreparedLetter(
Link Here
|
264 |
) |
264 |
) |
265 |
); |
265 |
); |
266 |
is( $prepared_letter->{content}, $modification->id(), 'Patron modification object used correctly' ); |
266 |
is( $prepared_letter->{content}, $modification->id(), 'Patron modification object used correctly' ); |
267 |
- |
267 |
|
|
|
268 |
$sth->execute( "TEST_SUBSTITUTION", "[% SubstituteMe %]" ); |
269 |
$prepared_letter = GetPreparedLetter( |
270 |
( |
271 |
module => 'test', |
272 |
letter_code => 'TEST_SUBSTITUTION', |
273 |
substitute => { |
274 |
SubstituteMe => 'Substituted' |
275 |
} |
276 |
) |
277 |
); |
278 |
is( $prepared_letter->{content}, 'Substituted', 'Substitution works correctly' ); |