use strict;
use warnings;

use Test::More tests => 1;                      
use Template;

my $foo = 'some<stuff_to"be>escaped';
my $want = 'some%3Cstuff_to%22be%3Eescaped';

my $template = Template->new;
my $tmpl = '[% foo | uri %]';

my $out;
$template->process (\$tmpl, { foo => $foo }, \$out) or
    die $template->error ();
is ($out, $want);