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
|
use strict;
use warnings;
use Test::More;
use SelectSaver;
use Text::Xslate::Runner;
sub capture(&) {
my($block) = @_;
my $s = '';
{
open my $out, '>', \$s;
my $saver = SelectSaver->new($out);
$block->();
}
return $s;
}
my $app = Text::Xslate::Runner->new(
eval => 'Hello, <: $lang :> world!',
define => { lang => '<Xslate>' },
);
is capture { $app->run() }, "Hello, <Xslate> world!\n";
$app = Text::Xslate::Runner->new(
eval => 'Hello, <: $lang :> world!',
define => { lang => '<Xslate>' },
type => 'text',
);
is capture { $app->run() }, "Hello, <Xslate> world!\n";
$app = Text::Xslate::Runner->new(
eval => 'Hello, [% $lang %] world!',
define => { lang => '<Xslate>' },
syntax => 'TTerse',
);
is capture { $app->run() }, "Hello, <Xslate> world!\n";
$app = Text::Xslate::Runner->new(
eval => 'Hello, [% $lang %] world!',
define => { lang => '<Xslate>' },
syntax => 'TTerse',
);
is capture { $app->run() }, "Hello, <Xslate> world!\n";
my @argv;
@argv = (
'-e<: max(10, 20, 30, 25, 15) :>/<: min(10, 20, 30, 25, 15) :>',
'-MList::Util=max,min',
);
$app = Text::Xslate::Runner->new_from(@argv);
is capture { $app->run() }, "30/10\n";
@argv = (
'-e', '<: $foo :>/<: $bar :>',
'-Dfoo=100',
'-Dbar=200',
);
$app = Text::Xslate::Runner->new_from(@argv);
is capture { $app->run() }, "100/200\n";
@argv = (
'-e', '<: $foo :>/<: $bar :>',
'-D', 'foo=100',
'-D', 'bar=200',
);
$app = Text::Xslate::Runner->new_from(@argv);
is capture { $app->run() }, "100/200\n";
my $help = capture {
Text::Xslate::Runner->new_from('--help')->run();
};
like $help, qr/--help/;
like $help, qr/--define/;
like $help, qr/--eval/;
my $version_info = capture {
Text::Xslate::Runner->new_from('--version')->run();
};
like $version_info, qr/Text::Xslate::Runner/;
done_testing;
|
