Permalink
Switch branches/tags
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
40 lines (33 sloc) 1.57 KB
use 5.010;
use Test::More tests => 18;
use lib 'blib', 'lib';
use WebService::Libris;
use utf8;
binmode STDOUT, ':encoding(UTF-8)';
ok my $book = WebService::Libris->new(
type => 'bib',
id => '9604288',
cache_dir => 't/data/',
), 'Can get a book by id';
is $book->title, 'Låt den rätte komma in : [skräckroman]', 'title';
is $book->language, 'sv', 'language';
is $book->isbn, '9170370192', 'ISBN';
is join(', ', $book->authors_text),
'Ajvide Lindqvist, John, 1968-, John Ajvide Lindqvist',
'Authors (text)';
is $book->language, 'sv', 'language';
is join(',', $book->authors_ids), '246603', 'author ids';
my @authors = $book->authors_obj;
is scalar(@authors), 1, 'got the right number of author objects';
my $author = $authors[0];
is $author->id, ($book->authors_ids)[0], 'consistency of author IDs';
is $author->libris_key, 'Ajvide Lindqvist, John, 1968-', 'author: libris key';
is join(', ', $author->names), 'Ajvide Lindkvist, Jun, 1968-, John Ajvide Lindqvist, Jon Ajvide Lindkvist, Lindqvist, John Ajvide, 1968-, Lindkvist, Jon Ajvide, 1968-, Ajvide Lindqvist, John, 1968-, Jun Ajvide Lindkvist', 'all name variants';
is $author->birthyear, '1968', 'birth year';
is $author->same_as, 'http://viaf.org/viaf/72579864/#foaf:Person', 'same_as URL';
my @libs = $book->held_by;
is scalar(@libs), 13, 'correct number of libraries that hold our book';
is $libs[1]->name, 'Umeå universitetsbibliotek', 'library name';
is $libs[1]->lat, '63.823181', 'lattitude';
is $libs[1]->long, '20.305824', 'longitude';
is $libs[1]->homepage, 'http://www.ub.umu.se', 'homepage';