Browse Source

Bug 18093: Add Koha::Objects->get_column

Test plan:
  prove t/db_dependent/Koha/Objects.t
Should return green

Followed test plan, result as expected
Signed-off-by: Marc Véron <veron@veron.ch>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
17.05.x
Jonathan Druart 7 years ago
committed by Kyle M Hall
parent
commit
1eab22f71e
  1. 2
      Koha/Objects.pm
  2. 9
      t/db_dependent/Koha/Objects.t

2
Koha/Objects.pm

@ -359,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 slice );
my @known_methods = qw( count pager update delete result_class single slice get_column );
my $method = our $AUTOLOAD;
$method =~ s/.*:://;

9
t/db_dependent/Koha/Objects.t

@ -19,7 +19,7 @@
use Modern::Perl;
use Test::More tests => 12;
use Test::More tests => 13;
use Test::Warn;
use Koha::Authority::Types;
@ -140,6 +140,13 @@ subtest 'last' => sub {
is( $last_patron, undef, '->last should return undef if search does not return any results' );
};
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;

Loading…
Cancel
Save