use XML::Tiny qw(parsefile);

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

$^W = 1;

$SIG{__WARN__} = sub { die("Caught a warning, making it fatal:\n\n$_[0]\n"); };

eval { parsefile(q{_TINY_XML_STRING_<!ENTITY...><x></x>}, fatal_declarations => 1) };
ok($@, "fatal_declarations really is fatal ...");

ok(parsefile(q{_TINY_XML_STRING_<!ENTITY...><x></x>}),
    "... but we can live without it");