Lines 1616-1622
subtest 'put() tests' => sub {
Link Here
|
1616 |
}; |
1616 |
}; |
1617 |
|
1617 |
|
1618 |
subtest 'list() tests' => sub { |
1618 |
subtest 'list() tests' => sub { |
1619 |
plan tests => 14; |
1619 |
|
|
|
1620 |
plan tests => 15; |
1620 |
|
1621 |
|
1621 |
$schema->storage->txn_begin; |
1622 |
$schema->storage->txn_begin; |
1622 |
|
1623 |
|
Lines 1631-1637
subtest 'list() tests' => sub {
Link Here
|
1631 |
$patron->discard_changes; |
1632 |
$patron->discard_changes; |
1632 |
my $userid = $patron->userid; |
1633 |
my $userid = $patron->userid; |
1633 |
|
1634 |
|
1634 |
my $biblionumber1 = $builder->build_sample_biblio->biblionumber; |
1635 |
t::lib::Mocks::mock_preference('marcflavour', 'UNIMARC'); |
|
|
1636 |
|
1637 |
my $title_with_diacritics = "L'insoutenable légèreté de l'être"; |
1638 |
my $biblio = $builder->build_sample_biblio( |
1639 |
{ |
1640 |
title => $title_with_diacritics, |
1641 |
author => "Milan Kundera" |
1642 |
} |
1643 |
); |
1644 |
|
1645 |
my $record = $biblio->metadata->record; |
1646 |
$record->leader(' nam 3 4500'); |
1647 |
$biblio->metadata->metadata($record->as_xml_record('UNIMARC'))->store; |
1648 |
|
1649 |
my $biblionumber1 = $biblio->biblionumber; |
1650 |
|
1651 |
t::lib::Mocks::mock_preference('marcflavour', 'MARC21'); |
1635 |
my $biblionumber2 = $builder->build_sample_biblio->biblionumber; |
1652 |
my $biblionumber2 = $builder->build_sample_biblio->biblionumber; |
1636 |
|
1653 |
|
1637 |
my $search = |
1654 |
my $search = |
Lines 1650-1658
subtest 'list() tests' => sub {
Link Here
|
1650 |
{ Accept => 'application/json', 'x-koha-query' => $search } ) |
1667 |
{ Accept => 'application/json', 'x-koha-query' => $search } ) |
1651 |
->status_is(200); |
1668 |
->status_is(200); |
1652 |
|
1669 |
|
1653 |
$t->get_ok( "//$userid:$password@/api/v1/biblios/" => |
1670 |
my $result = $t->get_ok( "//$userid:$password@/api/v1/biblios/" => |
1654 |
{ Accept => 'application/marcxml+xml', 'x-koha-query' => $search } ) |
1671 |
{ Accept => 'application/marcxml+xml', 'x-koha-query' => $search } ) |
1655 |
->status_is(200); |
1672 |
->status_is(200)->tx->res->body; |
|
|
1673 |
|
1674 |
my $encoded_title = Encode::encode( "UTF-8", $title_with_diacritics ); |
1675 |
like( $result, qr/\Q$encoded_title/, "The title is not double encoded" ); |
1656 |
|
1676 |
|
1657 |
$t->get_ok( "//$userid:$password@/api/v1/biblios/" => |
1677 |
$t->get_ok( "//$userid:$password@/api/v1/biblios/" => |
1658 |
{ Accept => 'application/marc-in-json', 'x-koha-query' => $search } ) |
1678 |
{ Accept => 'application/marc-in-json', 'x-koha-query' => $search } ) |
1659 |
- |
|
|