use
strict;
use
warnings;
use
English;
use
Test::NoWarnings;
# Test.
my
$obj
= Test::Shared::Fixture::Wikibase::Datatype::MediainfoStatement::Commons::Depicts::Human->new;
my
@ret
= Wikibase::Datatype::Print::MediainfoStatement::
(
$obj
);
is_deeply(
\
@ret
,
[
'P180: Q42 (normal)'
,
],
'Get printed value.'
,
);
# Test.
eval
{
Wikibase::Datatype::Print::MediainfoStatement::
(
'bad'
);
};
is(
$EVAL_ERROR
,
"Object isn't 'Wikibase::Datatype::MediainfoStatement'.\n"
,
"Object isn't 'Wikibase::Datatype::MediainfoStatement'."
);
clean();