1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Text::Handlebars;
use Text::Xslate 'mark_raw';
my $tx = Text::Handlebars->new;
is(
$tx->render_string(
'<h1>{{title}}</h1><p>{{{body}}}</p>',
{ title => 'My New Post', body => 'This is my first post!' },
),
'<h1>My New Post</h1><p>This is my first post!</p>',
);
is(
$tx->render_string(
'<h1>{{title}}</h1><p>{{{body}}}</p>',
{ title => 'All About <p> Tags', body => '<i>This is a post about <p> tags</i>' },
),
'<h1>All About <p> Tags</h1><p><i>This is a post about <p> tags</i></p>',
);
is(
$tx->render_string(
'<h1>{{title}}</h1><p>{{{body}}}</p>',
{ title => mark_raw('All About <p> Tags'), body => '<i>This is a post about <p> tags</i>' },
),
'<h1>All About <p> Tags</h1><p><i>This is a post about <p> tags</i></p>',
);
done_testing;
|