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

Bug 24722: Add test

Browse source 
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
Jonathan Druart 2020-02-25 12:15:21 +01:00 committed by Martin Renvoize
parent 5037d7f355
commit 08576a23cc
Signed by: martin.renvoize
GPG key ID: 422B469130441A0F
1 changed files with 26 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
t/db_dependent/Koha/Holds.t
View file

@ -1,6 +1,6 @@
#!/usr/bin/perl
# Copyright 2017 Koha Development team
# Copyright 2020 Koha Development team
#
# This file is part of Koha
#
@ -19,7 +19,7 @@
use Modern::Perl;
use Test::More tests => 1;
use Test::More tests => 2;
use Test::Warn;
use C4::Reserves;
@ -34,6 +34,30 @@ $schema->storage->txn_begin;
my $builder = t::lib::TestBuilder->new;
subtest 'DB constraints' => sub {
plan tests => 1;
my $patron = $builder->build_object({ class => 'Koha::Patrons' });
my $item = $builder->build_sample_item;
my $hold_info = {
branchcode => $patron->branchcode,
borrowernumber => $patron->borrowernumber,
biblionumber => $item->biblionumber,
priority => 1,
title => "title for fee",
itemnumber => $item->itemnumber,
};
my $reserve_id = C4::Reserves::AddReserve($hold_info);
my $hold = Koha::Holds->find( $reserve_id );
warning_like {
eval { $hold->priority(undef)->store }
}
qr{.*DBD::mysql::st execute failed: Column 'priority' cannot be null.*},
'DBD should have raised an error about priority that cannot be null';
};
subtest 'cancel' => sub {
plan tests => 12;
my $biblioitem = $builder->build_object( { class => 'Koha::Biblioitems' } );