Lines 19-25
Link Here
|
19 |
|
19 |
|
20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
21 |
|
21 |
|
22 |
use Test::More tests => 11; |
22 |
use Test::More tests => 12; |
23 |
use Test::Warn; |
23 |
use Test::Warn; |
24 |
|
24 |
|
25 |
use Koha::Authority::Types; |
25 |
use Koha::Authority::Types; |
Lines 127-132
subtest 'single' => sub {
Link Here
|
127 |
"Warning is presented if single is used for a result with multiple rows."; |
127 |
"Warning is presented if single is used for a result with multiple rows."; |
128 |
}; |
128 |
}; |
129 |
|
129 |
|
|
|
130 |
subtest 'get_column' => sub { |
131 |
plan tests => 1; |
132 |
my @cities = Koha::Cities->search; |
133 |
my @city_names = map { $_->city_name } @cities; |
134 |
is_deeply( [ Koha::Cities->search->get_column('city_name')->all ], \@city_names, 'Koha::Objects->get_column should be allowed' ); |
135 |
}; |
136 |
|
130 |
subtest 'Exceptions' => sub { |
137 |
subtest 'Exceptions' => sub { |
131 |
plan tests => 2; |
138 |
plan tests => 2; |
132 |
|
139 |
|
133 |
- |
|
|