Bug 33955: Add a test

Signed-off-by: Chris Cormack <chris@bigballofwax.co.nz>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
Jonathan Druart 2023-06-08 12:50:59 +02:00 committed by Tomas Cohen Arazi
parent 51e602e61c
commit 284aa1496e
No known key found for this signature in database
GPG Key ID: 0A272EA1B2F3C15F
1 changed files with 13 additions and 1 deletions

View File

@ -17,7 +17,7 @@
use Modern::Perl;
use Test::More tests => 27;
use Test::More tests => 28;
use Test::Exception;
use Test::Warn;
@ -1138,6 +1138,18 @@ subtest 'normalized_isbn' => sub {
);
};
subtest 'normalized_upc' => sub {
plan tests => 1;
# We will move the tests from GetNormalizedUPC here when it will get replaced
# Note that only a single test exist and it's not really meaningful...
my $biblio = $builder->build_sample_biblio();
is(
$biblio->normalized_upc, C4::Koha::GetNormalizedUPC( $biblio->metadata->record ),
'normalized_upc is a wrapper around C4::Koha::GetNormalizedUPC'
);
};
subtest 'ratings' => sub {
plan tests => 1;
# See t/db_dependent/Koha/Ratings.t