View | Details | Raw Unified | Return to bug 13940
Collapse All | Expand All

(-)a/t/db_dependent/OAI/Sets.t (-3 / +4 lines)
Lines 18-24 Link Here
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
use C4::Context;
20
use C4::Context;
21
use Test::More tests => 147;
21
use Test::More tests => 148;
22
use Test::MockModule;
22
use Test::MockModule;
23
use Test::Warn;
23
use Test::Warn;
24
24
Lines 201-209 my $new_set_without_id = { Link Here
201
    'name' => 'nameNoSpec',
201
    'name' => 'nameNoSpec',
202
    'descriptions' => ['descNoSpecNoName'],
202
    'descriptions' => ['descNoSpecNoName'],
203
};
203
};
204
warning_is { ModOAISet($new_set_without_id) }
204
my $res;
205
warning_is { $res = ModOAISet($new_set_without_id) }
205
            'Set ID not defined, can\'t modify the set',
206
            'Set ID not defined, can\'t modify the set',
206
            'ModOAISet raises warning if Set ID is not defined';
207
            'ModOAISet raises warning if Set ID is not defined';
208
ok(!defined($res), 'ModOAISet returns undef if Set ID is not defined');
207
209
208
my $new_set_without_spec_and_name =  {
210
my $new_set_without_spec_and_name =  {
209
    'id' => $set1_id,
211
    'id' => $set1_id,
210
- 

Return to bug 13940