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>

diff --git a/t/db_dependent/Creators/Lib.t b/t/db_dependent/Creators/Lib.t
index 288257e..4a86b5d 100644 (file)
--- a/t/db_dependent/Creators/Lib.t
+++ b/t/db_dependent/Creators/Lib.t
@@ -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();