104
104
my $tmpl = "++++\n%s\n%s\n++\n%s\n"; # test-name, input, expected-output
107
my @chars = ( '<', '>', '&', decode_entities(' ') );
108
108
foreach my $char ( @chars ) {
109
109
( my $charname = e($char) ) =~ s/[&;]//g;
110
110
$data .= sprintf $tmpl, "literal ($charname)", $char, e($char)