Lines 20-26
Link Here
|
20 |
|
20 |
|
21 |
use Modern::Perl; |
21 |
use Modern::Perl; |
22 |
|
22 |
|
23 |
use Test::More tests => 4; |
23 |
use Test::More tests => 6; |
24 |
use t::lib::TestBuilder; |
24 |
use t::lib::TestBuilder; |
25 |
use t::lib::Mocks; |
25 |
use t::lib::Mocks; |
26 |
|
26 |
|
Lines 99-104
my $dummy_template_values = {
Link Here
|
99 |
row_gap => 0, |
99 |
row_gap => 0, |
100 |
units => 'INCH', |
100 |
units => 'INCH', |
101 |
template_stat => 1, |
101 |
template_stat => 1, |
|
|
102 |
barcode_width => 0.8, |
103 |
barcode_height => 0.01 |
102 |
}; |
104 |
}; |
103 |
|
105 |
|
104 |
my $label_info = { |
106 |
my $label_info = { |
Lines 122-130
my $label_info = {
Link Here
|
122 |
label_width => $dummy_template_values->{'label_width'}, |
124 |
label_width => $dummy_template_values->{'label_width'}, |
123 |
left_text_margin => $dummy_template_values->{'left_text_margin'} |
125 |
left_text_margin => $dummy_template_values->{'left_text_margin'} |
124 |
), |
126 |
), |
|
|
127 |
scale_width => $dummy_template_values->{barcode_width}, |
128 |
scale_height => $dummy_template_values->{barcode_height}, |
125 |
}; |
129 |
}; |
126 |
|
130 |
|
127 |
my $format_string = '100a 245a'; |
131 |
my $format_string = '100a 245a'; |
|
|
132 |
my $barcode_width = $label_info->{scale_width} * $label_info->{width}; |
133 |
my $barcode_height = $label_info->{scale_height} * $label_info->{height}; |
128 |
my $label = C4::Labels::Label->new(%$label_info, format_string => $format_string); |
134 |
my $label = C4::Labels::Label->new(%$label_info, format_string => $format_string); |
129 |
my $label_text = $label->create_label(); |
135 |
my $label_text = $label->create_label(); |
130 |
ok( defined $label_text, 'Label Text Value defined.' ); |
136 |
ok( defined $label_text, 'Label Text Value defined.' ); |
Lines 142-147
is_deeply(
Link Here
|
142 |
sprintf( "%s %s", $item->enumchron, $item->copynumber ) |
148 |
sprintf( "%s %s", $item->enumchron, $item->copynumber ) |
143 |
] |
149 |
] |
144 |
); |
150 |
); |
|
|
151 |
is($barcode_width, '2.104',); |
152 |
is($barcode_height, '0.01',); |
145 |
|
153 |
|
146 |
$schema->storage->txn_rollback(); |
154 |
$schema->storage->txn_rollback(); |
147 |
|
155 |
|
148 |
- |
|
|