+subtest 'search_limited' => sub {
+ plan tests => 4;
+ $dbh->do(q|DELETE FROM discharges|);
+ my $group_1 = Koha::Library::Group->new( { title => 'TEST Group 1' } )->store;
+ my $group_2 = Koha::Library::Group->new( { title => 'TEST Group 2' } )->store;
+ # $patron and $patron2 are from the same library, $patron3 from another one
+ # Logged in user is $patron, superlibrarian
+ set_logged_in_user( $p );
+ Koha::Library::Group->new({ parent_id => $group_1->id, branchcode => $patron->{branchcode} })->store();
+ Koha::Library::Group->new({ parent_id => $group_2->id, branchcode => $patron3->{branchcode} })->store();
+ Koha::Patron::Discharge::request({ borrowernumber => $patron->{borrowernumber} });
+ Koha::Patron::Discharge::request({ borrowernumber => $patron2->{borrowernumber} });
+ Koha::Patron::Discharge::request({ borrowernumber => $patron3->{borrowernumber} });
+ is( scalar( Koha::Patron::Discharge::get_pendings), 3, 'With permission, all discharges are visible' );
+ is( Koha::Patron::Discharge::count({pending => 1}), 3, 'With permission, all discharges are visible' );
+
+ # With patron 3 logged in, only discharges from their group are visible
+ set_logged_in_user( $p3 );
+ is( scalar( Koha::Patron::Discharge::get_pendings), 1, 'Without permission, only discharge from our group are visible' );
+ is( Koha::Patron::Discharge::count({pending => 1}), 1, 'Without permission, only discharge from our group are visible' );
+};
+