File: 04roundtrip.t

package info (click to toggle)
libhtml-html5-entities-perl 0.004-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 220 kB
  • sloc: perl: 2,606; makefile: 2
file content (11 lines) | stat: -rw-r--r-- 287 bytes parent folder | download | duplicates (3) 
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);