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

(-)a/t/db_dependent/VirtualShelves.t (-2 / +38 lines)
Lines 5-11 Link Here
5
# Larger modifications by Jonathan Druart and Marcel de Rooy
5
# Larger modifications by Jonathan Druart and Marcel de Rooy
6
6
7
use Modern::Perl;
7
use Modern::Perl;
8
use Test::More tests => 71;
8
use Test::More tests => 83;
9
use MARC::Record;
9
use MARC::Record;
10
10
11
use C4::Biblio qw( AddBiblio DelBiblio );
11
use C4::Biblio qw( AddBiblio DelBiblio );
Lines 177-182 for my $i(0..9){ Link Here
177
    }
177
    }
178
}
178
}
179
179
180
#----------------------- TEST AddShare ----------------------------------------#
181
182
#first count the number of shares in the table; keep in mind that AddShare may
183
#delete some expired records while housekeeping
184
my $sql_sharecount="select count(*) from virtualshelfshares where DATEDIFF(sharedate, NOW())>0";
185
my $cnt1=$dbh->selectrow_array($sql_sharecount);
186
187
#try to add a share without shelfnumber: should fail
188
AddShare(0, 'abcdefghij');
189
my $cnt2=$dbh->selectrow_array($sql_sharecount);
190
ok($cnt1 == $cnt2, "Did not add an invalid share record");
191
192
#add another share: should be okay
193
#AddShare assumes that you tested if category==private (so we could actually
194
#be doing something illegal here :)
195
my $n=$shelves[0]->{number};
196
if($n<0) {
197
    ok(1, 'Skip AddShare for shelf -1');
198
}
199
else {
200
    AddShare($n, 'abcdefghij');
201
    my $cnt3=$dbh->selectrow_array($sql_sharecount);
202
    ok(1+$cnt2 == $cnt3, "Added one new share record with invitekey");
203
}
204
205
#----------------TEST DelShelf & DelFromShelf functions------------------------#
206
207
for(my $i=0; $i<10;$i++){
208
    my $shelfnumber = $shelves[$i]->{number};
209
    if($shelfnumber<0) {
210
        ok(1, 'Skip DelShelf for shelf -1');
211
        next;
212
    }
213
    my $status = DelShelf($shelfnumber);
214
    ok(1 == $status, "deleted shelf $shelfnumber and its contents");
215
}
216
180
#----------------------- SOME SUBS --------------------------------------------#
217
#----------------------- SOME SUBS --------------------------------------------#
181
218
182
sub randomname {
219
sub randomname {
183
- 

Return to bug 10441