1#!perl -T 2 3use strict; 4use warnings; 5use Test::More tests => 3; 6use Tenjin; 7use utf8; 8 9my $t = Tenjin->new({ path => ['t/data/encoding'] }); 10ok($t, 'Got a proper Tenjin instance'); 11 12is($t->render('hebrew.html'), "<h1>ג'רי סיינפלד</h1>\n", 'UTF-8 (Hebrew) properly decoded'); 13 14is($t->render('chinese.html'), "<a title=\"汉语/漢語\">Chinese</a>\n", 'UTF-8 (Chinese) properly decoded'); 15