The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More tests => 3;
use HTML::Template::Pro;

my $template = HTML::Template::Expr->new(path => ['t/templates'],
                                      filename => 'foo.tmpl');
$template->param(foo => 100);
my $output = $template->output();
like($output, qr/greater than/i, "greater than");

$template->param(foo => 10);
$output = $template->output();
like($output, qr/less than/i, "less than");


$template = HTML::Template::Expr->new(path => ['t/templates'],
                                      filename => 'negative.tmpl');
$template->param(foo => 100);
$output = $template->output();
like($output, qr/Yes/, "negative numbers work");