use
strict;
use
warnings;
use
Test::NoWarnings;
# Test.
my
$obj
= MARC::Convert::Wikidata::Object::Series->new(
'name'
=>
'book series'
,
);
my
$ret
=
$obj
->series_ordinal;
is(
$ret
,
undef
,
'Get default series ordinal of series.'
);
# Test.
$obj
= MARC::Convert::Wikidata::Object::Series->new(
'name'
=>
'book series'
,
'series_ordinal'
=>
'II.'
,
);
$ret
=
$obj
->series_ordinal;
is(
$ret
,
'II.'
,
'Get explicit series ordinal of series.'
);