Line 0
Link Here
|
0 |
- |
1 |
#!/usr/bin/perl |
|
|
2 |
|
3 |
# Copyright 2015 BibLibre |
4 |
# |
5 |
# This file is part of Koha. |
6 |
# |
7 |
# Koha is free software; you can redistribute it and/or modify it under the |
8 |
# terms of the GNU General Public License as published by the Free Software |
9 |
# Foundation; either version 3 of the License, or (at your option) any later |
10 |
# version. |
11 |
# |
12 |
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY |
13 |
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR |
14 |
# A PARTICULAR PURPOSE. See the GNU General Public License for more details. |
15 |
# |
16 |
# You should have received a copy of the GNU General Public License along |
17 |
# with Koha; if not, see <http://www.gnu.org/licenses>. |
18 |
|
19 |
use Modern::Perl; |
20 |
use Graphics::Magick; |
21 |
use Test::More tests => 644; |
22 |
use Test::MockModule; |
23 |
use t::lib::Mocks; |
24 |
use Test::Warn; |
25 |
|
26 |
BEGIN { |
27 |
use_ok('C4::Creators::Lib'); |
28 |
use_ok('C4::Biblio'); |
29 |
use_ok('C4::Context'); |
30 |
use_ok('Koha::Borrower'); |
31 |
use_ok('MARC::Record'); |
32 |
} |
33 |
|
34 |
can_ok( |
35 |
'C4::Creators::Lib', qw( |
36 |
get_all_templates |
37 |
get_all_layouts |
38 |
get_all_profiles |
39 |
get_all_image_names |
40 |
get_batch_summary |
41 |
get_label_summary |
42 |
get_card_summary |
43 |
get_barcode_types |
44 |
get_label_types |
45 |
get_font_types |
46 |
get_text_justification_types |
47 |
get_output_formats |
48 |
get_column_names |
49 |
get_table_names |
50 |
get_unit_values |
51 |
html_table ) |
52 |
); |
53 |
|
54 |
my $dbh = C4::Context->dbh; |
55 |
$dbh->{AutoCommit} = 0; |
56 |
$dbh->{RaiseError} = 1; |
57 |
$dbh->do('DELETE FROM creator_templates'); |
58 |
$dbh->do('DELETE FROM creator_layouts'); |
59 |
$dbh->do('DELETE FROM creator_images'); |
60 |
$dbh->do('DELETE FROM creator_batches'); |
61 |
$dbh->do('DELETE FROM printers_profile'); |
62 |
$dbh->do('DELETE FROM borrowers'); |
63 |
$dbh->do('DELETE FROM items'); |
64 |
$dbh->do('DELETE FROM biblioitems'); |
65 |
|
66 |
########################################################### |
67 |
# Inserted data |
68 |
########################################################### |
69 |
|
70 |
# ---------- Some Templates -------------------- |
71 |
my $query = ' |
72 |
INSERT INTO creator_templates |
73 |
(profile_id , template_code, template_desc, page_width, |
74 |
page_height , label_width , label_height , top_text_margin, |
75 |
left_text_margin, top_margin , left_margin , cols, |
76 |
rows , col_gap , row_gap , units, |
77 |
creator) |
78 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)'; |
79 |
my $insert_sth = $dbh->prepare($query); |
80 |
$insert_sth->execute( 1, 'TEMPL1', 'Template 1', 100, 150, 10, 15, 2, 3, 1, 4, 9, 6, 0.1, 0.2, 'POINT', 'Labels' ); |
81 |
|
82 |
$insert_sth->execute( 2, 'TEMPL2', 'Template 2', 101, 151, 11, 16, 3, 4, 2, 5, 10, 7, 0.2, 0.3, 'POINT', 'Labels' ); |
83 |
$query = ' |
84 |
SELECT template_id, template_code |
85 |
FROM creator_templates |
86 |
WHERE profile_id = ? |
87 |
'; |
88 |
my ( $template_id1, $template_code1 ) = $dbh->selectrow_array( $query, {}, 1 ); |
89 |
|
90 |
# ---------- Some Layouts ----------------------- |
91 |
$query = ' |
92 |
INSERT INTO creator_layouts |
93 |
(barcode_type , start_label , printing_type, layout_name, |
94 |
guidebox , font , font_size , units , |
95 |
callnum_split , text_justify, format_string, layout_xml , |
96 |
creator) |
97 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?)'; |
98 |
$insert_sth = $dbh->prepare($query); |
99 |
$insert_sth->execute( 'COOP2OF5', 1, 'BAR1', 'NAME1', 1, 'TR', 11, 'POINT', 1, 'L', 'barcode', 'layout_xml1', 'Labels' ); |
100 |
|
101 |
$insert_sth->execute( 'EAN13', 2, 'BAR2', 'NAME2', 2, 'TR', 12, 'POINT', 2, 'L', 'barcode', 'layout_xml2', 'Labels' ); |
102 |
|
103 |
# ---------- Some Printers --------------------- |
104 |
$query = ' |
105 |
INSERT INTO printers_profile |
106 |
(printer_name, template_id, paper_bin, |
107 |
offset_horz , offset_vert, creep_horz, |
108 |
creep_vert , units , creator) |
109 |
VALUES (?,?,?,?,?,?,?,?,?)'; |
110 |
$insert_sth = $dbh->prepare($query); |
111 |
$insert_sth->execute( 'Layout1 Name', 1234, 'Bypass', 0.1, 0.2, 0.3, 0.4, 'POINT', 'Labels' ); |
112 |
|
113 |
$insert_sth->execute( 'Layout2 Name', 1235, 'Bypass', 0.2, 0.3, 0.4, 0.5, 'POINT', 'Labels' ); |
114 |
|
115 |
# ---------- Some Images ----------------------- |
116 |
my $image1 = Graphics::Magick->new; |
117 |
my $image2 = Graphics::Magick->new; |
118 |
|
119 |
$query = ' |
120 |
INSERT INTO creator_images |
121 |
(imagefile, image_name) |
122 |
VALUES (?,?)'; |
123 |
$insert_sth = $dbh->prepare($query); |
124 |
$insert_sth->execute( "$image1->ImageToBlob()", 'Image 1' ); |
125 |
$insert_sth->execute( "$image2->ImageToBlob()", 'Image 2' ); |
126 |
|
127 |
# ---------- Some biblios ----------------------- |
128 |
my $title1 = 'Title 1'; |
129 |
my $title2 = 'Title 2'; |
130 |
my $title3 = 'Title 3'; |
131 |
my $author1 = 'Author 1'; |
132 |
my $author2 = 'Author 2'; |
133 |
my $author3 = 'Author 3'; |
134 |
|
135 |
$query = ' |
136 |
INSERT INTO biblio |
137 |
(title, author) |
138 |
VALUES (?,?)'; |
139 |
$insert_sth = $dbh->prepare($query); |
140 |
$insert_sth->execute( $title1, $author1 ); |
141 |
$insert_sth->execute( $title2, undef ); |
142 |
$insert_sth->execute( $title3, $author3 ); |
143 |
|
144 |
$query = ' |
145 |
SELECT biblionumber |
146 |
FROM biblio |
147 |
WHERE title = ?'; |
148 |
my $biblionumber1 = $dbh->selectrow_array( $query, {}, $title1 ); |
149 |
my $biblionumber2 = $dbh->selectrow_array( $query, {}, $title2 ); |
150 |
my $biblionumber3 = $dbh->selectrow_array( $query, {}, $title3 ); |
151 |
|
152 |
# ---------- Some biblio items ------------------------- |
153 |
$query = ' |
154 |
INSERT INTO biblioitems |
155 |
(biblionumber, itemtype) |
156 |
VALUES (?,?)'; |
157 |
$insert_sth = $dbh->prepare($query); |
158 |
$insert_sth->execute( $biblionumber1, 'Book' ); |
159 |
$insert_sth->execute( $biblionumber2, 'Music' ); |
160 |
$insert_sth->execute( $biblionumber3, 'Book' ); |
161 |
|
162 |
$query = ' |
163 |
SELECT biblioitemnumber |
164 |
FROM biblioitems |
165 |
WHERE biblionumber = ?'; |
166 |
my $biblioitemnumber1 = $dbh->selectrow_array( $query, {}, $biblionumber1 ); |
167 |
my $biblioitemnumber2 = $dbh->selectrow_array( $query, {}, $biblionumber2 ); |
168 |
my $biblioitemnumber3 = $dbh->selectrow_array( $query, {}, $biblionumber3 ); |
169 |
|
170 |
# ---------- Some items ------------------------- |
171 |
my $barcode1 = '111111'; |
172 |
my $barcode2 = '222222'; |
173 |
my $barcode3 = '333333'; |
174 |
|
175 |
$query = ' |
176 |
INSERT INTO items |
177 |
(biblionumber, biblioitemnumber, barcode, itype) |
178 |
VALUES (?,?,?,?)'; |
179 |
$insert_sth = $dbh->prepare($query); |
180 |
$insert_sth->execute( $biblionumber1, $biblioitemnumber1, $barcode1, 'Book' ); |
181 |
$insert_sth->execute( $biblionumber2, $biblioitemnumber2, $barcode2, 'Music' ); |
182 |
$insert_sth->execute( $biblionumber3, $biblioitemnumber3, $barcode3, 'Book' ); |
183 |
|
184 |
$query = ' |
185 |
SELECT itemnumber |
186 |
FROM items |
187 |
WHERE barcode = ?'; |
188 |
my $item_number1 = $dbh->selectrow_array( $query, {}, $barcode1 ); |
189 |
my $item_number2 = $dbh->selectrow_array( $query, {}, $barcode2 ); |
190 |
my $item_number3 = $dbh->selectrow_array( $query, {}, $barcode3 ); |
191 |
|
192 |
# ---------- Some borrowers --------------------- |
193 |
my $surname1 = 'Borrower 1'; |
194 |
my $surname2 = 'Borrower 2'; |
195 |
my $surname3 = 'Borrower 3'; |
196 |
my $firstname1 = 'firstname 1'; |
197 |
my $firstname2 = 'firstname 2'; |
198 |
my $firstname3 = 'firstname 3'; |
199 |
my $cardnumber1 = '00001'; |
200 |
my $cardnumber2 = '00002'; |
201 |
my $cardnumber3 = '00003'; |
202 |
my $categorycode = Koha::Database->new()->schema()->resultset('Category')->first()->categorycode(); |
203 |
my $branchcode = Koha::Database->new()->schema()->resultset('Branch')->first()->branchcode(); |
204 |
|
205 |
$query = ' |
206 |
INSERT INTO borrowers |
207 |
(surname, firstname, cardnumber, branchcode, categorycode) |
208 |
VALUES (?,?,?,?,?)'; |
209 |
$insert_sth = $dbh->prepare($query); |
210 |
$insert_sth->execute( $surname1, $firstname1, $cardnumber1, $branchcode, $categorycode ); |
211 |
$insert_sth->execute( $surname2, $firstname2, $cardnumber2, $branchcode, $categorycode ); |
212 |
$insert_sth->execute( $surname3, $firstname3, $cardnumber3, $branchcode, $categorycode ); |
213 |
|
214 |
$query = ' |
215 |
SELECT borrowernumber |
216 |
FROM borrowers |
217 |
WHERE surname = ?'; |
218 |
my $borrowernumber1 = $dbh->selectrow_array( $query, {}, $surname1 ); |
219 |
my $borrowernumber2 = $dbh->selectrow_array( $query, {}, $surname2 ); |
220 |
my $borrowernumber3 = $dbh->selectrow_array( $query, {}, $surname3 ); |
221 |
|
222 |
# ---------- Some batches ----------------------- |
223 |
$query = ' |
224 |
INSERT INTO creator_batches |
225 |
(batch_id , item_number, borrower_number, |
226 |
timestamp, branch_code, creator) |
227 |
VALUES (?,?,?,?,?,?)'; |
228 |
$insert_sth = $dbh->prepare($query); |
229 |
$insert_sth->execute( 11, $item_number1, $borrowernumber1, 'now()', 'CPL', 'Labels' ); |
230 |
|
231 |
$insert_sth->execute( 12, $item_number2, $borrowernumber2, 'now()', 'MPL', 'Labels' ); |
232 |
|
233 |
$insert_sth->execute( 12, $item_number3, $borrowernumber3, 'now()', 'PVL', 'Labels' ); |
234 |
|
235 |
########################################################### |
236 |
# Testing Subs |
237 |
########################################################### |
238 |
|
239 |
# ---------- Testing get_all_templates -------------------- |
240 |
# Mocking $sth->err and $sth->errstr |
241 |
{ |
242 |
my $dbi_st = Test::MockModule->new( 'DBI::st', no_auto => 1 ); |
243 |
$dbi_st->mock( 'err', sub { return 1; } ); |
244 |
$dbi_st->mock( 'errstr', sub { return 'something went wrong'; } ); |
245 |
my $templates; |
246 |
warning_is { $templates = get_all_templates() } 'Database returned the following error: something went wrong', |
247 |
'get_all_templates() raises warning if something went wrong with the sql request execution'; |
248 |
|
249 |
is( $templates, -1, '$templates return -1' ); |
250 |
} |
251 |
|
252 |
# Without params ---------------------- |
253 |
my $templates = get_all_templates(); |
254 |
|
255 |
$query = ' |
256 |
SELECT count(*) |
257 |
FROM creator_templates |
258 |
'; |
259 |
my $count = $dbh->selectrow_array($query); |
260 |
is( $count, 2, 'There are 2 templates' ); |
261 |
is( @$templates, $count, 'There are 2 templates matching' ); |
262 |
isa_ok( $templates, 'ARRAY', '$templates is an ARRAY' ); |
263 |
|
264 |
isa_ok( $templates->[0], 'HASH', '$templates->[0] is a HASH' ); |
265 |
is( $templates->[0]->{profile_id}, 1, 'profile_id is good' ); |
266 |
is( $templates->[0]->{template_code}, 'TEMPL1', 'template_code is good' ); |
267 |
is( $templates->[0]->{template_desc}, 'Template 1', 'template_desc is good' ); |
268 |
is( $templates->[0]->{page_width}, 100, 'page_width is good' ); |
269 |
is( $templates->[0]->{page_height}, 150, 'page_height is good' ); |
270 |
is( $templates->[0]->{label_width}, 10, 'label_width is good' ); |
271 |
is( $templates->[0]->{label_height}, 15, 'label_height is good' ); |
272 |
is( $templates->[0]->{top_text_margin}, 2, 'top_text_margin is good' ); |
273 |
is( $templates->[0]->{left_text_margin}, 3, 'left_text_margin is good' ); |
274 |
is( $templates->[0]->{top_margin}, 1, 'top_margin is good' ); |
275 |
is( $templates->[0]->{left_margin}, 4, 'left_margin is good' ); |
276 |
is( $templates->[0]->{cols}, 9, 'cols is good' ); |
277 |
is( $templates->[0]->{rows}, 6, 'rows is good' ); |
278 |
is( $templates->[0]->{col_gap}, 0.1, 'col_gap is good' ); |
279 |
is( $templates->[0]->{row_gap}, 0.2, 'row_gap is good' ); |
280 |
is( $templates->[0]->{units}, 'POINT', 'units is good' ); |
281 |
is( $templates->[0]->{creator}, 'Labels', 'creator is good' ); |
282 |
|
283 |
isa_ok( $templates->[1], 'HASH', '$templates->[1] is a HASH' ); |
284 |
is( $templates->[1]->{profile_id}, 2, 'profile_id is good' ); |
285 |
is( $templates->[1]->{template_code}, 'TEMPL2', 'template_code is good' ); |
286 |
is( $templates->[1]->{template_desc}, 'Template 2', 'template_desc is good' ); |
287 |
is( $templates->[1]->{page_width}, 101, 'page_width is good' ); |
288 |
is( $templates->[1]->{page_height}, 151, 'page_height is good' ); |
289 |
is( $templates->[1]->{label_width}, 11, 'label_width is good' ); |
290 |
is( $templates->[1]->{label_height}, 16, 'label_height is good' ); |
291 |
is( $templates->[1]->{top_text_margin}, 3, 'top_text_margin is good' ); |
292 |
is( $templates->[1]->{left_text_margin}, 4, 'left_text_margin is good' ); |
293 |
is( $templates->[1]->{top_margin}, 2, 'top_margin is good' ); |
294 |
is( $templates->[1]->{left_margin}, 5, 'left_margin is good' ); |
295 |
is( $templates->[1]->{cols}, 10, 'cols is good' ); |
296 |
is( $templates->[1]->{rows}, 7, 'rows is good' ); |
297 |
is( $templates->[1]->{col_gap}, 0.2, 'col_gap is good' ); |
298 |
is( $templates->[1]->{row_gap}, 0.3, 'row_gap is good' ); |
299 |
is( $templates->[1]->{units}, 'POINT', 'units is good' ); |
300 |
is( $templates->[1]->{creator}, 'Labels', 'creator is good' ); |
301 |
|
302 |
# With field_list params -------------- |
303 |
$templates = get_all_templates( field_list => 'units, cols, rows' ); |
304 |
|
305 |
$query = ' |
306 |
SELECT count(*) |
307 |
FROM creator_templates |
308 |
'; |
309 |
$count = $dbh->selectrow_array($query); |
310 |
is( $count, 2, 'There are 2 templates' ); |
311 |
is( @$templates, $count, 'There are 2 templates matching' ); |
312 |
isa_ok( $templates, 'ARRAY', '$templates is an ARRAY' ); |
313 |
|
314 |
isa_ok( $templates->[0], 'HASH', '$templates->[0] is a HASH' ); |
315 |
isnt( exists $templates->[0]->{profile_id}, 1, 'profile_id is good' ); |
316 |
isnt( exists $templates->[0]->{template_code}, 'TEMPL1', 'template_code is good' ); |
317 |
isnt( exists $templates->[0]->{template_desc}, 'Template 1', 'template_desc is good' ); |
318 |
isnt( exists $templates->[0]->{page_width}, 100, 'page_width is good' ); |
319 |
isnt( exists $templates->[0]->{page_height}, 150, 'page_height is good' ); |
320 |
isnt( exists $templates->[0]->{label_width}, 10, 'label_width is good' ); |
321 |
isnt( exists $templates->[0]->{label_height}, 15, 'label_height is good' ); |
322 |
isnt( exists $templates->[0]->{top_text_margin}, 2, 'top_text_margin is good' ); |
323 |
isnt( exists $templates->[0]->{left_text_margin}, 3, 'left_text_margin is good' ); |
324 |
isnt( exists $templates->[0]->{top_margin}, 1, 'top_margin is good' ); |
325 |
isnt( exists $templates->[0]->{left_margin}, 4, 'left_margin is good' ); |
326 |
is ( $templates->[0]->{cols}, 9, 'cols is good' ); |
327 |
is ( $templates->[0]->{rows}, 6, 'rows is good' ); |
328 |
isnt( exists $templates->[0]->{col_gap}, 0.1, 'col_gap is good' ); |
329 |
isnt( exists $templates->[0]->{row_gap}, 0.2, 'row_gap is good' ); |
330 |
is ( $templates->[0]->{units}, 'POINT', 'units is good' ); |
331 |
isnt( exists $templates->[0]->{creator}, 'Labels', 'creator is good' ); |
332 |
|
333 |
isa_ok( $templates->[1], 'HASH', '$templates->[1] is a HASH' ); |
334 |
isnt( exists $templates->[1]->{profile_id}, 2, 'profile_id is good' ); |
335 |
isnt( exists $templates->[1]->{template_code}, 'TEMPL2', 'template_code is good' ); |
336 |
isnt( exists $templates->[1]->{template_desc}, 'Template 2', 'template_desc is good' ); |
337 |
isnt( exists $templates->[1]->{page_width}, 101, 'page_width is good' ); |
338 |
isnt( exists $templates->[1]->{page_height}, 151, 'page_height is good' ); |
339 |
isnt( exists $templates->[1]->{label_width}, 11, 'label_width is good' ); |
340 |
isnt( exists $templates->[1]->{label_height}, 16, 'label_height is good' ); |
341 |
isnt( exists $templates->[1]->{top_text_margin}, 3, 'top_text_margin is good' ); |
342 |
isnt( exists $templates->[1]->{left_text_margin}, 4, 'left_text_margin is good' ); |
343 |
isnt( exists $templates->[1]->{top_margin}, 2, 'top_margin is good' ); |
344 |
isnt( exists $templates->[1]->{left_margin}, 5, 'left_margin is good' ); |
345 |
is ( $templates->[1]->{cols}, 10, 'cols is good' ); |
346 |
is ( $templates->[1]->{rows}, 7, 'rows is good' ); |
347 |
isnt( exists $templates->[1]->{col_gap}, 0.2, 'col_gap is good' ); |
348 |
isnt( exists $templates->[1]->{row_gap}, 0.3, 'row_gap is good' ); |
349 |
is ( $templates->[1]->{units}, 'POINT', 'units is good' ); |
350 |
isnt( exists $templates->[1]->{creator}, 'Labels', 'creator is good' ); |
351 |
|
352 |
# With filter params ------------------ |
353 |
$templates = get_all_templates( filter => 'rows = 7' ); |
354 |
|
355 |
$query = ' |
356 |
SELECT count(*) |
357 |
FROM creator_templates |
358 |
WHERE rows = 7 |
359 |
'; |
360 |
$count = $dbh->selectrow_array($query); |
361 |
is( $count, 1, 'There is 1 template matching' ); |
362 |
is( @$templates, $count, 'There is 1 template matching' ); |
363 |
isa_ok( $templates, 'ARRAY', '$templates is an ARRAY' ); |
364 |
|
365 |
isa_ok( $templates->[0], 'HASH', '$templates->[0] is a HASH' ); |
366 |
is( $templates->[0]->{profile_id}, 2, 'profile_id is good' ); |
367 |
is( $templates->[0]->{template_code}, 'TEMPL2', 'template_code is good' ); |
368 |
is( $templates->[0]->{template_desc}, 'Template 2', 'template_desc is good' ); |
369 |
is( $templates->[0]->{page_width}, 101, 'page_width is good' ); |
370 |
is( $templates->[0]->{page_height}, 151, 'page_height is good' ); |
371 |
is( $templates->[0]->{label_width}, 11, 'label_width is good' ); |
372 |
is( $templates->[0]->{label_height}, 16, 'label_height is good' ); |
373 |
is( $templates->[0]->{top_text_margin}, 3, 'top_text_margin is good' ); |
374 |
is( $templates->[0]->{left_text_margin}, 4, 'left_text_margin is good' ); |
375 |
is( $templates->[0]->{top_margin}, 2, 'top_margin is good' ); |
376 |
is( $templates->[0]->{left_margin}, 5, 'left_margin is good' ); |
377 |
is( $templates->[0]->{cols}, 10, 'cols is good' ); |
378 |
is( $templates->[0]->{rows}, 7, 'rows is good' ); |
379 |
is( $templates->[0]->{col_gap}, 0.2, 'col_gap is good' ); |
380 |
is( $templates->[0]->{row_gap}, 0.3, 'row_gap is good' ); |
381 |
is( $templates->[0]->{units}, 'POINT', 'units is good' ); |
382 |
is( $templates->[0]->{creator}, 'Labels', 'creator is good' ); |
383 |
|
384 |
# With orderby param ------------------ |
385 |
$templates = get_all_templates( orderby => 'rows DESC' ); |
386 |
|
387 |
$query = ' |
388 |
SELECT count(*) |
389 |
FROM creator_templates |
390 |
ORDER BY rows DESC |
391 |
'; |
392 |
$count = $dbh->selectrow_array($query); |
393 |
is( $count, 2, 'There are 2 templates' ); |
394 |
is( @$templates, $count, 'There are 2 templates matching' ); |
395 |
isa_ok( $templates, 'ARRAY', '$templates is an ARRAY' ); |
396 |
|
397 |
isa_ok( $templates->[0], 'HASH', '$templates->[0] is a HASH' ); |
398 |
is( $templates->[0]->{profile_id}, 2, 'profile_id is good' ); |
399 |
is( $templates->[0]->{template_code}, 'TEMPL2', 'template_code is good' ); |
400 |
is( $templates->[0]->{template_desc}, 'Template 2', 'template_desc is good' ); |
401 |
is( $templates->[0]->{page_width}, 101, 'page_width is good' ); |
402 |
is( $templates->[0]->{page_height}, 151, 'page_height is good' ); |
403 |
is( $templates->[0]->{label_width}, 11, 'label_width is good' ); |
404 |
is( $templates->[0]->{label_height}, 16, 'label_height is good' ); |
405 |
is( $templates->[0]->{top_text_margin}, 3, 'top_text_margin is good' ); |
406 |
is( $templates->[0]->{left_text_margin}, 4, 'left_text_margin is good' ); |
407 |
is( $templates->[0]->{top_margin}, 2, 'top_margin is good' ); |
408 |
is( $templates->[0]->{left_margin}, 5, 'left_margin is good' ); |
409 |
is( $templates->[0]->{cols}, 10, 'cols is good' ); |
410 |
is( $templates->[0]->{rows}, 7, 'rows is good' ); |
411 |
is( $templates->[0]->{col_gap}, 0.2, 'col_gap is good' ); |
412 |
is( $templates->[0]->{row_gap}, 0.3, 'row_gap is good' ); |
413 |
is( $templates->[0]->{units}, 'POINT', 'units is good' ); |
414 |
is( $templates->[0]->{creator}, 'Labels', 'creator is good' ); |
415 |
|
416 |
isa_ok( $templates->[1], 'HASH', '$templates->[1] is a HASH' ); |
417 |
is( $templates->[1]->{profile_id}, 1, 'profile_id is good' ); |
418 |
is( $templates->[1]->{template_code}, 'TEMPL1', 'template_code is good' ); |
419 |
is( $templates->[1]->{template_desc}, 'Template 1', 'template_desc is good' ); |
420 |
is( $templates->[1]->{page_width}, 100, 'page_width is good' ); |
421 |
is( $templates->[1]->{page_height}, 150, 'page_height is good' ); |
422 |
is( $templates->[1]->{label_width}, 10, 'label_width is good' ); |
423 |
is( $templates->[1]->{label_height}, 15, 'label_height is good' ); |
424 |
is( $templates->[1]->{top_text_margin}, 2, 'top_text_margin is good' ); |
425 |
is( $templates->[1]->{left_text_margin}, 3, 'left_text_margin is good' ); |
426 |
is( $templates->[1]->{top_margin}, 1, 'top_margin is good' ); |
427 |
is( $templates->[1]->{left_margin}, 4, 'left_margin is good' ); |
428 |
is( $templates->[1]->{cols}, 9, 'cols is good' ); |
429 |
is( $templates->[1]->{rows}, 6, 'rows is good' ); |
430 |
is( $templates->[1]->{col_gap}, 0.1, 'col_gap is good' ); |
431 |
is( $templates->[1]->{row_gap}, 0.2, 'row_gap is good' ); |
432 |
is( $templates->[1]->{units}, 'POINT', 'units is good' ); |
433 |
is( $templates->[1]->{creator}, 'Labels', 'creator is good' ); |
434 |
|
435 |
# ---------- Testing get_all_layouts ---------------------- |
436 |
# Mocking $sth->err and $sth->errstr |
437 |
{ |
438 |
my $dbi_st = Test::MockModule->new( 'DBI::st', no_auto => 1 ); |
439 |
$dbi_st->mock( 'err', sub { return 1; } ); |
440 |
$dbi_st->mock( 'errstr', sub { return 'something went wrong'; } ); |
441 |
my $layouts; |
442 |
warning_is { $layouts = get_all_layouts() } 'Database returned the following error: something went wrong', |
443 |
'get_all_layouts() raises warning if something went wrong with the sql request execution'; |
444 |
|
445 |
is( $layouts, -1, '$layouts return -1' ); |
446 |
} |
447 |
|
448 |
# Without params ---------------------- |
449 |
my $layouts = get_all_layouts(); |
450 |
|
451 |
$query = ' |
452 |
SELECT count(*) |
453 |
FROM creator_layouts |
454 |
'; |
455 |
$count = $dbh->selectrow_array($query); |
456 |
is( $count, 2, 'There are 2 layouts' ); |
457 |
is( @$layouts, $count, 'There are 2 layouts matching' ); |
458 |
isa_ok( $layouts, 'ARRAY', '$layouts is an ARRAY' ); |
459 |
|
460 |
isa_ok( $layouts->[0], 'HASH', '$layouts->[0] is a HASH' ); |
461 |
is( $layouts->[0]->{barcode_type}, 'COOP2OF5', 'barcode_type is good' ); |
462 |
is( $layouts->[0]->{start_label}, 1, 'start_label is good' ); |
463 |
is( $layouts->[0]->{printing_type}, 'BAR1', 'printing_type is good' ); |
464 |
is( $layouts->[0]->{layout_name}, 'NAME1', 'layout_name is good' ); |
465 |
is( $layouts->[0]->{guidebox}, 1, 'guidebox is good' ); |
466 |
is( $layouts->[0]->{font}, 'TR', 'font is good' ); |
467 |
is( $layouts->[0]->{font_size}, 11, 'font_size is good' ); |
468 |
is( $layouts->[0]->{units}, 'POINT', 'units is good' ); |
469 |
is( $layouts->[0]->{callnum_split}, 1, 'callnum_split is good' ); |
470 |
is( $layouts->[0]->{text_justify}, 'L', 'text_justify is good' ); |
471 |
is( $layouts->[0]->{format_string}, 'barcode', 'format_string is good' ); |
472 |
is( $layouts->[0]->{layout_xml}, 'layout_xml1', 'layout_xml is good' ); |
473 |
is( $layouts->[0]->{creator}, 'Labels', 'creator is good' ); |
474 |
|
475 |
isa_ok( $layouts->[1], 'HASH', '$layouts->[1] is a HASH' ); |
476 |
is( $layouts->[1]->{barcode_type}, 'EAN13', 'barcode_type is good' ); |
477 |
is( $layouts->[1]->{start_label}, 2, 'start_label is good' ); |
478 |
is( $layouts->[1]->{printing_type}, 'BAR2', 'printing_type is good' ); |
479 |
is( $layouts->[1]->{layout_name}, 'NAME2', 'layout_name is good' ); |
480 |
is( $layouts->[1]->{guidebox}, 2, 'guidebox is good' ); |
481 |
is( $layouts->[1]->{font}, 'TR', 'font is good' ); |
482 |
is( $layouts->[1]->{font_size}, 12, 'font_size is good' ); |
483 |
is( $layouts->[1]->{units}, 'POINT', 'units is good' ); |
484 |
is( $layouts->[1]->{callnum_split}, 2, 'callnum_split is good' ); |
485 |
is( $layouts->[1]->{text_justify}, 'L', 'text_justify is good' ); |
486 |
is( $layouts->[1]->{format_string}, 'barcode', 'format_string is good' ); |
487 |
is( $layouts->[1]->{layout_xml}, 'layout_xml2', 'layout_xml is good' ); |
488 |
is( $layouts->[1]->{creator}, 'Labels', 'creator is good' ); |
489 |
|
490 |
# With field_list params -------------- |
491 |
$layouts = get_all_layouts( field_list => 'barcode_type, layout_name, font' ); |
492 |
|
493 |
$query = ' |
494 |
SELECT count(*) |
495 |
FROM creator_layouts |
496 |
'; |
497 |
$count = $dbh->selectrow_array($query); |
498 |
is( $count, 2, 'There are 2 layouts' ); |
499 |
is( @$layouts, $count, 'There are 2 layouts matching' ); |
500 |
isa_ok( $layouts, 'ARRAY', '$layouts is an ARRAY' ); |
501 |
|
502 |
isa_ok( $layouts->[0], 'HASH', '$layouts->[0] is a HASH' ); |
503 |
is ( $layouts->[0]->{barcode_type}, 'COOP2OF5', 'barcode_type is good' ); |
504 |
isnt( exists $layouts->[0]->{start_label}, 1, 'start_label is good' ); |
505 |
isnt( exists $layouts->[0]->{printing_type}, 'BAR1', 'printing_type is good' ); |
506 |
is ( $layouts->[0]->{layout_name}, 'NAME1', 'layout_name is good' ); |
507 |
isnt( exists $layouts->[0]->{guidebox}, 1, 'guidebox is good' ); |
508 |
is ( $layouts->[0]->{font}, 'TR', 'font is good' ); |
509 |
isnt( exists $layouts->[0]->{font_size}, 11, 'font_size is good' ); |
510 |
isnt( exists $layouts->[0]->{units}, 'POINT', 'units is good' ); |
511 |
isnt( exists $layouts->[0]->{callnum_split}, 1, 'callnum_split is good' ); |
512 |
isnt( exists $layouts->[0]->{text_justify}, 'L', 'text_justify is good' ); |
513 |
isnt( exists $layouts->[0]->{format_string}, 'barcode', 'format_string is good' ); |
514 |
isnt( exists $layouts->[0]->{layout_xml}, 'layout_xml1', 'layout_xml is good' ); |
515 |
isnt( exists $layouts->[0]->{creator}, 'Labels', 'creator is good' ); |
516 |
|
517 |
isa_ok( $layouts->[1], 'HASH', '$layouts->[1] is a HASH' ); |
518 |
is ( $layouts->[1]->{barcode_type}, 'EAN13', 'barcode_type is good' ); |
519 |
isnt( exists $layouts->[1]->{start_label}, 2, 'start_label is good' ); |
520 |
isnt( exists $layouts->[1]->{printing_type}, 'BAR2', 'printing_type is good' ); |
521 |
is ( $layouts->[1]->{layout_name}, 'NAME2', 'layout_name is good' ); |
522 |
isnt( exists $layouts->[1]->{guidebox}, 2, 'guidebox is good' ); |
523 |
is ( $layouts->[1]->{font}, 'TR', 'font is good' ); |
524 |
isnt( exists $layouts->[1]->{font_size}, 12, 'font_size is good' ); |
525 |
isnt( exists $layouts->[1]->{units}, 'POINT', 'units is good' ); |
526 |
isnt( exists $layouts->[1]->{callnum_split}, 2, 'callnum_split is good' ); |
527 |
isnt( exists $layouts->[1]->{text_justify}, 'L', 'text_justify is good' ); |
528 |
isnt( exists $layouts->[1]->{format_string}, 'barcode', 'format_string is good' ); |
529 |
isnt( exists $layouts->[1]->{layout_xml}, 'layout_xml2', 'layout_xml is good' ); |
530 |
isnt( exists $layouts->[1]->{creator}, 'Labels', 'creator is good' ); |
531 |
|
532 |
# With filter params ------------------ |
533 |
$layouts = get_all_layouts( filter => 'font_size = 12' ); |
534 |
|
535 |
$query = ' |
536 |
SELECT count(*) |
537 |
FROM creator_layouts |
538 |
WHERE font_size = 12 |
539 |
'; |
540 |
$count = $dbh->selectrow_array($query); |
541 |
is( $count, 1, 'There is 1 layout matching' ); |
542 |
is( @$layouts, $count, 'There is 1 layout matching' ); |
543 |
isa_ok( $layouts, 'ARRAY', '$layouts is an ARRAY' ); |
544 |
|
545 |
isa_ok( $layouts->[0], 'HASH', '$layouts->[0] is a HASH' ); |
546 |
is( $layouts->[0]->{barcode_type}, 'EAN13', 'barcode_type is good' ); |
547 |
is( $layouts->[0]->{start_label}, 2, 'start_label is good' ); |
548 |
is( $layouts->[0]->{printing_type}, 'BAR2', 'printing_type is good' ); |
549 |
is( $layouts->[0]->{layout_name}, 'NAME2', 'layout_name is good' ); |
550 |
is( $layouts->[0]->{guidebox}, 2, 'guidebox is good' ); |
551 |
is( $layouts->[0]->{font}, 'TR', 'font is good' ); |
552 |
is( $layouts->[0]->{font_size}, 12, 'font_size is good' ); |
553 |
is( $layouts->[0]->{units}, 'POINT', 'units is good' ); |
554 |
is( $layouts->[0]->{callnum_split}, 2, 'callnum_split is good' ); |
555 |
is( $layouts->[0]->{text_justify}, 'L', 'text_justify is good' ); |
556 |
is( $layouts->[0]->{format_string}, 'barcode', 'format_string is good' ); |
557 |
is( $layouts->[0]->{layout_xml}, 'layout_xml2', 'layout_xml is good' ); |
558 |
is( $layouts->[0]->{creator}, 'Labels', 'creator is good' ); |
559 |
|
560 |
# With orderby param ------------------ |
561 |
$layouts = get_all_layouts( orderby => 'font_size DESC' ); |
562 |
|
563 |
$query = ' |
564 |
SELECT count(*) |
565 |
FROM creator_layouts |
566 |
ORDER BY font_size DESC |
567 |
'; |
568 |
$count = $dbh->selectrow_array($query); |
569 |
is( $count, 2, 'There are layout matching' ); |
570 |
is( @$layouts, $count, 'There are 2 layouts matching' ); |
571 |
isa_ok( $layouts, 'ARRAY', '$layouts is an ARRAY' ); |
572 |
|
573 |
isa_ok( $layouts->[0], 'HASH', '$layouts->[0] is a HASH' ); |
574 |
is( $layouts->[0]->{barcode_type}, 'EAN13', 'barcode_type is good' ); |
575 |
is( $layouts->[0]->{start_label}, 2, 'start_label is good' ); |
576 |
is( $layouts->[0]->{printing_type}, 'BAR2', 'printing_type is good' ); |
577 |
is( $layouts->[0]->{layout_name}, 'NAME2', 'layout_name is good' ); |
578 |
is( $layouts->[0]->{guidebox}, 2, 'guidebox is good' ); |
579 |
is( $layouts->[0]->{font}, 'TR', 'font is good' ); |
580 |
is( $layouts->[0]->{font_size}, 12, 'font_size is good' ); |
581 |
is( $layouts->[0]->{units}, 'POINT', 'units is good' ); |
582 |
is( $layouts->[0]->{callnum_split}, 2, 'callnum_split is good' ); |
583 |
is( $layouts->[0]->{text_justify}, 'L', 'text_justify is good' ); |
584 |
is( $layouts->[0]->{format_string}, 'barcode', 'format_string is good' ); |
585 |
is( $layouts->[0]->{layout_xml}, 'layout_xml2', 'layout_xml is good' ); |
586 |
is( $layouts->[0]->{creator}, 'Labels', 'creator is good' ); |
587 |
|
588 |
isa_ok( $layouts->[1], 'HASH', '$layouts->[1] is a HASH' ); |
589 |
is( $layouts->[1]->{barcode_type}, 'COOP2OF5', 'barcode_type is good' ); |
590 |
is( $layouts->[1]->{start_label}, 1, 'start_label is good' ); |
591 |
is( $layouts->[1]->{printing_type}, 'BAR1', 'printing_type is good' ); |
592 |
is( $layouts->[1]->{layout_name}, 'NAME1', 'layout_name is good' ); |
593 |
is( $layouts->[1]->{guidebox}, 1, 'guidebox is good' ); |
594 |
is( $layouts->[1]->{font}, 'TR', 'font is good' ); |
595 |
is( $layouts->[1]->{font_size}, 11, 'font_size is good' ); |
596 |
is( $layouts->[1]->{units}, 'POINT', 'units is good' ); |
597 |
is( $layouts->[1]->{callnum_split}, 1, 'callnum_split is good' ); |
598 |
is( $layouts->[1]->{text_justify}, 'L', 'text_justify is good' ); |
599 |
is( $layouts->[1]->{format_string}, 'barcode', 'format_string is good' ); |
600 |
is( $layouts->[1]->{layout_xml}, 'layout_xml1', 'layout_xml is good' ); |
601 |
is( $layouts->[1]->{creator}, 'Labels', 'creator is good' ); |
602 |
|
603 |
# ---------- Testing get_all_profiles --------------------- |
604 |
# Mocking $sth->err and $sth->errstr |
605 |
{ |
606 |
my $dbi_st = Test::MockModule->new( 'DBI::st', no_auto => 1 ); |
607 |
$dbi_st->mock( 'err', sub { return 1; } ); |
608 |
$dbi_st->mock( 'errstr', sub { return 'something went wrong'; } ); |
609 |
my $profiles; |
610 |
warning_is { $profiles = get_all_profiles() } 'Database returned the following error: something went wrong', |
611 |
'get_all_profiles() raises warning if something went wrong with the sql request execution'; |
612 |
|
613 |
is( $profiles, -1, '$profiles return -1' ); |
614 |
} |
615 |
|
616 |
# Without params ---------------------- |
617 |
my $profiles = get_all_profiles(); |
618 |
|
619 |
$query = ' |
620 |
SELECT count(*) |
621 |
FROM printers_profile |
622 |
'; |
623 |
$count = $dbh->selectrow_array($query); |
624 |
is( $count, 2, 'There are 2 profiles' ); |
625 |
is( @$profiles, $count, 'There are 2 profiles matching' ); |
626 |
isa_ok( $profiles, 'ARRAY', '$profiles is an ARRAY' ); |
627 |
|
628 |
isa_ok( $profiles->[0], 'HASH', '$profiles->[0] is a HASH' ); |
629 |
is( $profiles->[0]->{printer_name}, 'Layout1 Name', 'printer_name is good' ); |
630 |
is( $profiles->[0]->{template_id}, 1234, 'template_id is good' ); |
631 |
is( $profiles->[0]->{paper_bin}, 'Bypass', 'paper_bin is good' ); |
632 |
is( $profiles->[0]->{offset_horz}, 0.1, 'offset_horz is good' ); |
633 |
is( $profiles->[0]->{offset_vert}, 0.2, 'offset_vert is good' ); |
634 |
is( $profiles->[0]->{creep_horz}, 0.3, 'creep_horz is good' ); |
635 |
is( $profiles->[0]->{creep_vert}, 0.4, 'creep_vert is good' ); |
636 |
is( $profiles->[0]->{units}, 'POINT', 'units is good' ); |
637 |
is( $profiles->[0]->{creator}, 'Labels', 'creator is good' ); |
638 |
|
639 |
isa_ok( $profiles->[1], 'HASH', '$profiles->[1] is a HASH' ); |
640 |
is( $profiles->[1]->{printer_name}, 'Layout2 Name', 'printer_name is good' ); |
641 |
is( $profiles->[1]->{template_id}, 1235, 'template_id is good' ); |
642 |
is( $profiles->[1]->{paper_bin}, 'Bypass', 'paper_bin is good' ); |
643 |
is( $profiles->[1]->{offset_horz}, 0.2, 'offset_horz is good' ); |
644 |
is( $profiles->[1]->{offset_vert}, 0.3, 'offset_vert is good' ); |
645 |
is( $profiles->[1]->{creep_horz}, 0.4, 'creep_horz is good' ); |
646 |
is( $profiles->[1]->{creep_vert}, 0.5, 'creep_vert is good' ); |
647 |
is( $profiles->[1]->{units}, 'POINT', 'units is good' ); |
648 |
is( $profiles->[1]->{creator}, 'Labels', 'creator is good' ); |
649 |
|
650 |
# With field_list params -------------- |
651 |
$profiles = get_all_profiles( field_list => 'printer_name, template_id' ); |
652 |
|
653 |
$query = ' |
654 |
SELECT count(*) |
655 |
FROM printers_profile |
656 |
'; |
657 |
$count = $dbh->selectrow_array($query); |
658 |
is( $count, 2, 'There are 2 profiles' ); |
659 |
is( @$profiles, $count, 'There are 2 profiles matching' ); |
660 |
isa_ok( $profiles, 'ARRAY', '$profiles is an ARRAY' ); |
661 |
|
662 |
isa_ok( $profiles->[0], 'HASH', '$profiles->[0] is a HASH' ); |
663 |
is ( $profiles->[0]->{printer_name}, 'Layout1 Name', 'printer_name is good' ); |
664 |
is ( $profiles->[0]->{template_id}, 1234, 'template_id is good' ); |
665 |
isnt( exists $profiles->[0]->{paper_bin}, 'Bypass', 'paper_bin is good' ); |
666 |
isnt( exists $profiles->[0]->{offset_horz}, 0.1, 'offset_horz is good' ); |
667 |
isnt( exists $profiles->[0]->{offset_vert}, 0.2, 'offset_vert is good' ); |
668 |
isnt( exists $profiles->[0]->{creep_horz}, 0.3, 'creep_horz is good' ); |
669 |
isnt( exists $profiles->[0]->{creep_vert}, 0.4, 'creep_vert is good' ); |
670 |
isnt( exists $profiles->[0]->{units}, 'POINT', 'units is good' ); |
671 |
isnt( exists $profiles->[0]->{creator}, 'Labels', 'creator is good' ); |
672 |
|
673 |
isa_ok( $profiles->[1], 'HASH', '$profiles->[1] is a HASH' ); |
674 |
is ( $profiles->[1]->{printer_name}, 'Layout2 Name', 'printer_name is good' ); |
675 |
is ( $profiles->[1]->{template_id}, 1235, 'template_id is good' ); |
676 |
isnt( exists $profiles->[1]->{paper_bin}, 'Bypass', 'paper_bin is good' ); |
677 |
isnt( exists $profiles->[1]->{offset_horz}, 0.2, 'offset_horz is good' ); |
678 |
isnt( exists $profiles->[1]->{offset_vert}, 0.3, 'offset_vert is good' ); |
679 |
isnt( exists $profiles->[1]->{creep_horz}, 0.4, 'creep_horz is good' ); |
680 |
isnt( exists $profiles->[1]->{creep_vert}, 0.5, 'creep_vert is good' ); |
681 |
isnt( exists $profiles->[1]->{units}, 'POINT', 'units is good' ); |
682 |
isnt( exists $profiles->[1]->{creator}, 'Labels', 'creator is good' ); |
683 |
|
684 |
# With filter params ------------------ |
685 |
$profiles = get_all_profiles( filter => 'template_id = 1235' ); |
686 |
|
687 |
$query = ' |
688 |
SELECT count(*) |
689 |
FROM printers_profile |
690 |
WHERE template_id = 1235 |
691 |
'; |
692 |
$count = $dbh->selectrow_array($query); |
693 |
is( $count, 1, 'There is 1 profile matching' ); |
694 |
is( @$profiles, $count, 'There is 1 profile matching' ); |
695 |
isa_ok( $profiles, 'ARRAY', '$profiles is an ARRAY' ); |
696 |
|
697 |
isa_ok( $profiles->[0], 'HASH', '$profiles->[0] is a HASH' ); |
698 |
is ( $profiles->[0]->{printer_name}, 'Layout2 Name', 'printer_name is good' ); |
699 |
is ( $profiles->[0]->{template_id}, 1235, 'template_id is good' ); |
700 |
isnt( exists $profiles->[0]->{paper_bin}, 'Bypass', 'paper_bin is good' ); |
701 |
isnt( exists $profiles->[0]->{offset_horz}, 0.2, 'offset_horz is good' ); |
702 |
isnt( exists $profiles->[0]->{offset_vert}, 0.3, 'offset_vert is good' ); |
703 |
isnt( exists $profiles->[0]->{creep_horz}, 0.4, 'creep_horz is good' ); |
704 |
isnt( exists $profiles->[0]->{creep_vert}, 0.5, 'creep_vert is good' ); |
705 |
isnt( exists $profiles->[0]->{units}, 'POINT', 'units is good' ); |
706 |
isnt( exists $profiles->[0]->{creator}, 'Labels', 'creator is good' ); |
707 |
|
708 |
# ---------- Testing get_all_image_names ------------------ |
709 |
|
710 |
# Mocking $sth->err and $sth->errstr |
711 |
{ |
712 |
my $dbi_st = Test::MockModule->new( 'DBI::st', no_auto => 1 ); |
713 |
$dbi_st->mock( 'err', sub { return 1; } ); |
714 |
$dbi_st->mock( 'errstr', sub { return 'something went wrong'; } ); |
715 |
my $images; |
716 |
warning_is { $images = get_all_image_names() } 'Database returned the following error: something went wrong', |
717 |
'get_all_image_names() raises warning if something went wrong with the sql request execution'; |
718 |
|
719 |
is( $images, -1, '$images return -1' ); |
720 |
} |
721 |
|
722 |
# Without params ---------------------- |
723 |
my $images = get_all_image_names(); |
724 |
|
725 |
$query = ' |
726 |
SELECT count(*) |
727 |
FROM creator_images |
728 |
'; |
729 |
$count = $dbh->selectrow_array($query); |
730 |
is( $count, 2, 'There are 2 images' ); |
731 |
is( @$images, $count, 'There are 2 images matching' ); |
732 |
isa_ok( $images, 'ARRAY', '$images is an ARRAY' ); |
733 |
|
734 |
isa_ok( $images->[0], 'HASH', '$images->[0] is a HASH' ); |
735 |
is( $images->[0]->{name}, 'Image 1', 'name is good' ); |
736 |
is( $images->[0]->{selected}, 0, 'selected is good' ); |
737 |
is( $images->[0]->{type}, $images->[0]->{name}, 'type is good' ); |
738 |
|
739 |
isa_ok( $images->[1], 'HASH', '$images->[1] is a HASH' ); |
740 |
is( $images->[1]->{name}, 'Image 2', 'name is good' ); |
741 |
is( $images->[1]->{selected}, 0, 'selected is good' ); |
742 |
is( $images->[1]->{type}, $images->[1]->{name}, 'type is good' ); |
743 |
|
744 |
# ---------- Testing get_batch_summary -------------------- |
745 |
|
746 |
# Mocking $sth->err and $sth->errstr |
747 |
{ |
748 |
my $dbi_st = Test::MockModule->new( 'DBI::st', no_auto => 1 ); |
749 |
$dbi_st->mock( 'err', sub { return 1; } ); |
750 |
$dbi_st->mock( 'errstr', sub { return 'something went wrong'; } ); |
751 |
my $batches; |
752 |
warning_is { $batches = get_batch_summary() } 'Database returned the following error on attempted SELECT: something went wrong', |
753 |
'get_batch_summary() raises warning if something went wrong with the sql request execution'; |
754 |
|
755 |
is( $batches, -1, '$batches return -1' ); |
756 |
} |
757 |
|
758 |
# Without creator params -------------- |
759 |
my $batches = get_batch_summary( creator => 'Labels' ); |
760 |
|
761 |
$query = ' |
762 |
SELECT batch_id, count(batch_id) |
763 |
FROM creator_batches |
764 |
WHERE creator = ? |
765 |
GROUP BY batch_id |
766 |
'; |
767 |
my $sth = $dbh->prepare($query); |
768 |
$sth->execute('Labels'); |
769 |
$count = $sth->rows; |
770 |
is( $count, 2, 'There are 2 batches' ); |
771 |
is( @$batches, $count, 'There are 2 batches matching' ); |
772 |
isa_ok( $batches, 'ARRAY', '$batches is an ARRAY' ); |
773 |
|
774 |
$query = ' |
775 |
SELECT count(batch_id) |
776 |
FROM creator_batches |
777 |
WHERE creator = ? |
778 |
AND batch_id = ? |
779 |
'; |
780 |
$count = $dbh->selectrow_array( $query, {}, 'Labels', 11 ); |
781 |
is( $count, 1, 'There is 1 batch where batch_id = 11' ); |
782 |
|
783 |
isa_ok( $batches->[0], 'HASH', '$batches->[0] is a HASH' ); |
784 |
is( $batches->[0]->{batch_id}, 11, 'batch_id is good' ); |
785 |
is( $batches->[0]->{_item_count}, $count, 'item_number is good for this batch_id' ); |
786 |
|
787 |
$count = $dbh->selectrow_array( $query, {}, 'Labels', 12 ); |
788 |
is( $count, 2, 'There are 2 batches where batch_id = 12' ); |
789 |
|
790 |
isa_ok( $batches->[1], 'HASH', '$batches->[1] is a HASH' ); |
791 |
is( $batches->[1]->{batch_id}, 12, 'batch_id is good' ); |
792 |
is( $batches->[1]->{_item_count}, $count, 'item_number is good for this batch_id' ); |
793 |
|
794 |
# Without filter & creator params ----- |
795 |
$batches = get_batch_summary( filter => 'branch_code=\'MPL\'', creator => 'Labels' ); |
796 |
is( @$batches, 1, 'There is 1 batch matching' ); |
797 |
|
798 |
$query = ' |
799 |
SELECT batch_id, count(batch_id) |
800 |
FROM creator_batches |
801 |
WHERE creator = ? |
802 |
AND branch_code = ? |
803 |
GROUP BY batch_id |
804 |
'; |
805 |
my ( $id, $nb ) = $dbh->selectrow_array( $query, {}, 'Labels', 'MPL' ); |
806 |
|
807 |
is( $batches->[0]->{batch_id}, $id, 'batch_id is good' ); |
808 |
is( $batches->[0]->{_item_count}, $nb, 'item_number is good for this batch_id' ); |
809 |
|
810 |
# ---------- Testing get_label_summary -------------------- |
811 |
# Mocking $sth->err and $sth->errstr |
812 |
{ |
813 |
my $dbi_st = Test::MockModule->new( 'DBI::st', no_auto => 1 ); |
814 |
$dbi_st->mock( 'err', sub { return 1; } ); |
815 |
$dbi_st->mock( 'errstr', sub { return 'something went wrong'; } ); |
816 |
my $labels; |
817 |
my @items = [ { item_number => $item_number1 } ]; |
818 |
|
819 |
warning_is { $labels = get_label_summary( items => @items ) } 'Database returned the following error on attempted SELECT: something went wrong', |
820 |
'get_label_summary() raises warning if something went wrong with the sql request execution'; |
821 |
|
822 |
is( $labels, -1, '$labels return -1' ); |
823 |
} |
824 |
|
825 |
# Without params ---------------------- |
826 |
my $labels = get_label_summary(); |
827 |
|
828 |
isa_ok( $labels, 'ARRAY', '$labels is an ARRAY' ); |
829 |
is( @$labels, 0, '$labels is empty' ); |
830 |
|
831 |
# With items param -------------------- |
832 |
$query = ' |
833 |
SELECT biblionumber, title, author |
834 |
FROM biblio |
835 |
WHERE biblionumber = ? |
836 |
'; |
837 |
my ( $b_biblionumber1, $b_title1, $b_author1 ) = $dbh->selectrow_array( $query, {}, $biblionumber1 ); |
838 |
my ( $b_biblionumber2, $b_title2, $b_author2 ) = $dbh->selectrow_array( $query, {}, $biblionumber2 ); |
839 |
|
840 |
$query = ' |
841 |
SELECT biblionumber, biblioitemnumber, itemtype |
842 |
FROM biblioitems |
843 |
WHERE biblioitemnumber = ? |
844 |
'; |
845 |
my ( $bi_biblionumber1, $bi_biblioitemnumber1, $bi_itemtype1 ) = $dbh->selectrow_array( $query, {}, $biblioitemnumber1 ); |
846 |
my ( $bi_biblionumber2, $bi_biblioitemnumber2, $bi_itemtype2 ) = $dbh->selectrow_array( $query, {}, $biblioitemnumber2 ); |
847 |
|
848 |
$query = ' |
849 |
SELECT biblionumber, biblioitemnumber, itemnumber, barcode, itype |
850 |
FROM items |
851 |
WHERE itemnumber = ? |
852 |
'; |
853 |
my ( $i_biblionumber1, $i_biblioitemnumber1, $i_itemnumber1, $i_barcode1, $i_itype1 ) = $dbh->selectrow_array( $query, {}, $item_number1 ); |
854 |
my ( $i_biblionumber2, $i_biblioitemnumber2, $i_itemnumber2, $i_barcode2, $i_itype2 ) = $dbh->selectrow_array( $query, {}, $item_number2 ); |
855 |
|
856 |
$query = ' |
857 |
SELECT label_id, batch_id, item_number |
858 |
FROM creator_batches |
859 |
WHERE item_number = ? |
860 |
'; |
861 |
my ( $c_label_id1, $c_batch_id1, $c_item_number1 ) = $dbh->selectrow_array( $query, {}, $item_number1 ); |
862 |
my ( $c_label_id2, $c_batch_id2, $c_item_number2 ) = $dbh->selectrow_array( $query, {}, $item_number2 ); |
863 |
|
864 |
is( $c_item_number1, $i_itemnumber1, 'CREATOR_BATCHES.item_number == ITEMS.itemnumber' ); |
865 |
is( $i_biblioitemnumber1, $bi_biblioitemnumber1, 'ITEMS.biblioitemnumber == BIBLIOITEMS.biblioitemnumber' ); |
866 |
is( $bi_biblionumber1, $b_biblionumber1, 'BIBLIOITEMS.biblionumber == BIBLIO.biblionumber' ); |
867 |
|
868 |
is( $c_item_number2, $i_itemnumber2, 'CREATOR_BATCHES.item_number == ITEMS.itemnumber' ); |
869 |
is( $i_biblioitemnumber2, $bi_biblioitemnumber2, 'ITEMS.biblioitemnumber == BIBLIOITEMS.biblioitemnumber' ); |
870 |
is( $bi_biblionumber2, $b_biblionumber2, 'BIBLIOITEMS.biblionumber == BIBLIO.biblionumber' ); |
871 |
|
872 |
my @items = [ |
873 |
{ item_number => $item_number1, |
874 |
label_id => $c_label_id1, |
875 |
} |
876 |
]; |
877 |
$labels = get_label_summary( items => @items, batch_id => $c_batch_id1 ); |
878 |
|
879 |
is( @$labels, 1, 'There is 1 label for $item_number1' ); |
880 |
isa_ok( $labels, 'ARRAY', '$labels is an array' ); |
881 |
isa_ok( $labels->[0], 'HASH', '$labels->[0] is an hash' ); |
882 |
|
883 |
my $record_author = $b_author1; |
884 |
my $record_title = $b_title1; |
885 |
$record_author =~ s/[^\.|\w]$//; |
886 |
$record_title =~ s/\W*$//; |
887 |
$record_title = '<a href="/cgi-bin/koha/catalogue/detail.pl?biblionumber=' . $b_biblionumber1 . '"> ' . $b_title1 . '</a>'; |
888 |
my $summary1 = $record_title . " | " . ( $b_author1 ? $b_author1 : 'N/A' ); |
889 |
my $itemtypes_pref = C4::Context->preference("item-level_itypes"); |
890 |
my $record_itemtype = $itemtypes_pref ? $i_itype1 : $bi_itemtype1; |
891 |
|
892 |
is( $labels->[0]->{_label_number}, 1, '_label_number is good' ); |
893 |
is( $labels->[0]->{_summary}, $summary1, '_summary is good' ); |
894 |
is( $labels->[0]->{_item_type}, $record_itemtype, '_item_type is good' ); |
895 |
is( $labels->[0]->{_barcode}, $i_barcode1, '_barcode is good' ); |
896 |
is( $labels->[0]->{_item_number}, $i_itemnumber1, '_item_number is good' ); |
897 |
is( $labels->[0]->{_label_id}, $c_label_id1, '_label_id is good' ); |
898 |
|
899 |
# record without author |
900 |
@items = [ |
901 |
{ item_number => $item_number2, |
902 |
label_id => $c_label_id2, |
903 |
} |
904 |
]; |
905 |
$labels = get_label_summary( items => @items, batch_id => $c_batch_id2 ); |
906 |
|
907 |
is( @$labels, 1, 'There is 1 label for $item_number2' ); |
908 |
isa_ok( $labels, 'ARRAY', '$labels is an array' ); |
909 |
isa_ok( $labels->[0], 'HASH', '$labels->[0] is an hash' ); |
910 |
|
911 |
$record_author = $b_author2; |
912 |
$record_title = $b_title2; |
913 |
$record_author =~ s/[^\.|\w]$// if $b_author2; |
914 |
$record_title =~ s/\W*$//; |
915 |
$record_title = '<a href="/cgi-bin/koha/catalogue/detail.pl?biblionumber=' . $b_biblionumber2 . '"> ' . $b_title2 . '</a>'; |
916 |
my $summary2 = $record_title . " | " . ( $b_author2 ? $b_author2 : 'N/A' ); |
917 |
$itemtypes_pref = C4::Context->preference("item-level_itypes"); |
918 |
$record_itemtype = $itemtypes_pref ? $i_itype2 : $bi_itemtype2; |
919 |
|
920 |
is( $labels->[0]->{_label_number}, 1, '_label_number is good' ); |
921 |
is( $labels->[0]->{_summary}, $summary2, '_summary is good' ); |
922 |
is( $labels->[0]->{_item_type}, $record_itemtype, '_item_type is good' ); |
923 |
is( $labels->[0]->{_barcode}, $i_barcode2, '_barcode is good' ); |
924 |
is( $labels->[0]->{_item_number}, $i_itemnumber2, '_item_number is good' ); |
925 |
is( $labels->[0]->{_label_id}, $c_label_id2, '_label_id is good' ); |
926 |
|
927 |
#Mocking C4::Context->preference("item-level_itypes") |
928 |
{ |
929 |
t::lib::Mocks::mock_preference( "item-level_itypes", 0 ); |
930 |
my $h = C4::Context->preference("item-level_itypes"); |
931 |
|
932 |
my @items = [ |
933 |
{ item_number => $item_number1, |
934 |
label_id => $c_label_id1, |
935 |
} |
936 |
]; |
937 |
$labels = get_label_summary( items => @items, batch_id => $c_batch_id1 ); |
938 |
|
939 |
is( @$labels, 1, 'There is 1 label for $item_number1' ); |
940 |
isa_ok( $labels, 'ARRAY', '$labels is an array' ); |
941 |
isa_ok( $labels->[0], 'HASH', '$labels->[0] is an hash' ); |
942 |
|
943 |
my $record_author = $b_author1; |
944 |
my $record_title = $b_title1; |
945 |
$record_author =~ s/[^\.|\w]$//; |
946 |
$record_title =~ s/\W*$//; |
947 |
$record_title = '<a href="/cgi-bin/koha/catalogue/detail.pl?biblionumber=' . $b_biblionumber1 . '"> ' . $b_title1 . '</a>'; |
948 |
my $summary1 = $record_title . " | " . ( $b_author1 ? $b_author1 : 'N/A' ); |
949 |
my $itemtypes_pref = C4::Context->preference("item-level_itypes"); |
950 |
my $record_itemtype = $itemtypes_pref ? $i_itype1 : $bi_itemtype1; |
951 |
|
952 |
is( $labels->[0]->{_label_number}, 1, '_label_number is good' ); |
953 |
is( $labels->[0]->{_summary}, $summary1, '_summary is good' ); |
954 |
is( $labels->[0]->{_item_type}, $record_itemtype, '_item_type is good' ); |
955 |
is( $labels->[0]->{_barcode}, $i_barcode1, '_barcode is good' ); |
956 |
is( $labels->[0]->{_item_number}, $i_itemnumber1, '_item_number is good' ); |
957 |
is( $labels->[0]->{_label_id}, $c_label_id1, '_label_id is good' ); |
958 |
} |
959 |
|
960 |
# ---------- Testing get_card_summary --------------------- |
961 |
# Mocking $sth->err and $sth->errstr |
962 |
{ |
963 |
my $dbi_st = Test::MockModule->new( 'DBI::st', no_auto => 1 ); |
964 |
$dbi_st->mock( 'err', sub { return 1; } ); |
965 |
$dbi_st->mock( 'errstr', sub { return 'something went wrong'; } ); |
966 |
my $cards; |
967 |
my @items = [ { item_number => $item_number1 } ]; |
968 |
|
969 |
warning_is { $cards = get_card_summary( items => @items ) } 'Database returned the following error on attempted SELECT: something went wrong', |
970 |
'get_card_summary() raises warning if something went wrong with the sql request execution'; |
971 |
|
972 |
is( $cards, -1, '$cards return -1' ); |
973 |
} |
974 |
|
975 |
# Without params ---------------------- |
976 |
my $cards = get_card_summary(); |
977 |
|
978 |
isa_ok( $cards, 'ARRAY', '$cards is an ARRAY' ); |
979 |
is( @$cards, 0, '$cards is empty' ); |
980 |
|
981 |
# With items param -------------------- |
982 |
$query = ' |
983 |
SELECT surname, firstname, cardnumber |
984 |
FROM borrowers |
985 |
WHERE borrowernumber = ? |
986 |
'; |
987 |
my ( $b_surname1, $b_firstname1, $b_cardnumber1 ) = $dbh->selectrow_array( $query, {}, $borrowernumber1 ); |
988 |
|
989 |
@items = [ |
990 |
{ item_number => $item_number1, |
991 |
label_id => $c_label_id1, |
992 |
borrower_number => $borrowernumber1, |
993 |
} |
994 |
]; |
995 |
$cards = get_card_summary( items => @items ); |
996 |
|
997 |
is( @$cards, 1, 'There is 1 card for $item_number1' ); |
998 |
isa_ok( $cards, 'ARRAY', '$cards is an array' ); |
999 |
isa_ok( $cards->[0], 'HASH', '$cards->[0] is an hash' ); |
1000 |
|
1001 |
my $name1 = "$b_surname1, $b_firstname1"; |
1002 |
is( $cards->[0]->{_card_number}, 1, '_card_number is good' ); |
1003 |
is( $cards->[0]->{_summary}, $name1, '_summary is good' ); |
1004 |
is( $cards->[0]->{borrowernumber}, $borrowernumber1, 'borrowernumber is good' ); |
1005 |
is( $cards->[0]->{_label_id}, $c_label_id1, '_label_id is good' ); |
1006 |
|
1007 |
# ---------- Testing get_barcode_types -------------------- |
1008 |
my $barcode_types = get_barcode_types(); |
1009 |
|
1010 |
is( @$barcode_types, 6, 'There are 6 barcodes types' ); |
1011 |
isa_ok( $barcode_types, 'ARRAY', '$barcode_types is an ARRAY' ); |
1012 |
|
1013 |
isa_ok( $barcode_types->[0], 'HASH', '$barcode_types->[0] is a HASH' ); |
1014 |
is( $barcode_types->[0]->{type}, 'CODE39', 'type is good' ); |
1015 |
is( $barcode_types->[0]->{name}, 'Code 39', 'name is good' ); |
1016 |
is( $barcode_types->[0]->{desc}, 'Translates the characters 0-9, A-Z, \'-\', \'*\', \'+\', \'$\', \'%\', \'/\', \'.\' and \' \' to a barcode pattern.', 'desc is good' ); |
1017 |
is( $barcode_types->[0]->{selected}, 0, 'selected is good' ); |
1018 |
|
1019 |
isa_ok( $barcode_types->[1], 'HASH', '$barcode_types->[1] is a HASH' ); |
1020 |
is( $barcode_types->[1]->{type}, 'CODE39MOD', 'type is good' ); |
1021 |
is( $barcode_types->[1]->{name}, 'Code 39 + Modulo43', 'name is good' ); |
1022 |
is( $barcode_types->[1]->{desc}, |
1023 |
'Translates the characters 0-9, A-Z, \'-\', \'*\', \'+\', \'$\', \'%\', \'/\', \'.\' and \' \' to a barcode pattern. Encodes Mod 43 checksum.', |
1024 |
'desc is good' |
1025 |
); |
1026 |
is( $barcode_types->[1]->{selected}, 0, 'selected is good' ); |
1027 |
|
1028 |
isa_ok( $barcode_types->[2], 'HASH', '$barcode_types->[2] is a HASH' ); |
1029 |
is( $barcode_types->[2]->{type}, 'CODE39MOD10', 'type is good' ); |
1030 |
is( $barcode_types->[2]->{name}, 'Code 39 + Modulo10', 'name is good' ); |
1031 |
is( $barcode_types->[2]->{desc}, 'Translates the characters 0-9, A-Z, \'-\', \'*\', \'+\', \'$\', \'%\', \'/\', \'.\' and \' \' to a barcode pattern. Encodes Mod 10 checksum.', 'desc is good'); |
1032 |
is( $barcode_types->[2]->{selected}, 0, 'selected is good' ); |
1033 |
|
1034 |
isa_ok( $barcode_types->[3], 'HASH', '$barcode_types->[3] is a HASH' ); |
1035 |
is( $barcode_types->[3]->{type}, 'COOP2OF5', 'type is good' ); |
1036 |
is( $barcode_types->[3]->{name}, 'COOP2of5', 'name is good' ); |
1037 |
is( $barcode_types->[3]->{desc}, 'Creates COOP2of5 barcodes from a string consisting of the numeric characters 0-9', 'desc is good' ); |
1038 |
is( $barcode_types->[3]->{selected}, 0, 'selected is good' ); |
1039 |
|
1040 |
isa_ok( $barcode_types->[4], 'HASH', '$barcode_types->[4] is a HASH' ); |
1041 |
is( $barcode_types->[4]->{type}, 'EAN13', 'type is good' ); |
1042 |
is( $barcode_types->[4]->{name}, 'EAN13', 'name is good' ); |
1043 |
is( $barcode_types->[4]->{desc}, 'Creates EAN13 barcodes from a string of 12 or 13 digits. The check number (the 13:th digit) is calculated if not supplied.', 'desc is good' ); |
1044 |
is( $barcode_types->[4]->{selected}, 0, 'selected is good' ); |
1045 |
|
1046 |
isa_ok( $barcode_types->[5], 'HASH', '$barcode_types->[5] is a HASH' ); |
1047 |
is( $barcode_types->[5]->{type}, 'INDUSTRIAL2OF5', 'type is good' ); |
1048 |
is( $barcode_types->[5]->{name}, 'Industrial2of5', 'name is good' ); |
1049 |
is( $barcode_types->[5]->{desc}, 'Creates Industrial2of5 barcodes from a string consisting of the numeric characters 0-9', 'desc is good' ); |
1050 |
is( $barcode_types->[5]->{selected}, 0, 'selected is good' ); |
1051 |
|
1052 |
# ---------- Testing get_label_types ---------------------- |
1053 |
my $label_types = get_label_types(); |
1054 |
|
1055 |
is( @$label_types, 5, 'There are 5 label types' ); |
1056 |
isa_ok( $label_types, 'ARRAY', '$label_types is an ARRAY' ); |
1057 |
|
1058 |
isa_ok( $label_types->[0], 'HASH', '$label_types->[0] is a HASH' ); |
1059 |
is( $label_types->[0]->{type}, 'BIB', 'type is good' ); |
1060 |
is( $label_types->[0]->{name}, 'Biblio', 'name is good' ); |
1061 |
is( $label_types->[0]->{desc}, 'Only the bibliographic data is printed.', 'desc is good' ); |
1062 |
is( $label_types->[0]->{selected}, 0, 'selected is good' ); |
1063 |
|
1064 |
isa_ok( $label_types->[1], 'HASH', '$label_types->[1] is a HASH' ); |
1065 |
is( $label_types->[1]->{type}, 'BARBIB', 'type is good' ); |
1066 |
is( $label_types->[1]->{name}, 'Barcode/Biblio', 'name is good' ); |
1067 |
is( $label_types->[1]->{desc}, 'Barcode proceeds bibliographic data.', 'desc is good' ); |
1068 |
is( $label_types->[1]->{selected}, 0, 'selected is good' ); |
1069 |
|
1070 |
isa_ok( $label_types->[2], 'HASH', '$label_types->[2] is a HASH' ); |
1071 |
is( $label_types->[2]->{type}, 'BIBBAR', 'type is good' ); |
1072 |
is( $label_types->[2]->{name}, 'Biblio/Barcode', 'name is good' ); |
1073 |
is( $label_types->[2]->{desc}, 'Bibliographic data proceeds barcode.', 'desc is good' ); |
1074 |
is( $label_types->[2]->{selected}, 0, 'selected is good' ); |
1075 |
|
1076 |
isa_ok( $label_types->[3], 'HASH', '$label_types->[3] is a HASH' ); |
1077 |
is( $label_types->[3]->{type}, 'ALT', 'type is good' ); |
1078 |
is( $label_types->[3]->{name}, 'Alternating', 'name is good' ); |
1079 |
is( $label_types->[3]->{desc}, 'Barcode and bibliographic data are printed on alternating labels.', 'desc is good' ); |
1080 |
is( $label_types->[3]->{selected}, 0, 'selected is good' ); |
1081 |
|
1082 |
isa_ok( $label_types->[4], 'HASH', '$label_types->[4] is a HASH' ); |
1083 |
is( $label_types->[4]->{type}, 'BAR', 'type is good' ); |
1084 |
is( $label_types->[4]->{name}, 'Barcode', 'name is good' ); |
1085 |
is( $label_types->[4]->{desc}, 'Only the barcode is printed.', 'desc is good' ); |
1086 |
is( $label_types->[4]->{selected}, 0, 'selected is good' ); |
1087 |
|
1088 |
# ---------- Testing get_font_types ----------------------- |
1089 |
my $font_types = get_font_types(); |
1090 |
|
1091 |
is( @$font_types, 12, 'There are 12 font types' ); |
1092 |
isa_ok( $font_types, 'ARRAY', '$font_types is an ARRAY' ); |
1093 |
|
1094 |
isa_ok( $font_types->[0], 'HASH', '$font_types->[0] is a HASH' ); |
1095 |
is( $font_types->[0]->{type}, 'TR', 'type is good' ); |
1096 |
is( $font_types->[0]->{name}, 'Times-Roman', 'name is good' ); |
1097 |
is( $font_types->[0]->{selected}, 0, 'selected is good' ); |
1098 |
|
1099 |
isa_ok( $font_types->[1], 'HASH', '$font_types->[1] is a HASH' ); |
1100 |
is( $font_types->[1]->{type}, 'TB', 'type is good' ); |
1101 |
is( $font_types->[1]->{name}, 'Times-Bold', 'name is good' ); |
1102 |
is( $font_types->[1]->{selected}, 0, 'selected is good' ); |
1103 |
|
1104 |
isa_ok( $font_types->[2], 'HASH', '$font_types->[2] is a HASH' ); |
1105 |
is( $font_types->[2]->{type}, 'TI', 'type is good' ); |
1106 |
is( $font_types->[2]->{name}, 'Times-Italic', 'name is good' ); |
1107 |
is( $font_types->[2]->{selected}, 0, 'selected is good' ); |
1108 |
|
1109 |
isa_ok( $font_types->[3], 'HASH', '$font_types->[3] is a HASH' ); |
1110 |
is( $font_types->[3]->{type}, 'TBI', 'type is good' ); |
1111 |
is( $font_types->[3]->{name}, 'Times-Bold-Italic', 'name is good' ); |
1112 |
is( $font_types->[3]->{selected}, 0, 'selected is good' ); |
1113 |
|
1114 |
isa_ok( $font_types->[4], 'HASH', '$font_types->[4] is a HASH' ); |
1115 |
is( $font_types->[4]->{type}, 'C', 'type is good' ); |
1116 |
is( $font_types->[4]->{name}, 'Courier', 'name is good' ); |
1117 |
is( $font_types->[4]->{selected}, 0, 'selected is good' ); |
1118 |
|
1119 |
isa_ok( $font_types->[5], 'HASH', '$font_types->[5] is a HASH' ); |
1120 |
is( $font_types->[5]->{type}, 'CB', 'type is good' ); |
1121 |
is( $font_types->[5]->{name}, 'Courier-Bold', 'name is good' ); |
1122 |
is( $font_types->[5]->{selected}, 0, 'selected is good' ); |
1123 |
|
1124 |
isa_ok( $font_types->[6], 'HASH', '$font_types->[6] is a HASH' ); |
1125 |
is( $font_types->[6]->{type}, 'CO', 'type is good' ); |
1126 |
is( $font_types->[6]->{name}, 'Courier-Oblique', 'name is good' ); |
1127 |
is( $font_types->[6]->{selected}, 0, 'selected is good' ); |
1128 |
|
1129 |
isa_ok( $font_types->[7], 'HASH', '$font_types->[7] is a HASH' ); |
1130 |
is( $font_types->[7]->{type}, 'CBO', 'type is good' ); |
1131 |
is( $font_types->[7]->{name}, 'Courier-Bold-Oblique', 'name is good' ); |
1132 |
is( $font_types->[7]->{selected}, 0, 'selected is good' ); |
1133 |
|
1134 |
isa_ok( $font_types->[8], 'HASH', '$font_types->[8] is a HASH' ); |
1135 |
is( $font_types->[8]->{type}, 'H', 'type is good' ); |
1136 |
is( $font_types->[8]->{name}, 'Helvetica', 'name is good' ); |
1137 |
is( $font_types->[8]->{selected}, 0, 'selected is good' ); |
1138 |
|
1139 |
isa_ok( $font_types->[9], 'HASH', '$font_types->[9] is a HASH' ); |
1140 |
is( $font_types->[9]->{type}, 'HO', 'type is good' ); |
1141 |
is( $font_types->[9]->{name}, 'Helvetica-Oblique', 'name is good' ); |
1142 |
is( $font_types->[9]->{selected}, 0, 'selected is good' ); |
1143 |
|
1144 |
isa_ok( $font_types->[10], 'HASH', '$font_types->[10] is a HASH' ); |
1145 |
is( $font_types->[10]->{type}, 'HB', 'type is good' ); |
1146 |
is( $font_types->[10]->{name}, 'Helvetica-Bold', 'name is good' ); |
1147 |
is( $font_types->[10]->{selected}, 0, 'selected is good' ); |
1148 |
|
1149 |
isa_ok( $font_types->[11], 'HASH', '$font_types->[11] is a HASH' ); |
1150 |
is( $font_types->[11]->{type}, 'HBO', 'type is good' ); |
1151 |
is( $font_types->[11]->{name}, 'Helvetica-Bold-Oblique', 'name is good' ); |
1152 |
is( $font_types->[11]->{selected}, 0, 'selected is good' ); |
1153 |
|
1154 |
# ---------- Testing get_text_justification_types --------- |
1155 |
my $text_justification_types = get_text_justification_types(); |
1156 |
|
1157 |
is( @$text_justification_types, 3, 'There are 3 text justification types' ); |
1158 |
isa_ok( $text_justification_types, 'ARRAY', '$text_justification_types is an ARRAY' ); |
1159 |
|
1160 |
isa_ok( $text_justification_types->[0], 'HASH', '$font_types->[0] is a HASH' ); |
1161 |
is( $text_justification_types->[0]->{type}, 'L', 'type is good' ); |
1162 |
is( $text_justification_types->[0]->{name}, 'Left', 'name is good' ); |
1163 |
is( $text_justification_types->[0]->{selected}, 0, 'selected is good' ); |
1164 |
|
1165 |
isa_ok( $text_justification_types->[1], 'HASH', '$font_types->[1] is a HASH' ); |
1166 |
is( $text_justification_types->[1]->{type}, 'C', 'type is good' ); |
1167 |
is( $text_justification_types->[1]->{name}, 'Center', 'name is good' ); |
1168 |
is( $text_justification_types->[1]->{selected}, 0, 'selected is good' ); |
1169 |
|
1170 |
isa_ok( $text_justification_types->[2], 'HASH', '$font_types->[2] is a HASH' ); |
1171 |
is( $text_justification_types->[2]->{type}, 'R', 'type is good' ); |
1172 |
is( $text_justification_types->[2]->{name}, 'Right', 'name is good' ); |
1173 |
is( $text_justification_types->[2]->{selected}, 0, 'selected is good' ); |
1174 |
|
1175 |
# ---------- Testing get_unit_values ---------------------- |
1176 |
my $unit_values = get_unit_values(); |
1177 |
|
1178 |
is( @$unit_values, 5, 'There are 5 unit values' ); |
1179 |
isa_ok( $unit_values, 'ARRAY', '$unit_values is an ARRAY' ); |
1180 |
|
1181 |
isa_ok( $unit_values->[0], 'HASH', '$unit_values->[0] is a HASH' ); |
1182 |
is( $unit_values->[0]->{type}, 'POINT', 'type is good' ); |
1183 |
is( $unit_values->[0]->{desc}, 'PostScript Points', 'desc is good' ); |
1184 |
is( $unit_values->[0]->{value}, 1, 'value is good' ); |
1185 |
is( $unit_values->[0]->{selected}, 0, 'selected is good' ); |
1186 |
|
1187 |
isa_ok( $unit_values->[1], 'HASH', '$unit_values->[1] is a HASH' ); |
1188 |
is( $unit_values->[1]->{type}, 'AGATE', 'type is good' ); |
1189 |
is( $unit_values->[1]->{desc}, 'Adobe Agates', 'desc is good' ); |
1190 |
is( $unit_values->[1]->{value}, 5.1428571, 'value is good' ); |
1191 |
is( $unit_values->[1]->{selected}, 0, 'selected is good' ); |
1192 |
|
1193 |
isa_ok( $unit_values->[2], 'HASH', '$unit_values->[2] is a HASH' ); |
1194 |
is( $unit_values->[2]->{type}, 'INCH', 'type is good' ); |
1195 |
is( $unit_values->[2]->{desc}, 'US Inches', 'desc is good' ); |
1196 |
is( $unit_values->[2]->{value}, 72, 'value is good' ); |
1197 |
is( $unit_values->[2]->{selected}, 0, 'selected is good' ); |
1198 |
|
1199 |
isa_ok( $unit_values->[3], 'HASH', '$unit_values->[3] is a HASH' ); |
1200 |
is( $unit_values->[3]->{type}, 'MM', 'type is good' ); |
1201 |
is( $unit_values->[3]->{desc}, 'SI Millimeters', 'desc is good' ); |
1202 |
is( $unit_values->[3]->{value}, 2.83464567, 'value is good' ); |
1203 |
is( $unit_values->[3]->{selected}, 0, 'selected is good' ); |
1204 |
|
1205 |
isa_ok( $unit_values->[4], 'HASH', '$unit_values->[4] is a HASH' ); |
1206 |
is( $unit_values->[4]->{type}, 'CM', 'type is good' ); |
1207 |
is( $unit_values->[4]->{desc}, 'SI Centimeters', 'desc is good' ); |
1208 |
is( $unit_values->[4]->{value}, 28.3464567, 'value is good' ); |
1209 |
is( $unit_values->[4]->{selected}, 0, 'selected is good' ); |
1210 |
|
1211 |
# ---------- Testing get_output_formats ------------------- |
1212 |
my $output_formats = get_output_formats(); |
1213 |
|
1214 |
is( @$output_formats, 2, 'There are 2 output format' ); |
1215 |
isa_ok( $output_formats, 'ARRAY', '$output_formats is an ARRAY' ); |
1216 |
|
1217 |
isa_ok( $output_formats->[0], 'HASH', '$output_formats->[0] is a HASH' ); |
1218 |
is( $output_formats->[0]->{type}, 'pdf', 'type is good' ); |
1219 |
is( $output_formats->[0]->{desc}, 'PDF File', 'name is good' ); |
1220 |
|
1221 |
isa_ok( $output_formats->[1], 'HASH', '$output_formats->[1] is a HASH' ); |
1222 |
is( $output_formats->[1]->{type}, 'csv', 'type is good' ); |
1223 |
is( $output_formats->[1]->{desc}, 'CSV File', 'name is good' ); |
1224 |
|
1225 |
# ---------- Testing get_table_names ---------------------- |
1226 |
my $table_names = get_table_names("aq"); |
1227 |
my $KOHA_PATH = C4::Context->config("intranetdir"); |
1228 |
my $kohastructure = "$KOHA_PATH/installer/data/mysql/kohastructure.sql"; |
1229 |
|
1230 |
open( my $fh, '<', $kohastructure ) or die $!; |
1231 |
|
1232 |
my $tables_names_matching = []; |
1233 |
while ( my $intext = <$fh> ) { |
1234 |
while ( $intext =~ /CREATE TABLE `*\w*aq\w*`*/g ) { |
1235 |
my @tables_names_matching = split( /\ /, $intext ); |
1236 |
if ( $tables_names_matching[2] =~ /`*`/ ) { |
1237 |
$tables_names_matching[2] =~ s/`//g; |
1238 |
} |
1239 |
push( @$tables_names_matching, "$tables_names_matching[2]" ); |
1240 |
} |
1241 |
} |
1242 |
close $fh; |
1243 |
@$tables_names_matching = sort @$tables_names_matching; |
1244 |
is_deeply( $table_names, $tables_names_matching, 'get_table_names return all tables matching' ); |
1245 |
|
1246 |
# ---------- Testing html_table --------------------------- |
1247 |
my $display_columns = [ |
1248 |
{ _label_number => { label => 'Label Number', link_field => 0 } }, |
1249 |
{ _summary => { label => 'Summary', link_field => 0 } }, |
1250 |
{ _item_type => { label => 'Item Type', link_field => 0 } }, |
1251 |
{ _barcode => { label => 'Barcode', link_field => 1 } }, |
1252 |
{ _template_code => { label => 'Template Name', link_field => 0 } }, |
1253 |
{ select => { label => 'Select', value => '_label_id' } }, |
1254 |
]; |
1255 |
|
1256 |
#without $data param ------------------ |
1257 |
my $db_rows = []; |
1258 |
my $table = html_table( $display_columns, $db_rows ); |
1259 |
is( $table, undef, 'No need to generate a table if there is not data to display' ); |
1260 |
|
1261 |
#with $data param --------------------- |
1262 |
$db_rows = [ |
1263 |
{ _label_number => 1, |
1264 |
_summary => $summary1, |
1265 |
_item_type => 'Book', |
1266 |
_barcode => $barcode1, |
1267 |
_label_id => 'Label ID', |
1268 |
template_id => $template_id1, |
1269 |
} |
1270 |
]; |
1271 |
|
1272 |
$table = html_table( $display_columns, $db_rows ); |
1273 |
|
1274 |
isa_ok( $table, 'ARRAY', '$table is an ARRAY' ); |
1275 |
|
1276 |
#POPULATE HEADER |
1277 |
isa_ok( $table->[0]->{header_fields}, 'ARRAY', '$table->[0]->{header_fields} is an ARRAY' ); |
1278 |
is( scalar( @{ $table->[0]->{header_fields} } ), 6, 'There are 7 header_fields' ); |
1279 |
|
1280 |
my $field_value = $display_columns->[0]->{_label_number}->{label}; |
1281 |
is( $table->[0]->{header_fields}->[0]->{hidden}, 0, '[Label Number] hidden field is good' ); |
1282 |
is( $table->[0]->{header_fields}->[0]->{select_field}, 0, '[Label Number] select_field field is good' ); |
1283 |
is( $table->[0]->{header_fields}->[0]->{field_name}, '_label_number', '[Label Number] field_name field is good' ); |
1284 |
is( $table->[0]->{header_fields}->[0]->{field_label}, $field_value, '[Label Number] field_label field is good' ); |
1285 |
|
1286 |
$field_value = $display_columns->[1]->{_summary}->{label}; |
1287 |
is( $table->[0]->{header_fields}->[1]->{hidden}, 0, '[Summary] hidden field is good' ); |
1288 |
is( $table->[0]->{header_fields}->[1]->{select_field}, 0, '[Summary] select_field field is good' ); |
1289 |
is( $table->[0]->{header_fields}->[1]->{field_name}, '_summary', '[Summary] field_name field is good' ); |
1290 |
is( $table->[0]->{header_fields}->[1]->{field_label}, $field_value, '[Summary] field_label field is good' ); |
1291 |
|
1292 |
$field_value = $display_columns->[2]->{_item_type}->{label}; |
1293 |
is( $table->[0]->{header_fields}->[2]->{hidden}, 0, '[Item Type] hidden field is good' ); |
1294 |
is( $table->[0]->{header_fields}->[2]->{select_field}, 0, '[Item Type] select_field field is good' ); |
1295 |
is( $table->[0]->{header_fields}->[2]->{field_name}, '_item_type', '[Item Type] field_name field is good' ); |
1296 |
is( $table->[0]->{header_fields}->[2]->{field_label}, $field_value, '[Item Type] field_label field is good' ); |
1297 |
|
1298 |
$field_value = $display_columns->[3]->{_barcode}->{label}; |
1299 |
is( $table->[0]->{header_fields}->[3]->{hidden}, 0, '[Barcode] hidden field is good' ); |
1300 |
is( $table->[0]->{header_fields}->[3]->{select_field}, 0, '[Barcode] select_field field is good' ); |
1301 |
is( $table->[0]->{header_fields}->[3]->{field_name}, '_barcode', '[Barcode] field_name field is good' ); |
1302 |
is( $table->[0]->{header_fields}->[3]->{field_label}, $field_value, '[Barcode] field_label field is good' ); |
1303 |
|
1304 |
$field_value = $display_columns->[4]->{_template_code}->{label}; |
1305 |
is( $table->[0]->{header_fields}->[4]->{hidden}, 0, '[Template Code] hidden field is good' ); |
1306 |
is( $table->[0]->{header_fields}->[4]->{select_field}, 0, '[Template Code] select_field field is good' ); |
1307 |
is( $table->[0]->{header_fields}->[4]->{field_name}, '_template_code', '[Template Code] field_name field is good' ); |
1308 |
is( $table->[0]->{header_fields}->[4]->{field_label}, $field_value, '[Template Code] field_label field is good' ); |
1309 |
|
1310 |
$field_value = $display_columns->[5]->{select}->{label}; |
1311 |
is( $table->[0]->{header_fields}->[5]->{hidden}, 0, '[Select] hidden field is good' ); |
1312 |
is( $table->[0]->{header_fields}->[5]->{select_field}, 0, '[Select] select_field field is good' ); |
1313 |
is( $table->[0]->{header_fields}->[5]->{field_name}, 'select', '[Select] field_name field is good' ); |
1314 |
is( $table->[0]->{header_fields}->[5]->{field_label}, $field_value, '[Select] field_label field is good' ); |
1315 |
|
1316 |
#POPULATE TABLE |
1317 |
isa_ok( $table->[1]->{text_fields}, 'ARRAY', '$table->[0]->{text_fields} is an ARRAY' ); |
1318 |
is( scalar( @{ $table->[1]->{text_fields} } ), 6, 'There are 6 text_fields' ); |
1319 |
|
1320 |
#test : if (grep {$table_column eq $_} keys %$db_row) |
1321 |
my $link_field = $display_columns->[0]->{_label_number}->{link_field}; |
1322 |
my $field_name = "$table->[0]->{header_fields}->[0]->{field_name}_tbl"; |
1323 |
$field_value = $db_rows->[0]->{_label_number}; |
1324 |
is( $table->[1]->{text_fields}->[0]->{hidden}, 0, '[Label Number] hidden field is good' ); |
1325 |
is( $table->[1]->{text_fields}->[0]->{link_field}, $link_field, '[Label Number] link_field field is good' ); |
1326 |
is( $table->[1]->{text_fields}->[0]->{select_field}, 0, '[Label Number] select_field field is good' ); |
1327 |
is( $table->[1]->{text_fields}->[0]->{field_name}, $field_name, '[Label Number] field_name field is good' ); |
1328 |
is( $table->[1]->{text_fields}->[0]->{field_value}, $field_value, '[Label Number] field_value field is good' ); |
1329 |
|
1330 |
$link_field = $display_columns->[1]->{_summary}->{link_field}; |
1331 |
$field_value = $db_rows->[0]->{_summary}; |
1332 |
$field_name = "$table->[0]->{header_fields}->[1]->{field_name}_tbl"; |
1333 |
is( $table->[1]->{text_fields}->[1]->{hidden}, 0, '[Summary] hidden field is good' ); |
1334 |
is( $table->[1]->{text_fields}->[1]->{link_field}, $link_field, '[Summary] link_field field is good' ); |
1335 |
is( $table->[1]->{text_fields}->[1]->{select_field}, 0, '[Summary] select_field field is good' ); |
1336 |
is( $table->[1]->{text_fields}->[1]->{field_name}, $field_name, '[Summary] field_name field is good' ); |
1337 |
is( $table->[1]->{text_fields}->[1]->{field_value}, $field_value, '[Summary] field_value field is good' ); |
1338 |
|
1339 |
$link_field = $display_columns->[2]->{_item_type}->{link_field}; |
1340 |
$field_name = "$table->[0]->{header_fields}->[2]->{field_name}_tbl"; |
1341 |
$field_value = $db_rows->[0]->{_item_type}; |
1342 |
is( $table->[1]->{text_fields}->[2]->{hidden}, 0, '[Item Type] hidden field is good' ); |
1343 |
is( $table->[1]->{text_fields}->[2]->{link_field}, $link_field, '[Item Type] link_field field is good' ); |
1344 |
is( $table->[1]->{text_fields}->[2]->{select_field}, 0, '[Item Type] select_field field is good' ); |
1345 |
is( $table->[1]->{text_fields}->[2]->{field_name}, $field_name, '[Item Type] field_name field is good' ); |
1346 |
is( $table->[1]->{text_fields}->[2]->{field_value}, $field_value, '[Item Type] field_value field is good' ); |
1347 |
|
1348 |
$link_field = $display_columns->[3]->{_barcode}->{link_field}; |
1349 |
$field_name = "$table->[0]->{header_fields}->[3]->{field_name}_tbl"; |
1350 |
$field_value = $db_rows->[0]->{_barcode}; |
1351 |
is( $table->[1]->{text_fields}->[3]->{hidden}, 0, '[Barcode] hidden field is good' ); |
1352 |
is( $table->[1]->{text_fields}->[3]->{link_field}, $link_field, '[Barcode] link_field field is good' ); |
1353 |
is( $table->[1]->{text_fields}->[3]->{select_field}, 0, '[Barcode] select_field field is good' ); |
1354 |
is( $table->[1]->{text_fields}->[3]->{field_name}, $field_name, '[Barcode] field_name field is good' ); |
1355 |
is( $table->[1]->{text_fields}->[3]->{field_value}, $field_value, '[Barcode] field_value field is good' ); |
1356 |
|
1357 |
#test : elsif ($table_column =~ m/^_((.*)_(.*$))/) |
1358 |
$link_field = $display_columns->[4]->{_template_code}->{link_field}; |
1359 |
$field_name = "$table->[0]->{header_fields}->[4]->{field_name}_tbl"; |
1360 |
is( $table->[1]->{text_fields}->[4]->{hidden}, 0, '[Template Code] hidden field is good' ); |
1361 |
is( $table->[1]->{text_fields}->[4]->{link_field}, $link_field, '[Template Code] link_field field is good' ); |
1362 |
is( $table->[1]->{text_fields}->[4]->{select_field}, 0, '[Template Code] select_field field is good' ); |
1363 |
is( $table->[1]->{text_fields}->[4]->{field_name}, $field_name, '[Template Code] field_name field is good' ); |
1364 |
is( $table->[1]->{text_fields}->[4]->{field_value}, $template_code1, '[Template Code] field_value field is good' ); |
1365 |
|
1366 |
#test : elsif ($table_column eq 'select') |
1367 |
$field_value = $db_rows->[0]->{_label_id}; |
1368 |
is( $table->[1]->{text_fields}->[5]->{hidden}, 0, '[Select] hidden field is good' ); |
1369 |
is( $table->[1]->{text_fields}->[5]->{select_field}, 1, '[Select] select_field field is good' ); |
1370 |
is( $table->[1]->{text_fields}->[5]->{field_name}, 'select', '[Select] field_name field is good' ); |
1371 |
is( $table->[1]->{text_fields}->[5]->{field_value}, $field_value, '[Select] field_value field is good' ); |
1372 |
|
1373 |
# ---------- Testing _SELECT --------------------------- |
1374 |
# Mocking $sth->err and $sth->errstr |
1375 |
{ |
1376 |
my $dbi_st = Test::MockModule->new( 'DBI::st', no_auto => 1 ); |
1377 |
$dbi_st->mock( 'err', sub { return 1; } ); |
1378 |
$dbi_st->mock( 'errstr', sub { return 'something went wrong'; } ); |
1379 |
my $records; |
1380 |
warning_is { $records = C4::Creators::Lib::_SELECT( '*', 'borrowers', "borrowernumber = $borrowernumber1" ) } 'Database returned the following error: something went wrong', |
1381 |
'_SELECT raises warning if something went wrong with the sql request execution'; |
1382 |
|
1383 |
is( $records, 1, '$record return 1' ); |
1384 |
} |
1385 |
|
1386 |
#without $params[2] ------------------- |
1387 |
my $records = C4::Creators::Lib::_SELECT( 'surname, firstname, cardnumber, branchcode, categorycode', 'borrowers' ); |
1388 |
|
1389 |
is( @$records, 3, 'There are 3 borrowers' ); |
1390 |
isa_ok( $records, 'ARRAY', '$records is an ARRAY' ); |
1391 |
|
1392 |
isa_ok( $records->[0], 'HASH', '$records->[0] is a HASH' ); |
1393 |
is( $records->[0]->{surname}, $surname1, 'surname is good' ); |
1394 |
is( $records->[0]->{firstname}, $firstname1, 'firstname is good' ); |
1395 |
is( $records->[0]->{cardnumber}, $cardnumber1, 'cardnumber is good' ); |
1396 |
is( $records->[0]->{branchcode}, $branchcode, 'branchcode is good' ); |
1397 |
is( $records->[0]->{categorycode}, $categorycode, 'categorycode is good' ); |
1398 |
|
1399 |
isa_ok( $records->[1], 'HASH', '$records->[1] is a HASH' ); |
1400 |
is( $records->[1]->{surname}, $surname2, 'surname is good' ); |
1401 |
is( $records->[1]->{firstname}, $firstname2, 'firstname is good' ); |
1402 |
is( $records->[1]->{cardnumber}, $cardnumber2, 'cardnumber is good' ); |
1403 |
is( $records->[1]->{branchcode}, $branchcode, 'branchcode is good' ); |
1404 |
is( $records->[1]->{categorycode}, $categorycode, 'categorycode is good' ); |
1405 |
|
1406 |
isa_ok( $records->[2], 'HASH', '$records->[2] is a HASH' ); |
1407 |
is( $records->[2]->{surname}, $surname3, 'surname is good' ); |
1408 |
is( $records->[2]->{firstname}, $firstname3, 'firstname is good' ); |
1409 |
is( $records->[2]->{cardnumber}, $cardnumber3, 'cardnumber is good' ); |
1410 |
is( $records->[2]->{branchcode}, $branchcode, 'branchcode is good' ); |
1411 |
is( $records->[2]->{categorycode}, $categorycode, 'categorycode is good' ); |
1412 |
|
1413 |
#with $params[2] ---------------------- |
1414 |
$records = C4::Creators::Lib::_SELECT( 'surname, firstname, cardnumber, branchcode, categorycode', 'borrowers', "borrowernumber = $borrowernumber1" ); |
1415 |
|
1416 |
is( @$records, 1, 'There is 1 borrower where borrowernumber = $borrowernumber1' ); |
1417 |
isa_ok( $records, 'ARRAY', '$records is an ARRAY' ); |
1418 |
|
1419 |
isa_ok( $records->[0], 'HASH', '$records->[0] is a HASH' ); |
1420 |
is( $records->[0]->{surname}, $surname1, 'surname is good' ); |
1421 |
is( $records->[0]->{firstname}, $firstname1, 'firstname is good' ); |
1422 |
is( $records->[0]->{cardnumber}, $cardnumber1, 'cardnumber is good' ); |
1423 |
is( $records->[0]->{branchcode}, $branchcode, 'branchcode is good' ); |
1424 |
is( $records->[0]->{categorycode}, $categorycode, 'categorycode is good' ); |
1425 |
|
1426 |
# ---------- Sub ------------------------------------------ |
1427 |
my %preferences; |
1428 |
|
1429 |
sub mock_preference { |
1430 |
my $context = new Test::MockModule('C4::Context'); |
1431 |
my ( $pref, $value ) = @_; |
1432 |
$preferences{$pref} = $value; |
1433 |
$context->mock( |
1434 |
'preference', |
1435 |
sub { |
1436 |
my ( $self, $pref ) = @_; |
1437 |
if ( exists $preferences{$pref} ) { |
1438 |
return $preferences{$pref}; |
1439 |
} else { |
1440 |
my $method = $context->original('preference'); |
1441 |
return $method->( $self, $pref ); |
1442 |
} |
1443 |
} |
1444 |
); |
1445 |
} |
1446 |
|
1447 |
$dbh->rollback; |