|
Lines 20-26
Link Here
|
| 20 |
use strict; |
20 |
use strict; |
| 21 |
use warnings; |
21 |
use warnings; |
| 22 |
|
22 |
|
| 23 |
use Test::More tests => 2; |
23 |
use Test::More tests => 6; |
| 24 |
|
24 |
|
| 25 |
BEGIN { |
25 |
BEGIN { |
| 26 |
use_ok('C4::Labels::Label'); |
26 |
use_ok('C4::Labels::Label'); |
|
Lines 33-35
my $expected_fields = [
Link Here
|
| 33 |
{ code => 'itemcallnumber', desc => 'itemcallnumber' }, |
33 |
{ code => 'itemcallnumber', desc => 'itemcallnumber' }, |
| 34 |
]; |
34 |
]; |
| 35 |
is_deeply($parsed_fields, $expected_fields, '"callnumber" in label layout alias for "itemcallnumber" per bug 5653'); |
35 |
is_deeply($parsed_fields, $expected_fields, '"callnumber" in label layout alias for "itemcallnumber" per bug 5653'); |
| 36 |
- |
36 |
|
|
|
37 |
is(C4::Labels::Label::_check_params(),"0",'test checking parameters'); |
| 38 |
|
| 39 |
ok(C4::Labels::Label::_guide_box(), 'test guide box with nothing entered'); |
| 40 |
|
| 41 |
ok(C4::Labels::Label::_get_text_fields(), 'test getting textx fields'); |
| 42 |
|
| 43 |
is(C4::Labels::Label::_split_lccn(),"0", 'test when _split_lccn is null'); |
| 44 |
|
| 45 |
|