#! perl
#
# Test for HTML files with UTF-8 content
use strict;
use warnings;
use Test::More tests => 3;
use File::Basename;
use Template::Flute;
use Template::Flute::Specification::XML;
use Template::Flute::HTML;
# parse XML specification
my ($spec, $ret);
$spec = new Template::Flute::Specification::XML;
$ret = $spec->parse_file(dirname(__FILE__) . '/files/utf8.xml');
isa_ok($ret, 'Template::Flute::Specification');
# check whether encoding was read correctly
ok($ret->encoding() eq 'utf8');
# parse HTML template
my ($html_object);
$html_object = new Template::Flute::HTML;
eval {
$html_object->parse_file(dirname(__FILE__) . '/files/utf8.html', $ret);
};
if ($@) {
fail("Crashed while parsing HTML: $@");
}
else {
pass("Parsing HTML was successful.");
}