Lines 23-28
use utf8;
Link Here
|
23 |
|
23 |
|
24 |
use List::MoreUtils qw( uniq ); |
24 |
use List::MoreUtils qw( uniq ); |
25 |
|
25 |
|
|
|
26 |
use Koha::ClassSources; |
26 |
use Koha::Libraries; |
27 |
use Koha::Libraries; |
27 |
use Koha::MarcSubfieldStructures; |
28 |
use Koha::MarcSubfieldStructures; |
28 |
use Koha::UI::Form::Builder::Item; |
29 |
use Koha::UI::Form::Builder::Item; |
Lines 99-114
subtest 'authorised values' => sub {
Link Here
|
99 |
}; |
100 |
}; |
100 |
|
101 |
|
101 |
subtest 'cn_source' => sub { |
102 |
subtest 'cn_source' => sub { |
102 |
plan tests => 2; |
103 |
plan tests => 3; |
103 |
my ( $subfield ) = grep { $_->{kohafield} eq 'items.cn_source' } @$subfields; |
104 |
my ($subfield) = grep { $_->{kohafield} eq 'items.cn_source' } @$subfields; |
104 |
is_deeply( $subfield->{marc_value}->{values}, [ '', 'ddc', 'lcc' ] ); |
105 |
|
105 |
is_deeply( |
106 |
my @class_sources = Koha::ClassSources->search( { used => 1 }, { order_by => 'cn_source' } )->as_list; |
106 |
$subfield->{marc_value}->{labels}, |
107 |
my %labels = map { $_->cn_source => $_->description } @class_sources; |
107 |
{ |
108 |
my @values = ( '', map { $_->cn_source } @class_sources ); |
108 |
ddc => "Dewey Decimal Classification", |
109 |
|
109 |
lcc => "Library of Congress Classification", |
110 |
is( $subfield->{marc_value}->{type}, 'select' ); |
110 |
} |
111 |
is_deeply( $subfield->{marc_value}->{labels}, \%labels ); |
111 |
); |
112 |
is_deeply( $subfield->{marc_value}->{values}, \@values ); |
112 |
}; |
113 |
}; |
113 |
subtest 'branches' => sub { |
114 |
subtest 'branches' => sub { |
114 |
plan tests => 2; |
115 |
plan tests => 2; |
115 |
- |
|
|