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
|
use Test::More tests => 15;
use HTML::Template::Expr;
use strict;
my ($template, $output);
# first load
$template = HTML::Template::Expr->new(path => ['t/templates'],
filename => 'numerics.tmpl',
cache => 1,
cache_debug => 0,
);
$template->param(float => 5.1,
four => 4);
$output = $template->output;
like($output, qr/INT: 5/, "int()");
like($output, qr/SQRT: 2/, "sqrt()");
like($output, qr/SQRT2: 4/, "sqrt() 2");
like($output, qr/SUM: 14/, "int(4 + 10.1)");
like($output, qr/SPRINTF: 14.1000/, "sprintf('%0.4f', (10.1 + 4))");
# load from cache
$template = HTML::Template::Expr->new(path => ['t/templates'],
filename => 'numerics.tmpl',
cache => 1,
cache_debug => 0,
);
$template->param(float => 5.1,
four => 4);
$output = $template->output;
like($output, qr/INT: 5/, "int()");
like($output, qr/SQRT: 2/, "sqrt()");
like($output, qr/SQRT2: 4/, "sqrt() 2");
like($output, qr/SUM: 14/, "int(4 + 10.1)");
like($output, qr/SPRINTF: 14.1000/, "sprintf('%0.4f', (10.1 + 4))");
# one more time...
$template = HTML::Template::Expr->new(path => ['t/templates'],
filename => 'numerics.tmpl',
cache => 1,
cache_debug => 0,
);
$template->param(float => 5.1,
four => 4);
$output = $template->output;
like($output, qr/INT: 5/, "int()");
like($output, qr/SQRT: 2/, "sqrt()");
like($output, qr/SQRT2: 4/, "sqrt() 2");
like($output, qr/SUM: 14/, "int(4 + 10.1)");
like($output, qr/SPRINTF: 14.1000/, "sprintf('%0.4f', (10.1 + 4))");
|
