From 7a94c50fa6b51e25586d3a02a72cb17987649e7a Mon Sep 17 00:00:00 2001 From: Julian FIOL Date: Thu, 9 Apr 2015 16:52:29 +0200 Subject: [PATCH] Bug 13940 : (QA followup) Add test for ModOAISet Signed-off-by: Tomas Cohen Arazi --- t/db_dependent/OAI/Sets.t | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/t/db_dependent/OAI/Sets.t b/t/db_dependent/OAI/Sets.t index 932e457bae..b1ce6ab86f 100644 --- a/t/db_dependent/OAI/Sets.t +++ b/t/db_dependent/OAI/Sets.t @@ -18,7 +18,7 @@ use Modern::Perl; use C4::Context; -use Test::More tests => 147; +use Test::More tests => 148; use Test::MockModule; use Test::Warn; @@ -201,9 +201,11 @@ my $new_set_without_id = { 'name' => 'nameNoSpec', 'descriptions' => ['descNoSpecNoName'], }; -warning_is { ModOAISet($new_set_without_id) } +my $res; +warning_is { $res = ModOAISet($new_set_without_id) } 'Set ID not defined, can\'t modify the set', 'ModOAISet raises warning if Set ID is not defined'; +ok(!defined($res), 'ModOAISet returns undef if Set ID is not defined'); my $new_set_without_spec_and_name = { 'id' => $set1_id, -- 2.39.5