use strict; use Test::More tests => 252; use HTML::Entities::Numbered; open(ENT, 't/entities.txt') || die $!; while () { chomp; my @entity = split /\t+/, $_; ok(name2decimal($entity[0]) eq $entity[1]); } close ENT;