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
|
use Test::More tests => 6;
use strict;
use warnings;
use Dancer::Template;
my $config = {
engines => {
simple => {
start_tag => '[%',
stop_tag => '%]',
},
},
};
my $e;
eval { $e = Dancer::Template->init() };
is $@, '', 'init a template without agrs';
is $e->name, 'simple', 'name is read';
is_deeply $e->config, {}, 'default settings are set';
$e = Dancer::Template->init('simple', $config);
is $e->name, 'simple', 'name is read';
is $e->config->{start_tag}, '[%', 'start_tag is read';
is $e->config->{stop_tag}, '%]', 'stop_tag is read';
|
