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

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

Return to bug 36473