|
Lines 6-11
Link Here
|
| 6 |
use Modern::Perl; |
6 |
use Modern::Perl; |
| 7 |
use Test::More tests => 5; |
7 |
use Test::More tests => 5; |
| 8 |
use Test::Warn; |
8 |
use Test::Warn; |
|
|
9 |
use Test::Deep; |
| 9 |
|
10 |
|
| 10 |
use t::lib::TestBuilder; |
11 |
use t::lib::TestBuilder; |
| 11 |
|
12 |
|
|
Lines 58-158
subtest 'Authorized Values Tests' => sub {
Link Here
|
| 58 |
$sth->execute($data->{category}, $data->{authorised_value}, $data->{lib}, $data->{lib_opac}, $data->{imageurl}); |
59 |
$sth->execute($data->{category}, $data->{authorised_value}, $data->{lib}, $data->{lib_opac}, $data->{imageurl}); |
| 59 |
} |
60 |
} |
| 60 |
|
61 |
|
| 61 |
SKIP: { |
62 |
Koha::AuthorisedValueCategory->new({ category_name => 'BUG10656' })->store; |
| 62 |
eval { require Test::Deep; import Test::Deep; }; |
63 |
Koha::AuthorisedValue->new( |
| 63 |
skip "Test::Deep required to run the GetAuthorisedValues() tests.", 2 if $@; |
64 |
{ category => 'BUG10656', |
| 64 |
Koha::AuthorisedValueCategory->new({ category_name => 'BUG10656' })->store; |
65 |
authorised_value => 'ZZZ', |
| 65 |
Koha::AuthorisedValue->new( |
66 |
lib => 'Z_STAFF', |
| 66 |
{ category => 'BUG10656', |
67 |
lib_opac => 'A_PUBLIC', |
| 67 |
authorised_value => 'ZZZ', |
68 |
imageurl => '' |
| 68 |
lib => 'Z_STAFF', |
69 |
} |
| 69 |
lib_opac => 'A_PUBLIC', |
70 |
)->store; |
| 70 |
imageurl => '' |
71 |
Koha::AuthorisedValue->new( |
| 71 |
} |
72 |
{ category => 'BUG10656', |
| 72 |
)->store; |
73 |
authorised_value => 'AAA', |
| 73 |
Koha::AuthorisedValue->new( |
74 |
lib => 'A_STAFF', |
| 74 |
{ category => 'BUG10656', |
75 |
lib_opac => 'Z_PUBLIC', |
|
|
76 |
imageurl => '' |
| 77 |
} |
| 78 |
)->store; |
| 79 |
|
| 80 |
# the next one sets lib_opac to NULL; in that case, the staff |
| 81 |
# display value is meant to be used. |
| 82 |
Koha::AuthorisedValue->new( |
| 83 |
{ category => 'BUG10656', |
| 84 |
authorised_value => 'DDD', |
| 85 |
lib => 'D_STAFF', |
| 86 |
lib_opac => undef, |
| 87 |
imageurl => '' |
| 88 |
} |
| 89 |
)->store; |
| 90 |
|
| 91 |
my $authvals = GetAuthorisedValues('BUG10656'); |
| 92 |
cmp_deeply( |
| 93 |
$authvals, |
| 94 |
[ |
| 95 |
{ |
| 96 |
id => ignore(), |
| 97 |
category => 'BUG10656', |
| 75 |
authorised_value => 'AAA', |
98 |
authorised_value => 'AAA', |
| 76 |
lib => 'A_STAFF', |
99 |
lib => 'A_STAFF', |
| 77 |
lib_opac => 'Z_PUBLIC', |
100 |
lib_opac => 'Z_PUBLIC', |
| 78 |
imageurl => '' |
101 |
imageurl => '', |
| 79 |
} |
102 |
}, |
| 80 |
)->store; |
103 |
{ |
| 81 |
|
104 |
id => ignore(), |
| 82 |
# the next one sets lib_opac to NULL; in that case, the staff |
105 |
category => 'BUG10656', |
| 83 |
# display value is meant to be used. |
|
|
| 84 |
Koha::AuthorisedValue->new( |
| 85 |
{ category => 'BUG10656', |
| 86 |
authorised_value => 'DDD', |
106 |
authorised_value => 'DDD', |
| 87 |
lib => 'D_STAFF', |
107 |
lib => 'D_STAFF', |
| 88 |
lib_opac => undef, |
108 |
lib_opac => undef, |
| 89 |
imageurl => '' |
109 |
imageurl => '', |
| 90 |
} |
110 |
}, |
| 91 |
)->store; |
111 |
{ |
| 92 |
|
112 |
id => ignore(), |
| 93 |
my $authvals = GetAuthorisedValues('BUG10656'); |
113 |
category => 'BUG10656', |
| 94 |
cmp_deeply( |
114 |
authorised_value => 'ZZZ', |
| 95 |
$authvals, |
115 |
lib => 'Z_STAFF', |
| 96 |
[ |
116 |
lib_opac => 'A_PUBLIC', |
| 97 |
{ |
117 |
imageurl => '', |
| 98 |
id => ignore(), |
118 |
}, |
| 99 |
category => 'BUG10656', |
119 |
], |
| 100 |
authorised_value => 'AAA', |
120 |
'list of authorised values in staff mode sorted by staff label (bug 10656)' |
| 101 |
lib => 'A_STAFF', |
121 |
); |
| 102 |
lib_opac => 'Z_PUBLIC', |
122 |
$authvals = GetAuthorisedValues('BUG10656', 1); |
| 103 |
imageurl => '', |
123 |
cmp_deeply( |
| 104 |
}, |
124 |
$authvals, |
| 105 |
{ |
125 |
[ |
| 106 |
id => ignore(), |
126 |
{ |
| 107 |
category => 'BUG10656', |
127 |
id => ignore(), |
| 108 |
authorised_value => 'DDD', |
128 |
category => 'BUG10656', |
| 109 |
lib => 'D_STAFF', |
129 |
authorised_value => 'ZZZ', |
| 110 |
lib_opac => undef, |
130 |
lib => 'A_PUBLIC', |
| 111 |
imageurl => '', |
131 |
lib_opac => 'A_PUBLIC', |
| 112 |
}, |
132 |
imageurl => '', |
| 113 |
{ |
133 |
}, |
| 114 |
id => ignore(), |
134 |
{ |
| 115 |
category => 'BUG10656', |
135 |
id => ignore(), |
| 116 |
authorised_value => 'ZZZ', |
136 |
category => 'BUG10656', |
| 117 |
lib => 'Z_STAFF', |
137 |
authorised_value => 'DDD', |
| 118 |
lib_opac => 'A_PUBLIC', |
138 |
lib => 'D_STAFF', |
| 119 |
imageurl => '', |
139 |
lib_opac => undef, |
| 120 |
}, |
140 |
imageurl => '', |
| 121 |
], |
141 |
}, |
| 122 |
'list of authorised values in staff mode sorted by staff label (bug 10656)' |
142 |
{ |
| 123 |
); |
143 |
id => ignore(), |
| 124 |
$authvals = GetAuthorisedValues('BUG10656', 1); |
144 |
category => 'BUG10656', |
| 125 |
cmp_deeply( |
145 |
authorised_value => 'AAA', |
| 126 |
$authvals, |
146 |
lib => 'Z_PUBLIC', |
| 127 |
[ |
147 |
lib_opac => 'Z_PUBLIC', |
| 128 |
{ |
148 |
imageurl => '', |
| 129 |
id => ignore(), |
149 |
}, |
| 130 |
category => 'BUG10656', |
150 |
], |
| 131 |
authorised_value => 'ZZZ', |
151 |
'list of authorised values in OPAC mode sorted by OPAC label (bug 10656)' |
| 132 |
lib => 'A_PUBLIC', |
152 |
); |
| 133 |
lib_opac => 'A_PUBLIC', |
|
|
| 134 |
imageurl => '', |
| 135 |
}, |
| 136 |
{ |
| 137 |
id => ignore(), |
| 138 |
category => 'BUG10656', |
| 139 |
authorised_value => 'DDD', |
| 140 |
lib => 'D_STAFF', |
| 141 |
lib_opac => undef, |
| 142 |
imageurl => '', |
| 143 |
}, |
| 144 |
{ |
| 145 |
id => ignore(), |
| 146 |
category => 'BUG10656', |
| 147 |
authorised_value => 'AAA', |
| 148 |
lib => 'Z_PUBLIC', |
| 149 |
lib_opac => 'Z_PUBLIC', |
| 150 |
imageurl => '', |
| 151 |
}, |
| 152 |
], |
| 153 |
'list of authorised values in OPAC mode sorted by OPAC label (bug 10656)' |
| 154 |
); |
| 155 |
} |
| 156 |
|
153 |
|
| 157 |
warning_is { GetAuthorisedValues() } [], 'No warning when no parameter passed to GetAuthorisedValues'; |
154 |
warning_is { GetAuthorisedValues() } [], 'No warning when no parameter passed to GetAuthorisedValues'; |
| 158 |
|
155 |
|
| 159 |
- |
|
|