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 |
- |
|
|