Lines 17-23
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 20; |
20 |
use Test::More tests => 21; |
21 |
use Test::MockModule; |
21 |
use Test::MockModule; |
22 |
use Test::Warn; |
22 |
use Test::Warn; |
23 |
use List::MoreUtils qw( uniq ); |
23 |
use List::MoreUtils qw( uniq ); |
Lines 1022-1027
subtest 'ModBiblio on invalid record' => sub {
Link Here
|
1022 |
); |
1022 |
); |
1023 |
}; |
1023 |
}; |
1024 |
|
1024 |
|
|
|
1025 |
subtest 'UpdateTotalIssues on Invalid record' => sub { |
1026 |
plan tests => 2; |
1027 |
|
1028 |
my $return_record = Test::MockModule->new('Koha::Biblio::Metadata'); |
1029 |
$return_record->mock( 'record', sub { Koha::Exceptions::Metadata::Invalid->throw() } ); |
1030 |
|
1031 |
my $biblio = $builder->build_sample_biblio; |
1032 |
|
1033 |
my $increase = 1; |
1034 |
|
1035 |
my $success; |
1036 |
warning_is { |
1037 |
$success = C4::Biblio::UpdateTotalIssues( $biblio->biblionumber, $increase, '' ); |
1038 |
} "UpdateTotalIssues could not get biblio record","Expected warning found"; |
1039 |
|
1040 |
ok( !$success, 'UpdateTotalIssues fails gracefully for invalid record' ); |
1041 |
|
1042 |
}; |
1043 |
|
1044 |
|
1025 |
# Cleanup |
1045 |
# Cleanup |
1026 |
Koha::Caches->get_instance->clear_from_cache( "MarcSubfieldStructure-" ); |
1046 |
Koha::Caches->get_instance->clear_from_cache( "MarcSubfieldStructure-" ); |
1027 |
$schema->storage->txn_rollback; |
1047 |
$schema->storage->txn_rollback; |
1028 |
- |
|
|