#!perl -w
use strict;
use utf8;
use Test::More;

use Text::Xslate;
use Encode ();

use File::Path qw(rmtree);
use t::lib::Util;
rmtree(cache_dir);
END{ rmtree(cache_dir) }

my $p = Encode::encode('cp932', 'エクスレート');

for(1 .. 2) {
    my $tx =  Text::Xslate->new(
        path => [path],
        cache_dir => cache_dir,
        pre_process_handler => sub { Encode::encode('cp932', $_[0]) },
    );


    is $tx->render('hello_utf8.tx', { name => $p }),
        Encode::encode('cp932', "こんにちは！ エクスレート！\n");

    is $tx->render('hello_utf8.tx', { name => $p }),
        Encode::encode('cp932', "こんにちは！ エクスレート！\n");
}
done_testing;