Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 7739beb083
Fetching contributors…

Cannot retrieve contributors at this time

44 lines (29 sloc) 0.779 kb
#! perl -T
#
# 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.");
}
Jump to Line
Something went wrong with that request. Please try again.