View | Details | Raw Unified | Return to bug 33329
Collapse All | Expand All

(-)a/t/db_dependent/api/v1/biblios.t (-5 / +24 lines)
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
- 

Return to bug 33329