23 lines
465 B
Perl
23 lines
465 B
Perl
use 5.32.1;
|
|
|
|
use Test::Most tests => 3;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Const::Fast;
|
|
|
|
const my %REQUIRED_FIELDS_GROUP => ( groupname => 'example_group' );
|
|
|
|
{
|
|
use_ok 'BeastBB::Model::Group';
|
|
}
|
|
|
|
{
|
|
my $group = BeastBB::Model::Group->new(%REQUIRED_FIELDS_GROUP);
|
|
ok $group->isa('BeastBB::Model::Group'),
|
|
'Group is made of BeastBB::Model::Group.';
|
|
is_deeply $group->Hash, \%REQUIRED_FIELDS_GROUP,
|
|
'The generated hash of group is correct.';
|
|
}
|