t/util.t gives uncaught error #1154
Description
This is run on current develop branch, commit e224292:
$ PERL_DL_NONLAZY=1 "/usr/local/bin/perl" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(1, 'inc', 'blib/lib', 'blib/arch')" t/util.t
t/util.t ..
ok 1 - use Zonemaster::Engine::Util;
ok 2 - An object of class 'Zonemaster::Engine::Nameserver' isa 'Zonemaster::Engine::Nameserver'
ok 3 - An object of class 'Zonemaster::Engine::Logger::Entry' isa 'Zonemaster::Engine::Logger::Entry'
ok 4 - An object of class 'Zonemaster::Engine::DNSName' isa 'Zonemaster::Engine::DNSName'
ok 5 - A reference of type 'HASH' isa 'HASH'
ok 6 - At least four keys
ok 7 - Expected content.
# Subtest: parse_hints()
ok 1 - Cropped IANA hints
unable to parse RR string at /usr/local/lib/perl5/site_perl/Net/DNS/ZoneFile.pm line 534.
at /usr/home/matsd/.cpanm/work/1669629248.58017/Zonemaster-Engine-v4.5.1/blib/lib/Zonemaster/Engine/Util.pm line 179.
ok 2 - Syntax error
ok 3 - Forbidden $TTL
ok 4 - Forbidden $INCLUDE
ok 5 - Forbidden $ORIGIN
ok 6 - Forbidden $GENERATE
ok 7 - Forbidden CH class
ok 8 - Forbidden RR type SOA
ok 9 - Forbidden RR type TXT
ok 10 - Wrong owner name
ok 11 - Missing address record
ok 12 - Orphan A record
ok 13 - Orphan AAAA record
ok 14 - Missing NS
1..14
ok 8 - parse_hints()
1..8
ok
All tests successful.
Files=1, Tests=8, 0 wallclock secs ( 0.03 usr 0.01 sys + 0.52 cusr 0.09 csys = 0.65 CPU)
Result: PASS