sub fleem {
use XML::Tags qw(woo);
- my $ent = "one&two";
+ my $ent = 'one&two<three>"four';
<woo ent="$ent">;
}
is(
join('', XML::Tags::to_xml_string Foo::fleem),
- '<woo ent="one&two">',
+ '<woo ent="one&two<three>"four">',
'Escaping ok'
);