4 use Test
::More tests
=> 6;
5 use DateTime
::Duration
;
9 use Koha
::Virtualshelves
;
10 use Koha
::Virtualshelfshares
;
11 use Koha
::Virtualshelfcontents
;
13 use t
::lib
::TestBuilder
;
15 my $builder = t
::lib
::TestBuilder
->new;
17 my $dbh = C4
::Context
->dbh;
18 $dbh->{AutoCommit
} = 0;
21 subtest
'CRUD' => sub {
23 my $patron = $builder->build({
27 my $number_of_shelves = Koha
::Virtualshelves
->search->count;
29 is
( $number_of_shelves, 0, 'No shelves should exist' );
31 my $shelf = Koha
::Virtualshelf
->new({
32 shelfname
=> "my first shelf",
33 owner
=> $patron->{borrowernumber
},
38 is
( ref( $shelf ), 'Koha::Virtualshelf', 'The constructor should return a valid object' );
40 $number_of_shelves = Koha
::Virtualshelves
->search->count;
41 is
( $number_of_shelves, 1, '1 shelf should have been inserted' );
42 is
( $shelf->allow_change_from_owner, 1, 'The default value for allow_change_from_owner should be 1' );
43 is
( $shelf->allow_change_from_others, 0, 'The default value for allow_change_from_others should be 0' );
44 is
( output_pref
($shelf->created_on), output_pref
(dt_from_string
), 'The creation time should have been set to today' );
46 # Test if creation date will not be overwritten by store
47 my $created = dt_from_string
->subtract( hours
=> 1 );
48 $shelf->created_on( $created );
51 my $retrieved_shelf = Koha
::Virtualshelves
->find( $shelf->shelfnumber );
53 is
( $retrieved_shelf->shelfname, $shelf->shelfname, 'Find should correctly return the shelfname' );
54 is
( dt_from_string
($retrieved_shelf->created_on), $created, 'Creation date is the same after update (Bug 18672)' );
56 # Insert with the same name
58 $shelf = Koha
::Virtualshelf
->new({
59 shelfname
=> "my first shelf",
60 owner
=> $patron->{borrowernumber
},
65 is
( ref($@
), 'Koha::Exceptions::Virtualshelves::DuplicateObject',
66 'Exception on duplicate name' );
67 $number_of_shelves = Koha
::Virtualshelves
->search->count;
68 is
( $number_of_shelves, 1, 'To be sure the number of shelves is still 1' );
70 my $another_patron = $builder->build({
74 $shelf = Koha
::Virtualshelf
->new({
75 shelfname
=> "my first shelf",
76 owner
=> $another_patron->{borrowernumber
},
80 $number_of_shelves = Koha
::Virtualshelves
->search->count;
81 is
( $number_of_shelves, 2, 'Another patron should be able to create a shelf with an existing shelfname');
83 my $is_deleted = Koha
::Virtualshelves
->find( $shelf->shelfnumber )->delete;
84 is
( $is_deleted, 1, 'The shelf has been deleted correctly' );
85 $number_of_shelves = Koha
::Virtualshelves
->search->count;
86 is
( $number_of_shelves, 1, 'To be sure the shelf has been deleted' );
91 subtest
'Sharing' => sub {
93 my $patron_wants_to_share = $builder->build({
96 my $share_with_me = $builder->build({
99 my $just_another_patron = $builder->build({
100 source
=> 'Borrower',
103 my $number_of_shelves_shared = Koha
::Virtualshelfshares
->search->count;
104 is
( $number_of_shelves_shared, 0, 'No shelves should exist' );
106 my $shelf_to_share = Koha
::Virtualshelf
->new({
107 shelfname
=> "my first shelf",
108 owner
=> $patron_wants_to_share->{borrowernumber
},
113 my $shelf_not_to_share = Koha
::Virtualshelf
->new({
114 shelfname
=> "my second shelf",
115 owner
=> $patron_wants_to_share->{borrowernumber
},
120 my $shared_shelf = eval { $shelf_to_share->share };
121 is
( ref( $@
), 'Koha::Exceptions::Virtualshelves::InvalidKeyOnSharing', 'Do not share if no key given' );
122 $shared_shelf = eval { $shelf_to_share->share('this is a valid key') };
123 is
( ref( $shared_shelf ), 'Koha::Virtualshelfshare', 'On sharing, the method should return a valid Koha::Virtualshelfshare object' );
125 my $another_shared_shelf = eval { $shelf_to_share->share('this is another valid key') }; # Just to have 2 shares in DB
127 $number_of_shelves_shared = Koha
::Virtualshelfshares
->search->count;
128 is
( $number_of_shelves_shared, 2, '2 shares should have been inserted' );
130 my $is_accepted = eval {
131 $shared_shelf->accept( 'this is an invalid key', $share_with_me->{borrowernumber
} );
133 is
( $is_accepted, undef, 'The share should have not been accepted if the key is invalid' );
134 is
( ref( $@
), 'Koha::Exceptions::Virtualshelves::InvalidInviteKey', 'accept with an invalid key should raise an exception' );
136 $is_accepted = $shared_shelf->accept( 'this is a valid key', $share_with_me->{borrowernumber
} );
137 ok
( defined($is_accepted), 'The share should have been accepted if the key valid' );
139 is
( $shelf_to_share->is_shared, 1, 'first shelf is shared' );
140 is
( $shelf_not_to_share->is_shared, 0, 'second shelf is not shared' );
142 is
( $shelf_to_share->is_shared_with( $patron_wants_to_share->{borrowernumber
} ), 0 , "The shelf should not be shared with the owner" );
143 is
( $shelf_to_share->is_shared_with( $share_with_me->{borrowernumber
} ), 1 , "The shelf should be shared with share_with_me" );
144 is
( $shelf_to_share->is_shared_with( $just_another_patron->{borrowernumber
} ), 0, "The shelf should not be shared with just_another_patron" );
146 is
( $shelf_to_share->remove_share( $just_another_patron->{borrowernumber
} ), 0, 'No share should be removed if the share has not been done with this patron' );
147 $number_of_shelves_shared = Koha
::Virtualshelfshares
->search->count;
148 is
( $number_of_shelves_shared, 2, 'To be sure no shares have been removed' );
150 is
( $shelf_not_to_share->remove_share( $share_with_me->{borrowernumber
} ), 0, '0 share should have been removed if the shelf is not share' );
151 $number_of_shelves_shared = Koha
::Virtualshelfshares
->search->count;
152 is
( $number_of_shelves_shared, 2, 'To be sure no shares have been removed' );
154 is
( $shelf_to_share->remove_share( $share_with_me->{borrowernumber
} ), 1, '1 share should have been removed if the shelf was shared with this patron' );
155 $number_of_shelves_shared = Koha
::Virtualshelfshares
->search->count;
156 is
( $number_of_shelves_shared, 1, 'To be sure the share has been removed' );
161 subtest
'Shelf content' => sub {
164 my $patron1 = $builder->build( { source
=> 'Borrower', } );
165 my $patron2 = $builder->build( { source
=> 'Borrower', } );
166 my $biblio1 = $builder->build( { source
=> 'Biblio', } );
167 my $biblio2 = $builder->build( { source
=> 'Biblio', } );
168 my $biblio3 = $builder->build( { source
=> 'Biblio', } );
169 my $biblio4 = $builder->build( { source
=> 'Biblio', } );
170 my $number_of_contents = Koha
::Virtualshelfcontents
->search->count;
172 is
( $number_of_contents, 0, 'No content should exist' );
174 my $dt_yesterday = dt_from_string
->subtract_duration( DateTime
::Duration
->new( days
=> 1 ) );
175 my $shelf = Koha
::Virtualshelf
->new(
176 { shelfname
=> "my first shelf",
177 owner
=> $patron1->{borrowernumber
},
179 lastmodified
=> $dt_yesterday,
183 $shelf = Koha
::Virtualshelves
->find( $shelf->shelfnumber );
184 is
( output_pref
( dt_from_string
$shelf->lastmodified ), output_pref
($dt_yesterday), 'The lastmodified has been set to yesterday, will be useful for another test later' );
185 my $content1 = $shelf->add_biblio( $biblio1->{biblionumber
}, $patron1->{borrowernumber
} );
186 is
( ref($content1), 'Koha::Virtualshelfcontent', 'add_biblio to a shelf should return a Koha::Virtualshelfcontent object if inserted' );
187 $shelf = Koha
::Virtualshelves
->find( $shelf->shelfnumber );
188 is
( output_pref
( dt_from_string
( $shelf->lastmodified ) ), output_pref
(dt_from_string
), 'Adding a biblio to a shelf should update the lastmodified for the shelf' );
189 my $content2 = $shelf->add_biblio( $biblio2->{biblionumber
}, $patron1->{borrowernumber
} );
190 $number_of_contents = Koha
::Virtualshelfcontents
->search->count;
191 is
( $number_of_contents, 2, '2 biblio should have been inserted' );
193 my $content1_bis = $shelf->add_biblio( $biblio1->{biblionumber
}, $patron1->{borrowernumber
} );
194 is
( $content1_bis, undef, 'add_biblio should return undef on duplicate' ); # Or an exception ?
195 $number_of_contents = Koha
::Virtualshelfcontents
->search->count;
196 is
( $number_of_contents, 2, 'The biblio should not have been duplicated' );
198 $shelf = Koha
::Virtualshelves
->find( $shelf->shelfnumber );
199 my $contents = $shelf->get_contents;
200 is
( $contents->count, 2, 'There are 2 biblios on this shelf' );
202 # Patron 2 will try to remove biblios
203 # allow_change_from_owner = 1, allow_change_from_others = 0 (defaults)
204 my $number_of_deleted_biblios = $shelf->remove_biblios( { biblionumbers
=> [ $biblio1->{biblionumber
} ], borrowernumber
=> $patron2->{borrowernumber
} } );
205 is
( $number_of_deleted_biblios, 0, 'Patron 2 removed nothing' );
206 # Now try with patron 1
207 $number_of_deleted_biblios = $shelf->remove_biblios( { biblionumbers
=> [ $biblio1->{biblionumber
} ], borrowernumber
=> $patron1->{borrowernumber
} } );
208 is
( $number_of_deleted_biblios, 1, 'Patron 1 removed biblio' );
209 $number_of_contents = Koha
::Virtualshelfcontents
->search->count;
210 is
( $number_of_contents, 1, 'To be sure the content has been deleted' );
212 # allow_change_from_owner == 0 (readonly)
213 $shelf->allow_change_from_owner( 0 );
215 $number_of_deleted_biblios = $shelf->remove_biblios( { biblionumbers
=> [ $biblio2->{biblionumber
} ], borrowernumber
=> $patron1->{borrowernumber
} } );
216 is
( $number_of_deleted_biblios, 0, 'Owner could not delete' );
217 $number_of_contents = Koha
::Virtualshelfcontents
->search->count;
218 is
( $number_of_contents, 1, 'Number of entries still equal to 1' );
219 $shelf->add_biblio( $biblio2->{biblionumber
}, $patron1->{borrowernumber
} );
220 $number_of_contents = Koha
::Virtualshelfcontents
->search->count;
221 is
( $number_of_contents, 1, 'Biblio not added to the list' );
223 $shelf->allow_change_from_owner( 1 );
224 $shelf->add_biblio( $biblio1->{biblionumber
}, $patron1->{borrowernumber
} );
225 $number_of_contents = Koha
::Virtualshelfcontents
->search->count;
226 is
( $number_of_contents, 2, 'Biblio added to the list' );
228 # allow_change_from_others == 1
229 $shelf->allow_change_from_others( 1 );
230 my $content3 = $shelf->add_biblio( $biblio3->{biblionumber
}, $patron2->{borrowernumber
} );
231 my $content4 = $shelf->add_biblio( $biblio4->{biblionumber
}, $patron2->{borrowernumber
} );
232 $number_of_contents = Koha
::Virtualshelfcontents
->search->count;
233 is
( $number_of_contents, 4, 'The biblio should have been added to the shelf by the patron 2' );
234 $number_of_deleted_biblios = $shelf->remove_biblios( { biblionumbers
=> [ $biblio3->{biblionumber
} ], borrowernumber
=> $patron2->{borrowernumber
} } );
235 is
( $number_of_deleted_biblios, 1, 'Biblio 3 deleted by patron 2' );
236 $number_of_contents = Koha
::Virtualshelfcontents
->search->count;
237 is
( $number_of_contents, 3, 'Back to three entries' );
242 subtest
'Shelf permissions' => sub {
245 my $patron1 = $builder->build( { source
=> 'Borrower', value
=> { flags
=> '2096766' } } ); # 2096766 is everything checked but not superlibrarian
246 my $patron2 = $builder->build( { source
=> 'Borrower', value
=> { flags
=> '1048190' } } ); # 1048190 is everything checked but not superlibrarian and delete_public_lists
247 my $biblio1 = $builder->build( { source
=> 'Biblio', } );
248 my $biblio2 = $builder->build( { source
=> 'Biblio', } );
249 my $biblio3 = $builder->build( { source
=> 'Biblio', } );
250 my $biblio4 = $builder->build( { source
=> 'Biblio', } );
253 my $public_shelf = Koha
::Virtualshelf
->new(
254 { shelfname
=> "my first shelf",
255 owner
=> $patron1->{borrowernumber
},
257 allow_change_from_owner
=> 0,
258 allow_change_from_others
=> 0,
262 is
( $public_shelf->can_be_viewed( $patron1->{borrowernumber
} ), 1, 'The owner should be able to view his public list' );
263 is
( $public_shelf->can_be_viewed( $patron2->{borrowernumber
} ), 1, 'Public list should be viewed by someone else' );
265 is
( $public_shelf->can_be_deleted( $patron1->{borrowernumber
} ), 1, 'The owner should be able to delete his list' );
266 is
( $public_shelf->can_be_deleted( $patron2->{borrowernumber
} ), 0, 'Public list should not be deleted by someone else' );
268 is
( $public_shelf->can_be_managed( $patron1->{borrowernumber
} ), 1, 'The owner should be able to manage his list' );
269 is
( $public_shelf->can_be_managed( $patron2->{borrowernumber
} ), 0, 'Public list should not be managed by someone else' );
271 is
( $public_shelf->can_biblios_be_added( $patron1->{borrowernumber
} ), 0, 'The owner should not be able to add biblios to their list' );
272 is
( $public_shelf->can_biblios_be_added( $patron2->{borrowernumber
} ), 0, 'Public list should not be modified (add) by someone else' );
274 is
( $public_shelf->can_biblios_be_removed( $patron1->{borrowernumber
} ), 0, 'The owner should not be able to remove biblios to their list' );
275 is
( $public_shelf->can_biblios_be_removed( $patron2->{borrowernumber
} ), 0, 'Public list should not be modified (remove) by someone else' );
278 $public_shelf->allow_change_from_owner(1);
279 $public_shelf->store;
281 is
( $public_shelf->can_be_viewed( $patron1->{borrowernumber
} ), 1, 'The owner should be able to view his public list' );
282 is
( $public_shelf->can_be_viewed( $patron2->{borrowernumber
} ), 1, 'Public list should be viewed by someone else' );
284 is
( $public_shelf->can_be_deleted( $patron1->{borrowernumber
} ), 1, 'The owner should be able to delete his list' );
285 is
( $public_shelf->can_be_deleted( $patron2->{borrowernumber
} ), 0, 'Public list should not be deleted by someone else' );
287 is
( $public_shelf->can_be_managed( $patron1->{borrowernumber
} ), 1, 'The owner should be able to manage his list' );
288 is
( $public_shelf->can_be_managed( $patron2->{borrowernumber
} ), 0, 'Public list should not be managed by someone else' );
290 is
( $public_shelf->can_biblios_be_added( $patron1->{borrowernumber
} ), 1, 'The owner should be able to add biblios to his list' );
291 is
( $public_shelf->can_biblios_be_added( $patron2->{borrowernumber
} ), 0, 'Public list should not be modified (add) by someone else' );
293 is
( $public_shelf->can_biblios_be_removed( $patron1->{borrowernumber
} ), 1, 'The owner should be able to remove biblios to his list' );
294 is
( $public_shelf->can_biblios_be_removed( $patron2->{borrowernumber
} ), 0, 'Public list should not be modified (remove) by someone else' );
297 my $private_shelf = Koha
::Virtualshelf
->new(
298 { shelfname
=> "my first shelf",
299 owner
=> $patron1->{borrowernumber
},
301 allow_change_from_owner
=> 0,
302 allow_change_from_others
=> 0,
306 is
( $private_shelf->can_be_viewed( $patron1->{borrowernumber
} ), 1, 'The owner should be able to view his list' );
307 is
( $private_shelf->can_be_viewed( $patron2->{borrowernumber
} ), 0, 'Private list should not be viewed by someone else' );
309 is
( $private_shelf->can_be_deleted( $patron1->{borrowernumber
} ), 1, 'The owner should be able to delete his list' );
310 is
( $private_shelf->can_be_deleted( $patron2->{borrowernumber
} ), 0, 'Private list should not be deleted by someone else' );
312 is
( $private_shelf->can_be_managed( $patron1->{borrowernumber
} ), 1, 'The owner should be able to manage his list' );
313 is
( $private_shelf->can_be_managed( $patron2->{borrowernumber
} ), 0, 'Private list should not be managed by someone else' );
315 is
( $private_shelf->can_biblios_be_added( $patron1->{borrowernumber
} ), 0, 'The owner should not be able to add biblios to their list' );
316 is
( $private_shelf->can_biblios_be_added( $patron2->{borrowernumber
} ), 0, 'Private list should not be modified (add) by someone else' );
318 is
( $private_shelf->can_biblios_be_removed( $patron1->{borrowernumber
} ), 0, 'The owner should not be able to remove biblios to their list' );
319 is
( $private_shelf->can_biblios_be_removed( $patron2->{borrowernumber
} ), 0, 'Private list should not be modified (remove) by someone else' );
322 $private_shelf->allow_change_from_owner(1);
323 $private_shelf->allow_change_from_others(1);
324 $private_shelf->store;
326 is
( $private_shelf->can_be_viewed( $patron1->{borrowernumber
} ), 1, 'The owner should be able to view his list' );
327 is
( $private_shelf->can_be_viewed( $patron2->{borrowernumber
} ), 0, 'Private list should not be viewed by someone else' );
329 is
( $private_shelf->can_be_deleted( $patron1->{borrowernumber
} ), 1, 'The owner should be able to delete his list' );
330 is
( $private_shelf->can_be_deleted( $patron2->{borrowernumber
} ), 0, 'Private list should not be deleted by someone else' );
332 is
( $private_shelf->can_be_managed( $patron1->{borrowernumber
} ), 1, 'The owner should be able to manage his list' );
333 is
( $private_shelf->can_be_managed( $patron2->{borrowernumber
} ), 0, 'Private list should not be managed by someone else' );
335 is
( $private_shelf->can_biblios_be_added( $patron1->{borrowernumber
} ), 1, 'The owner should be able to add biblios to his list' );
336 is
( $private_shelf->can_biblios_be_added( $patron2->{borrowernumber
} ), 1, 'Private list could be modified (add) by someone else # individual check done later' );
338 is
( $private_shelf->can_biblios_be_removed( $patron1->{borrowernumber
} ), 1, 'The owner should be able to remove biblios to his list' );
339 is
( $private_shelf->can_biblios_be_removed( $patron2->{borrowernumber
} ), 1, 'Private list could be modified (remove) by someone else # individual check done later' );
344 subtest
'Get shelves' => sub {
346 my $patron1 = $builder->build({
347 source
=> 'Borrower',
349 my $patron2 = $builder->build({
350 source
=> 'Borrower',
353 my $private_shelf1_1 = Koha
::Virtualshelf
->new({
354 shelfname
=> "private shelf 1 for patron 1",
355 owner
=> $patron1->{borrowernumber
},
359 my $private_shelf1_2 = Koha
::Virtualshelf
->new({
360 shelfname
=> "private shelf 2 for patron 1",
361 owner
=> $patron1->{borrowernumber
},
365 my $private_shelf2_1 = Koha
::Virtualshelf
->new({
366 shelfname
=> "private shelf 1 for patron 2",
367 owner
=> $patron2->{borrowernumber
},
371 my $public_shelf1_1 = Koha
::Virtualshelf
->new({
372 shelfname
=> "public shelf 1 for patron 1",
373 owner
=> $patron1->{borrowernumber
},
377 my $public_shelf1_2 = Koha
::Virtualshelf
->new({
378 shelfname
=> "public shelf 2 for patron 1",
379 owner
=> $patron1->{borrowernumber
},
384 my $private_shelves = Koha
::Virtualshelves
->get_private_shelves;
385 is
( $private_shelves->count, 0, 'Without borrowernumber given, get_private_shelves should not return any shelf' );
386 $private_shelves = Koha
::Virtualshelves
->get_private_shelves({ borrowernumber
=> $patron1->{borrowernumber
} });
387 is
( $private_shelves->count, 2, 'get_private_shelves should return all shelves for a given patron' );
389 $private_shelf2_1->share('a key')->accept('a key', $patron1->{borrowernumber
});
390 $private_shelves = Koha
::Virtualshelves
->get_private_shelves({ borrowernumber
=> $patron1->{borrowernumber
} });
391 is
( $private_shelves->count, 3, 'get_private_shelves should return all shelves for a given patron, even the shared ones' );
393 my $public_shelves = Koha
::Virtualshelves
->get_public_shelves;
394 is
( $public_shelves->count, 2, 'get_public_shelves should return all public shelves, no matter who is the owner' );
399 subtest
'Get shelves containing biblios' => sub {
402 my $patron1 = $builder->build( { source
=> 'Borrower', } );
403 my $patron2 = $builder->build( { source
=> 'Borrower', } );
404 my $biblio1 = $builder->build( { source
=> 'Biblio', } );
405 my $biblio2 = $builder->build( { source
=> 'Biblio', } );
406 my $biblio3 = $builder->build( { source
=> 'Biblio', } );
407 my $biblio4 = $builder->build( { source
=> 'Biblio', } );
409 my $shelf1 = Koha
::Virtualshelf
->new(
410 { shelfname
=> "my first shelf",
411 owner
=> $patron1->{borrowernumber
},
415 my $shelf2 = Koha
::Virtualshelf
->new(
416 { shelfname
=> "my x second shelf", # 'x' to make it sorted after 'third'
417 owner
=> $patron2->{borrowernumber
},
421 my $shelf3 = Koha
::Virtualshelf
->new(
422 { shelfname
=> "my third shelf",
423 owner
=> $patron1->{borrowernumber
},
428 my $content1 = $shelf1->add_biblio( $biblio1->{biblionumber
}, $patron1->{borrowernumber
} );
429 my $content2 = $shelf1->add_biblio( $biblio2->{biblionumber
}, $patron1->{borrowernumber
} );
430 my $content3 = $shelf2->add_biblio( $biblio2->{biblionumber
}, $patron2->{borrowernumber
} );
431 my $content4 = $shelf2->add_biblio( $biblio3->{biblionumber
}, $patron2->{borrowernumber
} );
432 my $content5 = $shelf2->add_biblio( $biblio4->{biblionumber
}, $patron2->{borrowernumber
} );
433 my $content6 = $shelf3->add_biblio( $biblio4->{biblionumber
}, $patron1->{borrowernumber
} );
435 my $shelves_with_biblio1_for_any_patrons = Koha
::Virtualshelves
->get_shelves_containing_record(
437 biblionumber
=> $biblio1->{biblionumber
},
440 is
( $shelves_with_biblio1_for_any_patrons->count, 0, 'shelf1 is private and should not be displayed if patron is not logged in' );
442 my $shelves_with_biblio4_for_any_patrons = Koha
::Virtualshelves
->get_shelves_containing_record(
444 biblionumber
=> $biblio4->{biblionumber
},
447 is
( $shelves_with_biblio4_for_any_patrons->count, 1, 'shelf3 is public and should be displayed for any patrons' );
448 is
( $shelves_with_biblio4_for_any_patrons->next->shelfname, $shelf3->shelfname, 'The correct shelf (3) should be displayed' );
450 my $shelves_with_biblio1_for_other_patrons = Koha
::Virtualshelves
->get_shelves_containing_record(
452 biblionumber
=> $biblio1->{biblionumber
},
453 borrowernumber
=> $patron2->{borrowernumber
},
456 is
( $shelves_with_biblio1_for_other_patrons->count, 0, 'shelf1 is private and should not be displayed for other patrons' );
458 my $shelves_with_biblio1_for_owner = Koha
::Virtualshelves
->get_shelves_containing_record(
460 biblionumber
=> $biblio1->{biblionumber
},
461 borrowernumber
=> $patron1->{borrowernumber
},
464 is
( $shelves_with_biblio1_for_owner->count, 1, 'shelf1 is private and should be displayed for the owner' );
466 my $shelves_with_biblio2_for_patron1 = Koha
::Virtualshelves
->get_shelves_containing_record(
468 biblionumber
=> $biblio2->{biblionumber
},
469 borrowernumber
=> $patron1->{borrowernumber
},
472 is
( $shelves_with_biblio2_for_patron1->count, 1, 'Only shelf1 should be displayed for patron 1 and biblio 1' );
473 is
( $shelves_with_biblio2_for_patron1->next->shelfname, $shelf1->shelfname, 'The correct shelf (1) should be displayed for patron 1' );
475 my $shelves_with_biblio4_for_patron2 = Koha
::Virtualshelves
->get_shelves_containing_record(
477 biblionumber
=> $biblio4->{biblionumber
},
478 borrowernumber
=> $patron2->{borrowernumber
},
481 is
( $shelves_with_biblio4_for_patron2->count, 2, 'Patron should shown private and public lists for a given biblio' );
482 is
( $shelves_with_biblio4_for_patron2->next->shelfname, $shelf3->shelfname, 'The shelves should be sorted by shelfname' );
488 $dbh->do(q
|DELETE FROM virtualshelfshares
|);
489 $dbh->do(q
|DELETE FROM virtualshelfcontents
|);
490 $dbh->do(q
|DELETE FROM virtualshelves
|);