use
strict;
use
warnings;
use
Test::NoWarnings;
# Test.
my
$obj
= Wikibase::Datatype::Statement->new(
'snak'
=> Wikibase::Datatype::Snak->new(
'datavalue'
=> Wikibase::Datatype::Value::String->new(
'value'
=>
'foo'
,
),
'datatype'
=>
'string'
,
'property'
=>
'P123'
,
),
);
my
$rank
=
$obj
->rank;
is(
$rank
,
'normal'
,
'Get default rank() value.'
);