From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

use strict;
use lib qw(./lib ./blib/lib);
my $Package = 'Sisimai::Lhost';
my $Methods = {
'class' => [ 'description', 'inquire', 'index', 'path', 'DELIVERYSTATUS', 'INDICATORS' ],
'object' => [],
};
use_ok $Package;
can_ok $Package, @{ $Methods->{'class'} };
MAKETEST: {
is $Package->description, '', '->description';
is $Package->inquire, undef, '->inquire';
isa_ok $Package->index, 'ARRAY';
ok scalar @{ $Package->index };
isa_ok $Package->path, 'HASH';
ok scalar keys %{ $Package->path };
isa_ok $Package->DELIVERYSTATUS, 'HASH';
is scalar(keys %{ $Package->DELIVERYSTATUS }), 14;
isa_ok $Package->INDICATORS, 'HASH';
is scalar(keys %{ $Package->INDICATORS }), 2;
}
done_testing;