#!/usr/bin/perl
use strict;
use Test::More tests => 1;
my $template_sprintf_30 = '<%= test ESCAPE=SPRINTF_6_RIGHT %>';
my $text = 'hello';
my $tmpl = HTML::Template::Compiled->new(
scalarref => \$template_sprintf_30,
plugin => [ 'HTML::Template::Compiled::Plugin::Sprintf' ],
);
$tmpl->param( test => $text );
my $output = $tmpl->output;
is $output, ' hello', 'sprintf_6_right';