#!perl -T

use Test::Base;

plan tests => 1;

use Template;
use Template::Stash::Encode;

run_is input => 'expected';

sub eucjp_to_utf8 {
    my $value = shift;
    my $tmpl  = '[% value %]';

    my $tt =
      Template->new( STASH =>
          Template::Stash::Encode->new( icode => 'euc-jp', ocode => 'utf8' ) );

    $tt->process( \$tmpl, { value => $value }, \my $result );

		print STDERR $result;

    return $result;
}

__END__

=== First test
--- input eval eucjp_to_utf8
qq|\xC1\xFD\xC5\xC4\x5A\x49\x47\x4F\x52\x4F\xA5\xA5|
--- expected eval
qq|\xE5\xA2\x97\xE7\x94\xB0\x5A\x49\x47\x4F\x52\x4F\xE3\x82\xA5|