@@ -, +, @@ prove t/Ris.t --- C4/Ris.pm | 2 ++ t/Ris.t | 8 ++++---- 2 files changed, 6 insertions(+), 4 deletions(-) --- a/C4/Ris.pm +++ a/C4/Ris.pm @@ -558,6 +558,7 @@ $clean_subtitle ||= q{}; ## be written and designated. The field is free-form and resistant ## to all parsing efforts, so this information is lost on me } + return; } ##******************************************************************** @@ -590,6 +591,7 @@ sub print_stitle { } } } + return; } ##******************************************************************** --- a/t/Ris.t +++ a/t/Ris.t @@ -3,15 +3,15 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; +use t::lib::Mocks; use Test::More tests => 4; BEGIN { - use_ok('C4::Ris'); + use_ok('C4::Ris'); } - +t::lib::Mocks::mock_preference('marcflavour', 'MARC21'); is(C4::Ris::print_typetag(),undef,'test printing typetag'); is(C4::Ris::print_title(),undef, 'test printing title when print_title is nil'); --