From 622353fafead6004527b5c3d4a615054d3a8e487 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 --- 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 932e457..b1ce6ab 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.3.3