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

(-)a/t/db_dependent/Koha/Biblio/Metadata.t (-4 / +7 lines)
Lines 19-24 use Modern::Perl; Link Here
19
19
20
use Test::More tests => 3;
20
use Test::More tests => 3;
21
use Test::Exception;
21
use Test::Exception;
22
use Test::Warn;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
24
use t::lib::Mocks;
25
use t::lib::Mocks;
Lines 35-41 my $builder = t::lib::TestBuilder->new; Link Here
35
36
36
subtest 'record() tests' => sub {
37
subtest 'record() tests' => sub {
37
38
38
    plan tests => 8;
39
    plan tests => 9;
39
40
40
    $schema->storage->txn_begin;
41
    $schema->storage->txn_begin;
41
42
Lines 60-67 subtest 'record() tests' => sub { Link Here
60
        }
61
        }
61
    );
62
    );
62
63
63
    throws_ok { $bad_data->record; }
64
    warning_like
64
    'Koha::Exceptions::Metadata::Invalid', 'Exception thrown on bad record';
65
       { throws_ok { $bad_data->record; }
66
        'Koha::Exceptions::Metadata::Invalid', 'Exception thrown on bad record'; }
67
        qr/parser error : Start tag expected, '<' not found/,
68
        'Warning thrown excplicitly';
65
69
66
    my $exception = $@;
70
    my $exception = $@;
67
    is( $exception->id,     $bad_data->id, 'id passed correctly to exception' );
71
    is( $exception->id,     $bad_data->id, 'id passed correctly to exception' );
68
- 

Return to bug 31889