|
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 => 17; |
22 |
use Test::More tests => 18; |
| 23 |
use Test::Warn; |
23 |
use Test::Warn; |
| 24 |
|
24 |
|
| 25 |
use MARC::Record; |
25 |
use MARC::Record; |
|
Lines 934-936
sub process_letter {
Link Here
|
| 934 |
); |
934 |
); |
| 935 |
return $letter; |
935 |
return $letter; |
| 936 |
} |
936 |
} |
| 937 |
- |
937 |
|
|
|
938 |
$sth->execute( "TEST_SUBSTITUTION", "[% SubstituteMe %]" ); |
| 939 |
$prepared_letter = GetPreparedLetter( |
| 940 |
( |
| 941 |
module => 'test', |
| 942 |
letter_code => 'TEST_SUBSTITUTION', |
| 943 |
substitute => { |
| 944 |
SubstituteMe => 'Substituted' |
| 945 |
} |
| 946 |
) |
| 947 |
); |
| 948 |
is( $prepared_letter->{content}, 'Substituted', 'Substitution works correctly' ); |