Bug 25852: Add tests
Signed-off-by: Kelly McElligott <kelly@bywatersolutions.com> Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de> Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de> Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org> (cherry picked from commite330e4ec22) Signed-off-by: Lucas Gass <lucas@bywatersolutions.com> (cherry picked from commit57e3f2ed7b) Signed-off-by: Aleisha Amohia <aleishaamohia@hotmail.com>
This commit is contained in:
parent
0471bd6843
commit
6f7e48d75f
|
|
@ -18,7 +18,7 @@
|
|||
|
||||
use Modern::Perl;
|
||||
use Graphics::Magick;
|
||||
use Test::More tests => 646;
|
||||
use Test::More tests => 647;
|
||||
use Test::MockModule;
|
||||
use t::lib::Mocks;
|
||||
use t::lib::TestBuilder;
|
||||
|
|
@ -1099,6 +1099,11 @@ is( $label_types->[4]->{name}, 'Barcode', 'name is
|
|||
is( $label_types->[4]->{desc}, 'Only the barcode is printed.', 'desc is good' );
|
||||
is( $label_types->[4]->{selected}, 0, 'selected is good' );
|
||||
|
||||
$label_types->[0]->{selected} = 1;
|
||||
$label_types = get_label_types();
|
||||
is( $label_types->[0]->{selected}, 0, 'get_label_types must returned a new structure (copied)' );
|
||||
|
||||
|
||||
# ---------- Testing get_font_types -----------------------
|
||||
my $font_types = get_font_types();
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue