Lines 11-27
use Koha::DateUtils qw(dt_from_string);
Link Here
|
11 |
use Test::More tests => 6; |
11 |
use Test::More tests => 6; |
12 |
use DateTime::Format::MySQL; |
12 |
use DateTime::Format::MySQL; |
13 |
|
13 |
|
14 |
eval {use Test::Deep;}; |
|
|
15 |
|
16 |
BEGIN { |
14 |
BEGIN { |
17 |
use_ok('C4::Koha', qw( :DEFAULT GetDailyQuote )); |
15 |
use_ok('C4::Koha', qw( :DEFAULT GetDailyQuote )); |
18 |
use_ok('C4::Members'); |
16 |
use_ok('C4::Members'); |
19 |
} |
17 |
} |
20 |
|
18 |
|
21 |
my $dbh = C4::Context->dbh; |
19 |
my $dbh = C4::Context->dbh; |
|
|
20 |
$dbh->{AutoCommit} = 0; |
21 |
$dbh->{RaiseError} = 1; |
22 |
|
22 |
|
23 |
subtest 'Authorized Values Tests' => sub { |
23 |
subtest 'Authorized Values Tests' => sub { |
24 |
plan tests => 6; |
24 |
plan tests => 8; |
25 |
|
25 |
|
26 |
my $data = { |
26 |
my $data = { |
27 |
category => 'CATEGORY', |
27 |
category => 'CATEGORY', |
Lines 60-65
subtest 'Authorized Values Tests' => sub {
Link Here
|
60 |
my $sth = $dbh->prepare($query); |
60 |
my $sth = $dbh->prepare($query); |
61 |
$sth->execute($data->{category}, $data->{authorised_value}, $data->{lib}, $data->{lib_opac}, $data->{imageurl}); |
61 |
$sth->execute($data->{category}, $data->{authorised_value}, $data->{lib}, $data->{lib_opac}, $data->{imageurl}); |
62 |
} |
62 |
} |
|
|
63 |
|
64 |
SKIP: { |
65 |
eval { require Test::Deep; import Test::Deep; }; |
66 |
skip "Test::Deep required to run the GetAuthorisedValues() tests.", 2 if $@; |
67 |
AddAuthorisedValue('BUG10656', 'ZZZ', 'Z_STAFF', 'A_PUBLIC', ''); |
68 |
AddAuthorisedValue('BUG10656', 'AAA', 'A_STAFF', 'Z_PUBLIC', ''); |
69 |
# the next one sets lib_opac to NULL; in that case, the staff |
70 |
# display value is meant to be used. |
71 |
AddAuthorisedValue('BUG10656', 'DDD', 'D_STAFF', undef, ''); |
72 |
my $authvals = GetAuthorisedValues('BUG10656'); |
73 |
cmp_deeply( |
74 |
$authvals, |
75 |
[ |
76 |
{ |
77 |
id => ignore(), |
78 |
category => 'BUG10656', |
79 |
authorised_value => 'AAA', |
80 |
selected => 0, |
81 |
lib => 'A_STAFF', |
82 |
lib_opac => 'Z_PUBLIC', |
83 |
imageurl => '', |
84 |
}, |
85 |
{ |
86 |
id => ignore(), |
87 |
category => 'BUG10656', |
88 |
authorised_value => 'DDD', |
89 |
selected => 0, |
90 |
lib => 'D_STAFF', |
91 |
lib_opac => undef, |
92 |
imageurl => '', |
93 |
}, |
94 |
{ |
95 |
id => ignore(), |
96 |
category => 'BUG10656', |
97 |
authorised_value => 'ZZZ', |
98 |
selected => 0, |
99 |
lib => 'Z_STAFF', |
100 |
lib_opac => 'A_PUBLIC', |
101 |
imageurl => '', |
102 |
}, |
103 |
], |
104 |
'list of authorised values in staff mode sorted by staff label (bug 10656)' |
105 |
); |
106 |
$authvals = GetAuthorisedValues('BUG10656', '', 1); |
107 |
cmp_deeply( |
108 |
$authvals, |
109 |
[ |
110 |
{ |
111 |
id => ignore(), |
112 |
category => 'BUG10656', |
113 |
authorised_value => 'ZZZ', |
114 |
selected => 0, |
115 |
lib => 'A_PUBLIC', |
116 |
lib_opac => 'A_PUBLIC', |
117 |
imageurl => '', |
118 |
}, |
119 |
{ |
120 |
id => ignore(), |
121 |
category => 'BUG10656', |
122 |
authorised_value => 'DDD', |
123 |
selected => 0, |
124 |
lib => 'D_STAFF', |
125 |
lib_opac => undef, |
126 |
imageurl => '', |
127 |
}, |
128 |
{ |
129 |
id => ignore(), |
130 |
category => 'BUG10656', |
131 |
authorised_value => 'AAA', |
132 |
selected => 0, |
133 |
lib => 'Z_PUBLIC', |
134 |
lib_opac => 'Z_PUBLIC', |
135 |
imageurl => '', |
136 |
}, |
137 |
], |
138 |
'list of authorised values in OPAC mode sorted by OPAC label (bug 10656)' |
139 |
); |
140 |
} |
141 |
|
63 |
}; |
142 |
}; |
64 |
|
143 |
|
65 |
subtest 'Itemtype info Tests' => sub { |
144 |
subtest 'Itemtype info Tests' => sub { |
Lines 85-90
subtest 'Itemtype info Tests' => sub {
Link Here
|
85 |
### test for C4::Koha->GetDailyQuote() |
164 |
### test for C4::Koha->GetDailyQuote() |
86 |
SKIP: |
165 |
SKIP: |
87 |
{ |
166 |
{ |
|
|
167 |
eval { require Test::Deep; import Test::Deep; }; |
88 |
skip "Test::Deep required to run the GetDailyQuote tests.", 1 if $@; |
168 |
skip "Test::Deep required to run the GetDailyQuote tests.", 1 if $@; |
89 |
|
169 |
|
90 |
subtest 'Daily Quotes Test' => sub { |
170 |
subtest 'Daily Quotes Test' => sub { |
91 |
- |
|
|