#! 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.");
}