From 69841b192a2e6cb74e03aa692112fb90e6a62a76 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 Signed-off-by: Kyle M Hall Signed-off-by: Nick Clemens Signed-off-by: Tomas Cohen Arazi --- 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 a7f681847d..a0c77d64aa 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; @@ -1150,6 +1150,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.20.1