#!/usr/bin/perl
use Modern::Perl;
-use Test::More tests => 5;
+use Test::More tests => 6;
use DateTime::Duration;
use C4::Context;
use t::lib::TestBuilder;
+my $builder = t::lib::TestBuilder->new;
+
my $dbh = C4::Context->dbh;
$dbh->{AutoCommit} = 0;
teardown();
-my $builder = t::lib::TestBuilder->new;
-
subtest 'CRUD' => sub {
plan tests => 13;
my $patron = $builder->build({
}
)->store;
};
- is( ref($@), 'Koha::Exceptions::Virtualshelves::DuplicateObject' );
+ is( ref($@), 'Koha::Exceptions::Virtualshelves::DuplicateObject',
+ 'Exception on duplicate name' );
$number_of_shelves = Koha::Virtualshelves->search->count;
is( $number_of_shelves, 1, 'To be sure the number of shelves is still 1' );
$is_accepted = $shared_shelf->accept( 'this is a valid key', $share_with_me->{borrowernumber} );
ok( defined($is_accepted), 'The share should have been accepted if the key valid' );
- is( $shelf_to_share->is_shared, 1 );
- is( $shelf_not_to_share->is_shared, 0 );
+ is( $shelf_to_share->is_shared, 1, 'first shelf is shared' );
+ is( $shelf_not_to_share->is_shared, 0, 'second shelf is not shared' );
is( $shelf_to_share->is_shared_with( $patron_wants_to_share->{borrowernumber} ), 0 , "The shelf should not be shared with the owner" );
is( $shelf_to_share->is_shared_with( $share_with_me->{borrowernumber} ), 1 , "The shelf should be shared with share_with_me" );
# Patron 2 will try to remove a content
# allow_add = 0, allow_delete_own = 1, allow_delete_other = 0 => Default values
my $number_of_deleted_biblios = $shelf->remove_biblios( { biblionumbers => [ $biblio1->{biblionumber} ], borrowernumber => $patron2->{borrowernumber} } );
- is( $number_of_deleted_biblios, 0, );
+ is( $number_of_deleted_biblios, 0, 'Patron 2 removed nothing' );
+ # Now try with patron 1
$number_of_deleted_biblios = $shelf->remove_biblios( { biblionumbers => [ $biblio1->{biblionumber} ], borrowernumber => $patron1->{borrowernumber} } );
- is( $number_of_deleted_biblios, 1, );
+ is( $number_of_deleted_biblios, 1, 'Patron 1 removed biblio' );
$number_of_contents = Koha::Virtualshelfcontents->search->count;
is( $number_of_contents, 1, 'To be sure the content has been deleted' );
$shelf->allow_delete_own(0);
$shelf->store;
$number_of_deleted_biblios = $shelf->remove_biblios( { biblionumbers => [ $biblio2->{biblionumber} ], borrowernumber => $patron1->{borrowernumber} } );
- is( $number_of_deleted_biblios, 1, );
+ is( $number_of_deleted_biblios, 1, 'Patron 1 removed another biblio' );
$number_of_contents = Koha::Virtualshelfcontents->search->count;
is( $number_of_contents, 0, 'The biblio should have been deleted to the shelf by the patron, it is his own content (allow_delete_own=0)' );
$shelf->add_biblio( $biblio2->{biblionumber}, $patron1->{borrowernumber} );
is( $number_of_contents, 3, 'The biblio should have been added to the shelf by the patron 2' );
$number_of_deleted_biblios = $shelf->remove_biblios( { biblionumbers => [ $biblio3->{biblionumber} ], borrowernumber => $patron2->{borrowernumber} } );
- is( $number_of_deleted_biblios, 1, );
+ is( $number_of_deleted_biblios, 1, 'Biblio 3 deleted by patron 2' );
$number_of_contents = Koha::Virtualshelfcontents->search->count;
is( $number_of_contents, 2, 'The biblio should have been deleted to the shelf by the patron, it is his own content (allow_delete_own=1) ' );
$shelf->store;
$number_of_deleted_biblios = $shelf->remove_biblios( { biblionumbers => [ $biblio2->{biblionumber} ], borrowernumber => $patron2->{borrowernumber} } );
- is( $number_of_deleted_biblios, 1, );
+ is( $number_of_deleted_biblios, 1, 'Biblio 2 deleted by patron 2' );
$number_of_contents = Koha::Virtualshelfcontents->search->count;
is( $number_of_contents, 1, 'The biblio should have been deleted to the shelf by the patron 2, even if it is not his own content (allow_delete_other=1)' );
teardown();
};
+subtest 'Get shelves containing biblios' => sub {
+
+ plan tests => 9;
+ my $patron1 = $builder->build( { source => 'Borrower', } );
+ my $patron2 = $builder->build( { source => 'Borrower', } );
+ my $biblio1 = $builder->build( { source => 'Biblio', } );
+ my $biblio2 = $builder->build( { source => 'Biblio', } );
+ my $biblio3 = $builder->build( { source => 'Biblio', } );
+ my $biblio4 = $builder->build( { source => 'Biblio', } );
+
+ my $shelf1 = Koha::Virtualshelf->new(
+ { shelfname => "my first shelf",
+ owner => $patron1->{borrowernumber},
+ category => 1,
+ }
+ )->store;
+ my $shelf2 = Koha::Virtualshelf->new(
+ { shelfname => "my x second shelf", # 'x' to make it sorted after 'third'
+ owner => $patron2->{borrowernumber},
+ category => 1,
+ }
+ )->store;
+ my $shelf3 = Koha::Virtualshelf->new(
+ { shelfname => "my third shelf",
+ owner => $patron1->{borrowernumber},
+ category => 2,
+ }
+ )->store;
+
+ my $content1 = $shelf1->add_biblio( $biblio1->{biblionumber}, $patron1->{borrowernumber} );
+ my $content2 = $shelf1->add_biblio( $biblio2->{biblionumber}, $patron1->{borrowernumber} );
+ my $content3 = $shelf2->add_biblio( $biblio2->{biblionumber}, $patron2->{borrowernumber} );
+ my $content4 = $shelf2->add_biblio( $biblio3->{biblionumber}, $patron2->{borrowernumber} );
+ my $content5 = $shelf2->add_biblio( $biblio4->{biblionumber}, $patron2->{borrowernumber} );
+ my $content6 = $shelf3->add_biblio( $biblio4->{biblionumber}, $patron2->{borrowernumber} );
+
+ my $shelves_with_biblio1_for_any_patrons = Koha::Virtualshelves->get_shelves_containing_record(
+ {
+ biblionumber => $biblio1->{biblionumber},
+ }
+ );
+ is ( $shelves_with_biblio1_for_any_patrons->count, 0, 'shelf1 is private and should not be displayed if patron is not logged in' );
+
+ my $shelves_with_biblio4_for_any_patrons = Koha::Virtualshelves->get_shelves_containing_record(
+ {
+ biblionumber => $biblio4->{biblionumber},
+ }
+ );
+ is ( $shelves_with_biblio4_for_any_patrons->count, 1, 'shelf3 is public and should be displayed for any patrons' );
+ is ( $shelves_with_biblio4_for_any_patrons->next->shelfname, $shelf3->shelfname, 'The correct shelf (3) should be displayed' );
+
+ my $shelves_with_biblio1_for_other_patrons = Koha::Virtualshelves->get_shelves_containing_record(
+ {
+ biblionumber => $biblio1->{biblionumber},
+ borrowernumber => $patron2->{borrowernumber},
+ }
+ );
+ is ( $shelves_with_biblio1_for_other_patrons->count, 0, 'shelf1 is private and should not be displayed for other patrons' );
+
+ my $shelves_with_biblio1_for_owner = Koha::Virtualshelves->get_shelves_containing_record(
+ {
+ biblionumber => $biblio1->{biblionumber},
+ borrowernumber => $patron1->{borrowernumber},
+ }
+ );
+ is ( $shelves_with_biblio1_for_owner->count, 1, 'shelf1 is private and should be displayed for the owner' );
+
+ my $shelves_with_biblio2_for_patron1 = Koha::Virtualshelves->get_shelves_containing_record(
+ {
+ biblionumber => $biblio2->{biblionumber},
+ borrowernumber => $patron1->{borrowernumber},
+ }
+ );
+ is ( $shelves_with_biblio2_for_patron1->count, 1, 'Only shelf1 should be displayed for patron 1 and biblio 1' );
+ is ( $shelves_with_biblio2_for_patron1->next->shelfname, $shelf1->shelfname, 'The correct shelf (1) should be displayed for patron 1' );
+
+ my $shelves_with_biblio4_for_patron2 = Koha::Virtualshelves->get_shelves_containing_record(
+ {
+ biblionumber => $biblio4->{biblionumber},
+ borrowernumber => $patron2->{borrowernumber},
+ }
+ );
+ is ( $shelves_with_biblio4_for_patron2->count, 2, 'Patron should shown private and public lists for a given biblio' );
+ is ( $shelves_with_biblio4_for_patron2->next->shelfname, $shelf3->shelfname, 'The shelves should be sorted by shelfname' );
+
+ teardown();
+};
+
sub teardown {
$dbh->do(q|DELETE FROM virtualshelfshares|);
$dbh->do(q|DELETE FROM virtualshelfcontents|);