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

Return to bug 15969