use XML::Tiny qw(parsefile);
use strict;
require "t/test_functions";
print "1..1\n";
$^W = 1;
$SIG{__WARN__} = sub { die("Caught a warning, making it fatal:\n\n$_[0]\n"); };
is_deeply(
parsefile(q{_TINY_XML_STRING_<x><![CDATA[& < >]]></x>}),
[{ 'name' => 'x', 'content' => [{'content' => '& < >', 'type' => 't'}], 'type' => 'e', attrib => {}}],
"CDATA parsed correctly"
);