use Test::More tests => 7;
use HTML::HTML5::Entities qw[decode_entities _decode_entities %entity2char];
is(decode_entities('&'), '&', 'decode_entities works');
is(decode_entities('a&b'), 'a&b', 'non-entities passed though');
is(decode_entities('a&b'), 'a&b', 'numeric entity decoded');
is(decode_entities('a&b'), 'a&b', 'sloppy entities decoded');
my $var = '&';
decode_entities($var);
is($var, '&', 'in-place decoding works');
$var = 'f&ck';
_decode_entities($var, \%entity2char, 1);
is($var, 'f&ck', 'expand_prefix works');
$var = 'f&ck';
_decode_entities($var, \%entity2char, 0);
is($var, 'f&ck', 'expand_prefix can be disabled');