Attachment 20203 Details for Bug 10630 – Bug 10630: DelBookseller's always returns undef in C4::Bookseller.pm

[patch] Bug 10630: DelBookseller's always returns undef in C4::Bookseller.pm

Bug-10630-DelBooksellers-always-returns-undef-in-C.patch (text/plain), 1.99 KB, created by Chris Cormack on 2013-08-08 23:27:28 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Chris Cormack

Created: 2013-08-08 23:27:28 UTC

Size: 1.99 KB

patch

obsolete

>From 0cc86b0eb4ce64601b28035ed76ad2836218c360 Mon Sep 17 00:00:00 2001
>From: root <root@kenza-VirtualBox>
>Date: Thu, 25 Jul 2013 09:37:34 +0200
>Subject: [PATCH] Bug 10630: DelBookseller's always returns undef in
> C4::Bookseller.pm
>
>This patch makes DelBookseller returns the number of supplier it has deleted
>or undef if nothing has been deleted.
>It also fixes a test which doesn't pass before in t/db_dependent/Bookseller.t
>
>To test:
>prove t/db_dependent/Bookseller.t
>t/db_dependent/Bookseller.t .. 1/54
>All tests successful.
>Files=1, Tests=54,  1 wallclock secs ( 0.02 usr  0.00 sys +  0.48 cusr  0.02 csys =  0.52 CPU)
>Result: PASS
>
>Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
>---
> C4/Bookseller.pm            | 3 +--
> t/db_dependent/Bookseller.t | 5 ++---
> 2 files changed, 3 insertions(+), 5 deletions(-)
>
>diff --git a/C4/Bookseller.pm b/C4/Bookseller.pm
>index 3e1454f..c53919f 100644
>--- a/C4/Bookseller.pm
>+++ b/C4/Bookseller.pm
>@@ -269,8 +269,7 @@ sub DelBookseller {
>     my $id  = shift;
>     my $dbh = C4::Context->dbh;
>     my $sth = $dbh->prepare('DELETE FROM aqbooksellers WHERE id=?');
>-    $sth->execute($id);
>-    return;
>+    return $sth->execute($id);
> }
> 
> 1;
>diff --git a/t/db_dependent/Bookseller.t b/t/db_dependent/Bookseller.t
>index 71307f1..fdac9c2 100644
>--- a/t/db_dependent/Bookseller.t
>+++ b/t/db_dependent/Bookseller.t
>@@ -2,7 +2,7 @@
> 
> use Modern::Perl;
> 
>-use Test::More tests => 53;
>+use Test::More tests => 54;
> use C4::Context;
> use Koha::DateUtils;
> use DateTime::Duration;
>@@ -104,8 +104,7 @@ is( scalar( C4::Bookseller::GetBookSeller('') ),
> 
> #Test DelBookseller
> my $del = C4::Bookseller::DelBookseller($id_supplier1);
>-#FIXME: DelBookSeller always returns undef (if it works or not)
>-#is( $del, 1, "DelBookseller returns 1 - 1 supplier has been deleted " );
>+is( $del, 1, "DelBookseller returns 1 - 1 supplier has been deleted " );
> is( C4::Bookseller::GetBookSellerFromId($id_supplier1),
>     undef, "Supplier1  has been deleted - id_supplier1 doesnt exist anymore" );
> 
>-- 
>1.8.1.2

Actions: View | Diff | Splinter Review

Attachments on bug 10630: 19927 | 19937 | 20203 | 20586