Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 10748: Add tests

Browse source 
Sponsored-by: BULAC - http://www.bulac.fr/

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Jonathan Druart 2017-11-03 13:27:12 -03:00
parent 529793d4ae
commit 43ad66fb07
1 changed files with 30 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
t/db_dependent/Circulation/Returns.t
View file

@ -17,7 +17,7 @@
use Modern::Perl;
use Test::More tests => 4;
use Test::More tests => 5;
use Test::MockModule;
use Test::Warn;
@ -332,3 +332,32 @@ subtest 'Handle ids duplication' => sub {
is( Koha::Checkouts->find( $issue_id )->issue_id, $issue_id, 'The issues entry should not have been removed' );
};
subtest 'BlockReturnOfLostItems' => sub {
plan tests => 3;
my $biblio = $builder->build_object( { class => 'Koha::Biblios' } );
my $item = $builder->build_object(
{
class => 'Koha::Items',
value => {
biblionumber => $biblio->biblionumber,
notforloan => 0,
itemlost => 0,
withdrawn => 0,
}
}
);
my $patron = $builder->build_object({class => 'Koha::Patrons'});
my $checkout = AddIssue( $patron->unblessed, $item->barcode );
# Mark the item as lost
ModItem({itemlost => 1}, $biblio->biblionumber, $item->itemnumber);
t::lib::Mocks::mock_preference('BlockReturnOfLostItems', 1);
my ( $doreturn, $messages, $issue ) = AddReturn($item->barcode);
is( $doreturn, 0, "With BlockReturnOfLostItems, a checkin of a lost item should be blocked");
is( $messages->{WasLost}, 1, "... and the WasLost flag should be set");
t::lib::Mocks::mock_preference('BlockReturnOfLostItems', 0);
( $doreturn, $messages, $issue ) = AddReturn($item->barcode);
is( $doreturn, 1, "Without BlockReturnOfLostItems, a checkin of a lost item should not be blocked");
};