my $test_name= "no such bundle";
try {
    HTML::EntityReference::ordinal('CapitalDifferentialD', ':fooXX');
    fail ($test_name);
    }
catch {
    my $exception= $_;
    like ($exception, qr/:fooXX/, "$test_name - mentions cause of error");
    like ($exception, qr/at t\/tests\.t/, "$test_name - carps correctly");
    pass ($test_name); 
    }  ;