Bug 16668: Fix t/Ris.t tests

Caused by bug 16442.
Now we need to mock the marcflavour pref

Test plan:
  prove t/Ris.t
should return green

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>

diff --git a/C4/Ris.pm b/C4/Ris.pm
index 2303fc2..0932cbf 100644 (file)
--- a/C4/Ris.pm
+++ b/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;
 }
 
 ##********************************************************************

diff --git a/t/Ris.t b/t/Ris.t
index 0840e2c..c11b1f5 100755 (executable)
--- a/t/Ris.t
+++ b/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');