Attachment 61636 Details for Bug 18332 – Bug 18332: Add the Koha::Objects->last method

[patch] Bug 18332: Add the Koha::Objects->last method

Bug-18332-Add-the-KohaObjects-last-method.patch (text/plain), 3.02 KB, created by Marc Véron on 2017-03-24 21:27:12 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Marc Véron

Created: 2017-03-24 21:27:12 UTC

Size: 3.02 KB

patch

obsolete

>From 56e6b080d940d7cd8ca0106d5529519be20492c9 Mon Sep 17 00:00:00 2001
>From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
>Date: Thu, 23 Mar 2017 22:03:19 -0300
>Subject: [PATCH] Bug 18332: Add the Koha::Objects->last method
>MIME-Version: 1.0
>Content-Type: text/plain; charset=UTF-8
>Content-Transfer-Encoding: 8bit
>
>DBIx::Class does not provide such method, but it can be handy in some
>cases.
>
>Test plan:
>  prove t/db_dependent/Koha/Objects.t
>should return green
>
>Test returned green.
>Signed-off-by: Marc VÃ©ron <veron@veron.ch>
>---
> Koha/Objects.pm               | 26 +++++++++++++++++++++++++-
> t/db_dependent/Koha/Objects.t | 15 ++++++++++++++-
> 2 files changed, 39 insertions(+), 2 deletions(-)
>
>diff --git a/Koha/Objects.pm b/Koha/Objects.pm
>index 86a5789..1a52188 100644
>--- a/Koha/Objects.pm
>+++ b/Koha/Objects.pm
>@@ -205,6 +205,30 @@ sub next {
>     return $object;
> }
> 
>+=head3 Koha::Objects->last;
>+
>+my $object = Koha::Objects->last;
>+
>+Returns the last object that is part of this set.
>+Returns undef if there are no object to return.
>+
>+=cut
>+
>+sub last {
>+    my ( $self ) = @_;
>+
>+    my $count = $self->_resultset->count;
>+    return unless $count;
>+
>+    my $result = $self->_resultset->slice($count - 1, $count)->first;
>+
>+    my $object = $self->object_class()->_new_from_dbic( $result );
>+
>+    return $object;
>+}
>+
>+
>+
> =head3 Koha::Objects->reset();
> 
> Koha::Objects->reset();
>@@ -335,7 +359,7 @@ Currently count, pager, update and delete are covered.
> sub AUTOLOAD {
>     my ( $self, @params ) = @_;
> 
>-    my @known_methods = qw( count pager update delete result_class single );
>+    my @known_methods = qw( count pager update delete result_class single slice );
>     my $method = our $AUTOLOAD;
>     $method =~ s/.*:://;
> 
>diff --git a/t/db_dependent/Koha/Objects.t b/t/db_dependent/Koha/Objects.t
>index 29dea67..f1910da 100644
>--- a/t/db_dependent/Koha/Objects.t
>+++ b/t/db_dependent/Koha/Objects.t
>@@ -19,7 +19,7 @@
> 
> use Modern::Perl;
> 
>-use Test::More tests => 11;
>+use Test::More tests => 12;
> use Test::Warn;
> 
> use Koha::Authority::Types;
>@@ -127,6 +127,19 @@ subtest 'single' => sub {
>     "Warning is presented if single is used for a result with multiple rows.";
> };
> 
>+subtest 'last' => sub {
>+    plan tests => 3;
>+    my $builder = t::lib::TestBuilder->new;
>+    my $patron_1  = $builder->build( { source => 'Borrower' } );
>+    my $patron_2  = $builder->build( { source => 'Borrower' } );
>+    my $last_patron = Koha::Patrons->search->last;
>+    is( $last_patron->borrowernumber, $patron_2->{borrowernumber}, '->last should return the last inserted patron' );
>+    $last_patron = Koha::Patrons->search({ borrowernumber => $patron_1->{borrowernumber} })->last;
>+    is( $last_patron->borrowernumber, $patron_1->{borrowernumber}, '->last should work even if there is only 1 result' );
>+    $last_patron = Koha::Patrons->search({ surname => 'should_not_exist' })->last;
>+    is( $last_patron, undef, '->last should return undef if search does not return any results' );
>+};
>+
> subtest 'Exceptions' => sub {
>     plan tests => 2;
> 
>-- 
>2.1.4

Actions: View | Diff | Splinter Review

Attachments on bug 18332: 61625 | 61626 | 61636 | 61694 | 61751