|
Lines 17-22
Link Here
|
| 17 |
|
17 |
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
use Test::More tests => 7; |
19 |
use Test::More tests => 7; |
|
|
20 |
use Data::Dumper qw( Dumper ); |
| 20 |
use utf8; |
21 |
use utf8; |
| 21 |
|
22 |
|
| 22 |
use List::MoreUtils qw( uniq ); |
23 |
use List::MoreUtils qw( uniq ); |
|
Lines 122-128
subtest 'authorised values' => sub {
Link Here
|
| 122 |
$itemtypes->as_list |
123 |
$itemtypes->as_list |
| 123 |
], |
124 |
], |
| 124 |
"Item types should be sorted by description and an empty entries should be shown" |
125 |
"Item types should be sorted by description and an empty entries should be shown" |
| 125 |
); |
126 |
) |
|
|
127 |
or diag("Itemtypes details: ".Dumper($subfield->{marc_value}->{values}, [map { $_->itemtype } $itemtypes->as_list])); |
| 128 |
|
| 126 |
is_deeply( $subfield->{marc_value}->{labels}, |
129 |
is_deeply( $subfield->{marc_value}->{labels}, |
| 127 |
{ map { $_->itemtype => $_->description } $itemtypes->as_list }, |
130 |
{ map { $_->itemtype => $_->description } $itemtypes->as_list }, |
| 128 |
'Labels should be correctly displayed' |
131 |
'Labels should be correctly displayed' |
| 129 |
- |
|
|