Test escaping of attributes of XML element not only for '&', but also
for '<', '>' and '"'.
Test currently fails for escaping '"', which should be escaped as
'"' (at least for attribute with value delimited with '"'), and
not as '"' (note missing ';').
Signed-off-by: Jakub Narebski <jnareb@gmail.com>
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'
);