Attachment 19937 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.94 KB, created by kenza on 2013-07-25 07:43:49 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: kenza

Created: 2013-07-25 07:43:49 UTC

Size: 1.94 KB

patch

obsolete

>From 12b8b589c3067441109ee45931dafd1b3d55d7e6 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
>---
> 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.7.9.5

Actions: View | Diff | Splinter Review

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