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