| Subject: | doesn't actually work for most characters |
test case attached demonstrating encoding and decoding don't work for majority of characters:
# Looks like you failed 3958 tests of 4250.
| Subject: | a.pl |
#!/usr/bin/env perl
use strict;
use warnings;
use HTML::HTML5::Entities;
use Test::More;
while (my ($ent, $chr) = each %HTML::HTML5::Entities::entity2char) {
next unless ';' eq substr $ent, -1, 1;
$ent = "&$ent";
is decode_entities($ent), $chr, "decoding entity";
is encode_entities($chr), $ent, "encoding character";
}
done_testing;