From ad3d28c0aba3ae4b77e9f0a80bfa40d78e81e91d Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 8 Jun 2023 14:14:43 +0200 Subject: [PATCH] Bug 33958: Add tests --- t/db_dependent/Koha/Biblio.t | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Koha/Biblio.t b/t/db_dependent/Koha/Biblio.t index ff039e6d38e..4f1b8b220f3 100755 --- a/t/db_dependent/Koha/Biblio.t +++ b/t/db_dependent/Koha/Biblio.t @@ -17,7 +17,7 @@ use Modern::Perl; -use Test::More tests => 28; +use Test::More tests => 29; use Test::Exception; use Test::Warn; @@ -1138,6 +1138,18 @@ subtest 'normalized_upc' => sub { ); }; +subtest 'normalized_oclc' => sub { + plan tests => 1; + + # We will move the tests from GetNormalizedOCLC 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_oclc, C4::Koha::GetNormalizedOCLCNumber( $biblio->metadata->record ), + 'normalized_oclc is a wrapper around C4::Koha::GetNormalizedOCLCNumber' + ); +}; + subtest 'ratings' => sub { plan tests => 1; # See t/db_dependent/Koha/Ratings.t -- 2.25.1