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

(-)a/t/db_dependent/Koha/Biblio.t (-2 / +13 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 24;
20
use Test::More tests => 25;
21
use Test::Exception;
21
use Test::Exception;
22
use Test::Warn;
22
use Test::Warn;
23
23
Lines 1114-1119 subtest 'item_groups() tests' => sub { Link Here
1114
    $schema->storage->txn_rollback;
1114
    $schema->storage->txn_rollback;
1115
};
1115
};
1116
1116
1117
subtest 'normalized_isbn' => sub {
1118
    plan tests => 1;
1119
1120
    # We will move the tests from GetNormalizedISBN here when it will get replaced
1121
    my $biblio = $builder->build_sample_biblio();
1122
    $biblio->biblioitem->set( { isbn => '9781250067128 | 125006712X' } )->store;
1123
    is(
1124
        $biblio->normalized_isbn, C4::Koha::GetNormalizedISBN( $biblio->biblioitem->isbn ),
1125
        'normalized_isbn is a wrapper around C4::Koha::GetNormalizedISBN'
1126
    );
1127
};
1128
1117
sub component_record1 {
1129
sub component_record1 {
1118
    my $marc = MARC::Record->new;
1130
    my $marc = MARC::Record->new;
1119
    $marc->append_fields(
1131
    $marc->append_fields(
1120
- 

Return to bug 33952