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 1126-1131 subtest 'item_groups() tests' => sub { Link Here
1126
    $schema->storage->txn_rollback;
1126
    $schema->storage->txn_rollback;
1127
};
1127
};
1128
1128
1129
subtest 'normalized_isbn' => sub {
1130
    plan tests => 1;
1131
1132
    # We will move the tests from GetNormalizedISBN here when it will get replaced
1133
    my $biblio = $builder->build_sample_biblio();
1134
    $biblio->biblioitem->set( { isbn => '9781250067128 | 125006712X' } )->store;
1135
    is(
1136
        $biblio->normalized_isbn, C4::Koha::GetNormalizedISBN( $biblio->biblioitem->isbn ),
1137
        'normalized_isbn is a wrapper around C4::Koha::GetNormalizedISBN'
1138
    );
1139
};
1140
1129
sub component_record1 {
1141
sub component_record1 {
1130
    my $marc = MARC::Record->new;
1142
    my $marc = MARC::Record->new;
1131
    $marc->append_fields(
1143
    $marc->append_fields(
1132
- 

Return to bug 33952