From 507f12f7c1f1675015e7acf5478b550e544b72dd Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 10 Feb 2017 09:45:26 +0100 Subject: [PATCH] Bug 18093: Add Koha::Objects->get_column MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Test plan: prove t/db_dependent/Koha/Objects.t Should return green Followed test plan, result as expected Signed-off-by: Marc VĂ©ron --- Koha/Objects.pm | 2 +- t/db_dependent/Koha/Objects.t | 9 ++++++++- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/Koha/Objects.pm b/Koha/Objects.pm index 9231206..a6210ae 100644 --- a/Koha/Objects.pm +++ b/Koha/Objects.pm @@ -323,7 +323,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 get_column ); my $method = our $AUTOLOAD; $method =~ s/.*:://; diff --git a/t/db_dependent/Koha/Objects.t b/t/db_dependent/Koha/Objects.t index 29dea67..70c258b 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,13 @@ subtest 'single' => sub { "Warning is presented if single is used for a result with multiple rows."; }; +subtest 'get_column' => sub { + plan tests => 1; + my @cities = Koha::Cities->search; + my @city_names = map { $_->city_name } @cities; + is_deeply( [ Koha::Cities->search->get_column('city_name')->all ], \@city_names, 'Koha::Objects->get_column should be allowed' ); +}; + subtest 'Exceptions' => sub { plan tests => 2; -- 2.1.4