use
strict;
use
warnings;
use
Test::NoWarnings;
# Test.
my
$obj
= Wikibase::Datatype::Value::Monolingual->new(
'value'
=>
'Example'
,
);
my
$ret
=
$obj
->language;
is(
$ret
,
'en'
,
'Get default language().'
);
# Test.
$obj
= Wikibase::Datatype::Value::Monolingual->new(
'language'
=>
'cs'
,
'value'
=> decode_utf8(
'Příklad'
),
);
$ret
=
$obj
->language;
is(
$ret
,
'cs'
,
'Get explicit language().'
);