Lines 18-24
Link Here
|
18 |
|
18 |
|
19 |
use Modern::Perl; |
19 |
use Modern::Perl; |
20 |
use Graphics::Magick; |
20 |
use Graphics::Magick; |
21 |
use Test::More tests => 646; |
21 |
use Test::More tests => 647; |
22 |
use Test::MockModule; |
22 |
use Test::MockModule; |
23 |
use t::lib::Mocks; |
23 |
use t::lib::Mocks; |
24 |
use t::lib::TestBuilder; |
24 |
use t::lib::TestBuilder; |
Lines 1099-1104
is( $label_types->[4]->{name}, 'Barcode', 'name is
Link Here
|
1099 |
is( $label_types->[4]->{desc}, 'Only the barcode is printed.', 'desc is good' ); |
1099 |
is( $label_types->[4]->{desc}, 'Only the barcode is printed.', 'desc is good' ); |
1100 |
is( $label_types->[4]->{selected}, 0, 'selected is good' ); |
1100 |
is( $label_types->[4]->{selected}, 0, 'selected is good' ); |
1101 |
|
1101 |
|
|
|
1102 |
$label_types->[0]->{selected} = 1; |
1103 |
$label_types = get_label_types(); |
1104 |
is( $label_types->[0]->{selected}, 0, 'get_label_types must returned a new structure (copied)' ); |
1105 |
|
1106 |
|
1102 |
# ---------- Testing get_font_types ----------------------- |
1107 |
# ---------- Testing get_font_types ----------------------- |
1103 |
my $font_types = get_font_types(); |
1108 |
my $font_types = get_font_types(); |
1104 |
|
1109 |
|
1105 |
- |
|
|