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

is_deeply(
    parsefile('t/amazon.xml'),
    do "t/amazon-parsed-with-xml-parser-easytree",
    "Real-world XML from Amazon parsed correctly"
);

is_deeply(
    parsefile('t/rss.xml'),
    do "t/rss-parsed-with-xml-parser-easytree",
    "Real-world XML from an RSS feed parsed correctly"
);