12345678910111213 use strict;use warnings;use Test::More 'tests' => 2;use Test::NoWarnings;use Wikibase::Datatype::Value::Property;# Test.my $obj = Wikibase::Datatype::Value::Property->new( 'value' => 'P123',);my $ret = $obj->type;is($ret, 'property', 'Get type().');
use
strict;
warnings;
Test::More
'tests'
=> 2;
Test::NoWarnings;
Wikibase::Datatype::Value::Property;
# Test.
my
$obj
= Wikibase::Datatype::Value::Property->new(
'value'
=>
'P123'
,
);
$ret
=
->type;
is(
'property'
'Get type().'