use XML::Tiny qw(parsefile);

use strict;
require "t/test_functions";
print "1..20\n";

$^W = 1;

my @encodings = ( "UTF-8", "UTF-16-BE", "UTF-16-LE", "UTF-32-BE", "UTF-32-LE" );

foreach my $encoding (@encodings) {
  ok(my $xml = parsefile("t/bom-$encoding.xml"), "Don't choke on $encoding BOM in file");
  is($xml->[0]->{attrib}->{bar}, "hlagh", "  parse it correctly");

  open(my $fh, "t/bom-$encoding.xml");
  ok($xml = parsefile("_TINY_XML_STRING_".<$fh>), "Don't choke on $encoding BOM in string");
  is($xml->[0]->{attrib}->{bar}, "hlagh", "  parse it correctly");
}