The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

TOBYINK / HTML-HTML5-Entities-0.004 / t / 04roundtrip.t 

            

              
1
2
3
4
5
6
7
8
9
10
11

              
use Test::More tests => 1;
use HTML::HTML5::Entities qw[
        encode_entities decode_entities _decode_entities %entity2char
];
my $orig = my $in = 'é&€';
is(
        encode_entities( decode_entities($in), qr/./ ),
        $orig,
        'more complex example',
) or diag decode_entities($orig);