|
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 |
} |
| 1039 |
"UpdateTotalIssues could not get biblio record", "Expected warning found"; |
| 1040 |
|
| 1041 |
ok( !$success, 'UpdateTotalIssues fails gracefully for invalid record' ); |
| 1042 |
|
| 1043 |
}; |
| 1044 |
|
| 1045 |
|
| 1025 |
# Cleanup |
1046 |
# Cleanup |
| 1026 |
Koha::Caches->get_instance->clear_from_cache( "MarcSubfieldStructure-" ); |
1047 |
Koha::Caches->get_instance->clear_from_cache( "MarcSubfieldStructure-" ); |
| 1027 |
$schema->storage->txn_rollback; |
1048 |
$schema->storage->txn_rollback; |
| 1028 |
- |
|
|