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

SKIM / Wikibase-Datatype-0.21 / t / Wikibase-Datatype-Value / 05-value.t 

            

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

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