View | Details | Raw Unified | Return to bug 36473
Collapse All | Expand All

(-)a/t/db_dependent/Biblio.t (-2 / +21 lines)
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
- 

Return to bug 36473