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

(-)a/t/db_dependent/OAI/Sets.t (-10 / +10 lines)
Lines 18-25 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 => 145;
21
use Test::More tests => 147;
22
use Test::MockModule;
22
use Test::MockModule;
23
use Test::Warn;
23
24
24
25
25
BEGIN {
26
BEGIN {
Lines 88-96 ok (!defined(AddOAISet($set_without_name)), 'AddOAISet without "name" field is u Link Here
88
        'spec' => 'specWrong',
89
        'spec' => 'specWrong',
89
        'name' => 'nameWrong',
90
        'name' => 'nameWrong',
90
    };
91
    };
91
    my $setWrong_id = AddOAISet($setWrong);
92
    my $setWrong_id;
93
    warning_is { $setWrong_id = AddOAISet($setWrong) }
94
                'AddOAISet failed',
95
                'AddOAISet raises warning if there is a problem with SET spec or SET name';
92
96
93
    DelOAISet($setWrong_id);
97
    ok(!defined $setWrong_id, '$setWrong_id is not defined');
94
}
98
}
95
99
96
#Adding a Set without description
100
#Adding a Set without description
Lines 197-204 my $new_set_without_id = { Link Here
197
    'name' => 'nameNoSpec',
201
    'name' => 'nameNoSpec',
198
    'descriptions' => ['descNoSpecNoName'],
202
    'descriptions' => ['descNoSpecNoName'],
199
};
203
};
200
ok (!defined(ModOAISet($new_set_without_id)), 'ModOAISet without "id" field is undef');
204
warning_is { ModOAISet($new_set_without_id) }
201
205
            'Set ID not defined, can\'t modify the set',
206
            'ModOAISet raises warning if Set ID is not defined';
202
207
203
my $new_set_without_spec_and_name =  {
208
my $new_set_without_spec_and_name =  {
204
    'id' => $set1_id,
209
    'id' => $set1_id,
Lines 595-604 my @setsNotEq = CalcOAISetsBiblio($record); Link Here
595
is_deeply(@setsNotEq, $setNotVH_id, 'The $record only belongs to $setNotVH');
600
is_deeply(@setsNotEq, $setNotVH_id, 'The $record only belongs to $setNotVH');
596
601
597
602
598
#
599
600
601
602
603
603
# ---------- Subs --------------------------------
604
# ---------- Subs --------------------------------
604
605
605
- 

Return to bug 13940