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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
use Mojo::Base -strict;
BEGIN { $ENV{MOJO_REACTOR} = 'Mojo::Reactor::Poll' }
use Test::Mojo;
use Test::More;
use Mojolicious::Lite;
use Mojo::Util;
# Custom format
app->renderer->default_format('foo');
# Twinkle template syntax
my $twinkle = {
append => '$self->res->headers->header("X-Append" => $prepended);',
auto_escape => 0,
capture_end => '-',
capture_start => '+',
escape => sub {
my $str = shift;
$str =~ s/</</g;
return $str;
},
escape_mark => '*',
expression_mark => '*',
line_start => '.',
namespace => 'TwinkleSandBoxTest',
prepend => 'my $prepended = $self->config("foo");',
tag_end => '**',
tag_start => '**',
trim_mark => '*'
};
# Renderer
plugin EPRenderer => {name => 'twinkle', template => $twinkle};
subtest 'Configuration' => sub {
app->defaults(foo_test => 23);
my $config = plugin JSONConfig => {
default => {foo => 'bar'},
ext => 'conf',
template =>
{%$twinkle, append => '$app->defaults(foo_test => 24)', prepend => 'my $foo = app->defaults("foo_test");'}
};
is $config->{foo}, 'bar', 'right value';
is $config->{test}, 23, 'right value';
is app->defaults('foo_test'), 24, 'right value';
};
get '/' => {name => '<sebastian>'} => 'index';
get '/advanced' => 'advanced';
get '/rest' => [format => 'html'] => {format => undef} => sub {
shift->respond_to(foo => {text => 'foo works!'}, html => {text => 'html works!'})
->res->headers->header('X-Rest' => 1);
};
get '/dead' => sub {die};
my $t = Test::Mojo->new;
subtest 'Basic template with "twinkle" syntax and "ep" layout' => sub {
$t->get_ok('/')->status_is(200)->header_is('X-Append' => 'bar')
->content_like(qr/testHello <sebastian>!bar TwinkleSandBoxTest123/);
};
subtest 'Advanced template with "twinkle" syntax' => sub {
$t->get_ok('/advanced')->status_is(200)->header_is('X-Append' => 'bar')->content_is("<escape me>\n123423");
};
subtest 'REST request for "foo" format' => sub {
$t->get_ok('/rest')->status_is(200)->header_is('X-Rest' => 1)->content_is('foo works!');
};
subtest 'REST request for "html" format' => sub {
$t->get_ok('/rest.html')->status_is(200)->header_is('X-Rest' => 1)->content_is('html works!');
};
subtest 'Exception template with custom format' => sub {
$t->get_ok('/dead')->status_is(500)->content_is("foo exception!\n");
};
done_testing();
__DATA__
@@ index.foo.twinkle
. layout 'twinkle';
Hello *** $name **!\
*** $prepended ** *** __PACKAGE__ **\
@@ layouts/twinkle.foo.ep
test<%= content %>123\
@@ advanced.foo.twinkle
.** "<escape me>"
. my $numbers = [1 .. 4];
** for my $i (@$numbers) { ***
*** $i ***
** } ***
** my $foo = (+*** 23 **-)->();*** *** $foo ***
@@ exception.foo.ep
foo exception!
@@ not_found.foo.ep
foo not found!
|
