View | Details | Raw Unified | Return to bug 15969
Collapse All | Expand All

(-)a/t/db_dependent/Letters/TemplateToolkit.t (-2 / +13 lines)
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' );

Return to bug 15969