use
strict;
use
warnings;
use
Test::NoWarnings;
# Test.
my
$obj
= MARC::Convert::Wikidata::Object::People->new;
my
$ret
=
$obj
->date_of_birth;
is(
$ret
,
undef
,
'Get default date of birth.'
);
# Test.
$obj
= MARC::Convert::Wikidata::Object::People->new(
date_of_birth
=>
'1814'
,
date_of_death
=>
'1883'
,
name
=> decode_utf8(
'Antonín'
),
nkcr_aut
=>
'jk01033252'
,
surname
=>
'Halouzka'
,
);
$ret
=
$obj
->date_of_birth;
is(
$ret
,
'1814'
,
'Get explicit date of birth.'
);