Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more

SKIM / Wikibase-Datatype-0.21 / t / Wikibase-Datatype-Value-Quantity / 05-type.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13

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