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