blob: 1a79add68591b67637f074a93354e9c4c9223517 (
plain) (
blame)
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
|
use strict;
use warnings;
use Test::More tests => 2;
use File::Spec::Functions qw(catfile);
use Dancer::Template::Xslate;
ok(
my $engine = Dancer::Template::Xslate->new,
"Dancer::Template::Xslate engine created"
);
my $template = catfile(qw(t views index.xslate));
my $result = $engine->render(
$template,
{ var1 => 1,
var2 => 2,
foo => 'one',
bar => 'two',
baz => 'three'
}
);
my $expected =
'this is var1="1" and var2=2' . "\n\nanother line\n\none two three\n";
is $result, $expected, "processed a template given as a file name";
|