use strict;
use Test::More 'tests' => 3;
use Unicode::UTF8 qw(decode_utf8);
# Test.
my $obj = MARC::Convert::Wikidata::Object->new;
is_deeply(
$obj->compilers,
[],
'Get default compilers list.',
);
# Test.
my $compiler = MARC::Convert::Wikidata::Object::People->new(
date_of_birth => '1814',
date_of_death => '1883',
name => decode_utf8('Antonín'),
nkcr_aut => 'jk01033252',
surname => 'Halouzka',
);
$obj = MARC::Convert::Wikidata::Object->new(
'compilers' => [$compiler],
);
my @compilers = $obj->compilers;
is(@compilers, 1, 'Get number of compilers.');