view release on metacpan or  search on metacpan

t/53-bugfix-cdata-in-attrib.t  view on Meta::CPAN

use strict;
use lib '.';

use XML::Tiny qw(parsefile);
require "t/test_functions";
print "1..2\n";

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

ok(my $xml = parsefile('t/cdata-in-attrib.xml'), "Don't choke on CDATA in attribs");
is($xml->[0]->{attrib}->{value}, "This ship's name", "parse it correctly");