From 48caa5be61b8f7ec317d9e8ee9b796fc465ad9f5 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Fri, 5 Jun 2015 14:52:36 -0300 Subject: [PATCH] [PASSED QA] Bug 14346: t/Biblio.t fails because of new warning Running $ prove t/Biblio.t fails because of us now using DBIx to retrieve sysprefs. Then our mocked DBI is not "supported" by DBIx hence a warning that makes our test fail (there is one more warning now). The cool thing about this, is that it actually helped spot a situation where GetMarcBiblio is doing wrong things because is not checking its parameters are undefined, so we have the chance to fix it. This patch makes GetMarcBiblio return undef if no biblionumber is passed, and also raises a conveniently carped warning. This change is tested in t/Biblio.t with new tests. To test: - In current master, run $ prove t/Biblio.t => FAIL: a test detects a wrong warning count and fails. - Apply the patch and run $ prove t/Biblio.t => SUCCESS: Tests now pass, and there are 2 new ones. - Sign off :-D Regards Signed-off-by: Mark Tompsett Signed-off-by: Katrin Fischer --- C4/Biblio.pm | 6 ++++++ t/Biblio.t | 15 +++++++++++---- 2 files changed, 17 insertions(+), 4 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index fb4d4e8..1020990 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -1261,6 +1261,12 @@ The MARC record contains biblio data, and items data if $embeditems is set to tr sub GetMarcBiblio { my $biblionumber = shift; my $embeditems = shift || 0; + + if (not defined $biblionumber) { + carp 'GetMarcBiblio called with undefined biblionumber'; + return; + } + my $dbh = C4::Context->dbh; my $sth = $dbh->prepare("SELECT marcxml FROM biblioitems WHERE biblionumber=? "); $sth->execute($biblionumber); diff --git a/t/Biblio.t b/t/Biblio.t index cec30a9..3217e77 100755 --- a/t/Biblio.t +++ b/t/Biblio.t @@ -17,7 +17,7 @@ use Modern::Perl; -use Test::More tests => 44; +use Test::More tests => 46; use Test::MockModule; use Test::Warn; use DBD::Mock; @@ -167,9 +167,16 @@ warning_is { $ret = RemoveAllNsb() } ok( !defined $ret, 'RemoveAllNsb returns undef if not passed rec'); -warning_is { $ret = UpdateTotalIssues() } - { carped => 'UpdateTotalIssues could not get biblio record'}, - "UpdateTotalIssues returns carped warning if biblio record does not exist"; +warning_is { $ret = GetMarcBiblio() } + { carped => 'GetMarcBiblio called with undefined biblionumber'}, + "GetMarcBiblio returns carped warning on undef biblionumber"; + +ok( !defined $ret, 'GetMarcBiblio returns undef if not passed a biblionumber'); + +warnings_like { $ret = UpdateTotalIssues() } + [ { carped => qr/GetMarcBiblio called with undefined biblionumber/ }, + { carped => qr/UpdateTotalIssues could not get biblio record/ } ], + "UpdateTotalIssues returns carped warnings if biblio record does not exist"; ok( !defined $ret, 'UpdateTotalIssues returns carped warning if biblio record does not exist'); -- 1.9.1