t/db_dependent/api/v1/biblios.t

   1 #!/usr/bin/env perl
   2
   3 # This file is part of Koha.
   4 #
   5 # Koha is free software; you can redistribute it and/or modify it
   6 # under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation; either version 3 of the License, or
   8 # (at your option) any later version.
   9 #
  10 # Koha is distributed in the hope that it will be useful, but
  11 # WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  13 # GNU General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU General Public License
  16 # along with Koha; if not, see <http://www.gnu.org/licenses>.
  17
  18 use Modern::Perl;
  19
  20 use Test::More tests => 4;
  21 use Test::MockModule;
  22 use Test::Mojo;
  23 use Test::Warn;
  24
  25 use t::lib::Mocks;
  26 use t::lib::TestBuilder;
  27
  28 use C4::Auth;
  29 use Koha::Biblios;
  30 use Koha::Database;
  31
  32 my $schema  = Koha::Database->new->schema;
  33 my $builder = t::lib::TestBuilder->new;
  34
  35 t::lib::Mocks::mock_preference( 'RESTBasicAuth', 1 );
  36
  37 my $t = Test::Mojo->new('Koha::REST::V1');
  38
  39 subtest 'get() tests' => sub {
  40
  41     plan tests => 21;
  42
  43     $schema->storage->txn_begin;
  44
  45     my $patron = $builder->build_object(
  46         {
  47             class => 'Koha::Patrons',
  48             value => { flags => 0 }
  49         }
  50     );
  51     my $password = 'thePassword123';
  52     $patron->set_password( { password => $password, skip_validation => 1 } );
  53     $patron->discard_changes;
  54     my $userid = $patron->userid;
  55
  56     my $biblio = $builder->build_sample_biblio({
  57         title  => 'The unbearable lightness of being',
  58         author => 'Milan Kundera'
  59     });
  60     $t->get_ok("//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber)
  61       ->status_is(403);
  62
  63     $patron->flags(4)->store;
  64
  65     $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber
  66                 => { Accept => 'application/weird+format' } )
  67       ->status_is(406)
  68       ->json_is( [ "application/json",
  69                    "application/marcxml+xml",
  70                    "application/marc-in-json",
  71                    "application/marc",
  72                    "text/plain" ] );
  73
  74     $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber
  75                  => { Accept => 'application/json' } )
  76       ->status_is(200)
  77       ->json_is( '/title', 'The unbearable lightness of being' )
  78       ->json_is( '/author', 'Milan Kundera' );
  79
  80     $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber
  81                  => { Accept => 'application/marcxml+xml' } )
  82       ->status_is(200);
  83
  84     $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber
  85                  => { Accept => 'application/marc-in-json' } )
  86       ->status_is(200);
  87
  88     $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber
  89                  => { Accept => 'application/marc' } )
  90       ->status_is(200);
  91
  92     $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber
  93                  => { Accept => 'text/plain' } )
  94       ->status_is(200)
  95       ->content_is($biblio->metadata->record->as_formatted);
  96
  97     $biblio->delete;
  98     $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber
  99                  => { Accept => 'application/marc' } )
 100       ->status_is(404)
 101       ->json_is( '/error', 'Object not found.' );
 102
 103     $schema->storage->txn_rollback;
 104 };
 105
 106 subtest 'get_items() tests' => sub {
 107
 108     plan tests => 8;
 109
 110     $schema->storage->txn_begin;
 111
 112     my $patron = $builder->build_object(
 113         {
 114             class => 'Koha::Patrons',
 115             value => { flags => 0 }
 116         }
 117     );
 118     my $password = 'thePassword123';
 119     $patron->set_password( { password => $password, skip_validation => 1 } );
 120     $patron->discard_changes;
 121     my $userid = $patron->userid;
 122
 123     my $biblio = $builder->build_sample_biblio();
 124     $t->get_ok("//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber . "/items")
 125       ->status_is(403);
 126
 127     $patron->flags(4)->store;
 128
 129     $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber . "/items")
 130       ->status_is(200)
 131       ->json_is( '' => [], 'No items on the biblio' );
 132
 133     my $item_1 = $builder->build_sample_item({ biblionumber => $biblio->biblionumber });
 134     my $item_2 = $builder->build_sample_item({ biblionumber => $biblio->biblionumber });
 135
 136     $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber . "/items")
 137       ->status_is(200)
 138       ->json_is( '' => [ $item_1->to_api, $item_2->to_api ], 'The items are returned' );
 139
 140     $schema->storage->txn_rollback;
 141 };
 142
 143 subtest 'delete() tests' => sub {
 144
 145     plan tests => 9;
 146
 147     $schema->storage->txn_begin;
 148
 149     my $patron = $builder->build_object(
 150         {
 151             class => 'Koha::Patrons',
 152             value => { flags => 0 } # no permissions
 153         }
 154     );
 155     my $password = 'thePassword123';
 156     $patron->set_password( { password => $password, skip_validation => 1 } );
 157     my $userid = $patron->userid;
 158
 159     my $item      = $builder->build_sample_item();
 160     my $biblio_id = $item->biblionumber;
 161
 162     $t->delete_ok("//$userid:$password@/api/v1/biblios/$biblio_id")
 163       ->status_is(403, 'Not enough permissions makes it return the right code');
 164
 165     # Add permissions
 166     $builder->build(
 167         {
 168             source => 'UserPermission',
 169             value  => {
 170                 borrowernumber => $patron->borrowernumber,
 171                 module_bit     => 9,
 172                 code           => 'edit_catalogue'
 173             }
 174         }
 175     );
 176
 177
 178     # Bibs with items cannot be deleted
 179     $t->delete_ok("//$userid:$password@/api/v1/biblios/$biblio_id")
 180       ->status_is(409);
 181
 182     $item->delete();
 183
 184     # Bibs with no items can be deleted
 185     $t->delete_ok("//$userid:$password@/api/v1/biblios/$biblio_id")
 186       ->status_is(204, 'SWAGGER3.2.4')
 187       ->content_is('', 'SWAGGER3.3.4');
 188
 189     $t->delete_ok("//$userid:$password@/api/v1/biblios/$biblio_id")
 190       ->status_is(404);
 191
 192     $schema->storage->txn_rollback;
 193 };
 194
 195 subtest 'get_public() tests' => sub {
 196
 197     plan tests => 25;
 198
 199     $schema->storage->txn_begin;
 200
 201     my $category = $builder->build_object({ class => 'Koha::Patron::Categories' });
 202     my $patron = $builder->build_object(
 203         {
 204             class => 'Koha::Patrons',
 205             value => {
 206                 flags        => undef, # opac user
 207                 categorycode => $category->categorycode
 208             }
 209         }
 210     );
 211     my $password = 'thePassword123';
 212     $patron->set_password( { password => $password, skip_validation => 1 } );
 213     $patron->discard_changes;
 214     my $userid = $patron->userid;
 215
 216     my $biblio = $builder->build_sample_biblio({
 217         title  => 'The unbearable lightness of being',
 218         author => 'Milan Kundera'
 219     });
 220
 221     # Make sure author in shown in the OPAC
 222     my $subfields = Koha::MarcSubfieldStructures->search({ tagfield => '100' });
 223     while ( my $subfield = $subfields->next ) {
 224         $subfield->set({ hidden => -1 })->store;
 225     }
 226     Koha::Caches->get_instance()->flush_all;
 227
 228     $t->get_ok( "//$userid:$password@/api/v1/public/biblios/" . $biblio->biblionumber
 229                 => { Accept => 'application/weird+format' } )
 230       ->status_is(406)
 231       ->json_is( [ "application/marcxml+xml",
 232                    "application/marc-in-json",
 233                    "application/marc",
 234                    "text/plain" ] );
 235
 236     $t->get_ok( "//$userid:$password@/api/v1/public/biblios/" . $biblio->biblionumber
 237                  => { Accept => 'text/plain' } )
 238       ->status_is(200)
 239       ->content_like( qr{100\s+_aMilan Kundera} )
 240       ->content_like( qr{245\s+_aThe unbearable lightness of being} );
 241
 242     $t->get_ok( "//$userid:$password@/api/v1/public/biblios/" . $biblio->biblionumber
 243                  => { Accept => 'application/marcxml+xml' } )
 244       ->status_is(200);
 245
 246     $t->get_ok( "//$userid:$password@/api/v1/public/biblios/" . $biblio->biblionumber
 247                  => { Accept => 'application/marc-in-json' } )
 248       ->status_is(200);
 249
 250     $t->get_ok( "//$userid:$password@/api/v1/public/biblios/" . $biblio->biblionumber
 251                  => { Accept => 'application/marc' } )
 252       ->status_is(200);
 253
 254     $t->get_ok( "//$userid:$password@/api/v1/public/biblios/" . $biblio->biblionumber
 255                  => { Accept => 'text/plain' } )
 256       ->status_is(200)
 257       ->content_is($biblio->metadata->record->as_formatted);
 258
 259     subtest 'anonymous access' => sub {
 260         plan tests => 9;
 261
 262         $t->get_ok( "/api/v1/public/biblios/" . $biblio->biblionumber
 263                  => { Accept => 'application/marcxml+xml' } )
 264           ->status_is(200);
 265
 266         $t->get_ok( "/api/v1/public/biblios/" . $biblio->biblionumber
 267                     => { Accept => 'application/marc-in-json' } )
 268         ->status_is(200);
 269
 270         $t->get_ok( "/api/v1/public/biblios/" . $biblio->biblionumber
 271                     => { Accept => 'application/marc' } )
 272         ->status_is(200);
 273
 274         $t->get_ok( "/api/v1/public/biblios/" . $biblio->biblionumber
 275                     => { Accept => 'text/plain' } )
 276         ->status_is(200)
 277         ->content_is($biblio->metadata->record->as_formatted);
 278     };
 279
 280     # Hide author in OPAC
 281     $subfields = Koha::MarcSubfieldStructures->search({ tagfield => '100' });
 282     while ( my $subfield = $subfields->next ) {
 283         $subfield->set({ hidden => 1 })->store;
 284     }
 285
 286     Koha::Caches->get_instance()->flush_all;
 287
 288     $t->get_ok( "//$userid:$password@/api/v1/public/biblios/" . $biblio->biblionumber
 289                  => { Accept => 'text/plain' } )
 290       ->status_is(200)
 291       ->content_unlike( qr{100\s+_aMilan Kundera} )
 292       ->content_like( qr{245\s+_aThe unbearable lightness of being} );
 293
 294     subtest 'hidden_in_opac tests' => sub {
 295
 296         plan tests => 6;
 297
 298         my $biblio_hidden_in_opac = 1;
 299
 300         my $biblio_class = Test::MockModule->new('Koha::Biblio');
 301         # force biblio hidden in OPAC
 302         $biblio_class->mock( 'hidden_in_opac', sub { return $biblio_hidden_in_opac; } );
 303
 304         $t->get_ok( "/api/v1/public/biblios/" . $biblio->biblionumber
 305                  => { Accept => 'text/plain' } )
 306           ->status_is(404, 'hidden_in_opac + anonymous => hidden');
 307
 308         my $category_override_hidden_items = 0;
 309         my $category_class = Test::MockModule->new('Koha::Patron::Category');
 310         $category_class->mock( 'override_hidden_items', sub { return $category_override_hidden_items; } );
 311         $t->get_ok( "//$userid:$password@/api/v1/public/biblios/" . $biblio->biblionumber
 312                  => { Accept => 'text/plain' } )
 313           ->status_is(404, "hidden_in_opac + patron whose category doesn't override => hidden");
 314
 315         # Make the category override
 316         $category_override_hidden_items = 1;
 317         $t->get_ok( "//$userid:$password@/api/v1/public/biblios/" . $biblio->biblionumber
 318                  => { Accept => 'text/plain' } )
 319           ->status_is(200, "hidden_in_opac + patron whose category that overrides => displayed");
 320
 321         t::lib::Mocks::mock_preference('OpacHiddenItems');
 322     };
 323
 324     $biblio->delete;
 325     $t->get_ok( "//$userid:$password@/api/v1/public/biblios/" . $biblio->biblionumber
 326                  => { Accept => 'application/marc' } )
 327       ->status_is(404)
 328       ->json_is( '/error', 'Object not found.' );
 329
 330     $schema->storage->txn_rollback;
 331 };