use
strict;
use
warnings;
use
Test::NoWarnings;
# 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.'
);