From 8b5b51f1c586c2ba551d7e182e439af326ead59b Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 7 Jun 2016 12:29:33 +0100 Subject: [PATCH] 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 --- C4/Ris.pm | 2 ++ t/Ris.t | 8 ++++---- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/C4/Ris.pm b/C4/Ris.pm index 2303fc2..0932cbf 100644 --- 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 --- 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'); -- 2.8.1