SKIM / MARC-Convert-Wikidata-Object-0.10 / t / MARC-Convert-Wikidata-Object-Publisher / 05-name.t 

            

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

              
use strict;
use warnings;
use MARC::Convert::Wikidata::Object::Publisher;
use Test::More 'tests' => 2;
use Test::NoWarnings;
# Test.
my $obj = MARC::Convert::Wikidata::Object::Publisher->new(
        'name' => 'Academia',
);
my $name = $obj->name;
is($name, 'Academia', 'Get name.');