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

(-)a/t/db_dependent/Biblio.t (-2 / +27 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 19;
20
use Test::More tests => 20;
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 26-31 use MARC::Record; Link Here
26
use t::lib::Mocks qw( mock_preference );
26
use t::lib::Mocks qw( mock_preference );
27
use t::lib::TestBuilder;
27
use t::lib::TestBuilder;
28
28
29
use Koha::ActionLogs;
29
use Koha::Database;
30
use Koha::Database;
30
use Koha::Caches;
31
use Koha::Caches;
31
use Koha::MarcSubfieldStructures;
32
use Koha::MarcSubfieldStructures;
Lines 996-1001 subtest 'GetFrameworkCode' => sub { Link Here
996
997
997
};
998
};
998
999
1000
subtest 'ModBiblio on invalid record' => sub {
1001
    plan tests => 3;
1002
1003
    t::lib::Mocks::mock_preference( "CataloguingLog", 1 );
1004
1005
    # We create a record with an onvalid control character in the MARC
1006
    my $record = MARC::Record->new();
1007
    my $field  = MARC::Field->new( '650', '', '', 'a' => '00aD000015937' );
1008
    $record->append_fields($field);
1009
1010
    my ($biblionumber) = C4::Biblio::AddBiblio( $record, '' );
1011
1012
    warning_like { C4::Biblio::ModBiblio( $record, $biblionumber, '' ); }
1013
    qr/parser error : PCDATA invalid Char value 31/,
1014
        'Modding the biblio warns about the encoding issues';
1015
    my $action_logs =
1016
        Koha::ActionLogs->search( { object => $biblionumber, module => 'Cataloguing', action => 'MODIFY' } );
1017
    is( $action_logs->count, 1, "Modification of biblio was successful and recorded" );
1018
    my $action_log = $action_logs->next;
1019
    like(
1020
        $action_log->info, qr/parser error : PCDATA invalid Char value 31/,
1021
        "Metadata issue successfully logged in action logs"
1022
    );
1023
};
1024
999
# Cleanup
1025
# Cleanup
1000
Koha::Caches->get_instance->clear_from_cache( "MarcSubfieldStructure-" );
1026
Koha::Caches->get_instance->clear_from_cache( "MarcSubfieldStructure-" );
1001
$schema->storage->txn_rollback;
1027
$schema->storage->txn_rollback;
1002
- 

Return to bug 34014