|
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 => 15; |
21 |
use Test::More tests => 16; |
| 22 |
use Test::Warn; |
22 |
use Test::Warn; |
| 23 |
|
23 |
|
| 24 |
use MARC::Record; |
24 |
use MARC::Record; |
|
Lines 279-281
$prepared_letter = GetPreparedLetter(
Link Here
|
| 279 |
) |
279 |
) |
| 280 |
); |
280 |
); |
| 281 |
is( $prepared_letter->{content}, $modification->id(), 'Patron modification object used correctly' ); |
281 |
is( $prepared_letter->{content}, $modification->id(), 'Patron modification object used correctly' ); |
| 282 |
- |
282 |
|
|
|
283 |
$sth->execute( "TEST_SUBSTITUTION", "[% SubstituteMe %]" ); |
| 284 |
$prepared_letter = GetPreparedLetter( |
| 285 |
( |
| 286 |
module => 'test', |
| 287 |
letter_code => 'TEST_SUBSTITUTION', |
| 288 |
substitute => { |
| 289 |
SubstituteMe => 'Substituted' |
| 290 |
} |
| 291 |
) |
| 292 |
); |
| 293 |
is( $prepared_letter->{content}, 'Substituted', 'Substitution works correctly' ); |