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

(-)a/t/db_dependent/VirtualShelves.t (-24 / +12 lines)
Lines 5-18 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 => 81;
8
use Test::More tests => 71;
9
use MARC::Record;
9
use MARC::Record;
10
10
11
use C4::Biblio qw( AddBiblio DelBiblio );
11
use C4::Biblio qw( AddBiblio DelBiblio );
12
use C4::Context;
12
use C4::Context;
13
13
14
# Getting some borrowers from database.
14
15
my $dbh = C4::Context->dbh;
15
my $dbh = C4::Context->dbh;
16
$dbh->{RaiseError} = 1;
17
$dbh->{AutoCommit} = 0;
18
19
# Getting some borrowers from database.
16
my $query = q{SELECT borrowernumber FROM borrowers LIMIT 10};
20
my $query = q{SELECT borrowernumber FROM borrowers LIMIT 10};
17
my $borr_ref=$dbh->selectall_arrayref($query);
21
my $borr_ref=$dbh->selectall_arrayref($query);
18
if(@$borr_ref==0) { #no borrowers? should not occur of course
22
if(@$borr_ref==0) { #no borrowers? should not occur of course
Lines 46-52 use_ok('C4::VirtualShelves'); Link Here
46
50
47
# creating shelves (could be <10 when names are not unique)
51
# creating shelves (could be <10 when names are not unique)
48
my @shelves;
52
my @shelves;
49
for(my $i=0; $i<10;$i++) {
53
for my $i(0..9){
50
    my $name= randomname();
54
    my $name= randomname();
51
    my $catg= int(rand(2))+1;
55
    my $catg= int(rand(2))+1;
52
    my $ShelfNumber= AddShelf(
56
    my $ShelfNumber= AddShelf(
Lines 73-79 for(my $i=0; $i<10;$i++) { Link Here
73
}
77
}
74
78
75
# try to create shelves with duplicate names
79
# try to create shelves with duplicate names
76
for(my $i=0;$i<10;$i++){
80
for my $i(0..9){
77
    if($shelves[$i]->{number}<0) {
81
    if($shelves[$i]->{number}<0) {
78
        ok(1, 'skip duplicate test for earlier name clash');
82
        ok(1, 'skip duplicate test for earlier name clash');
79
        next;
83
        next;
Lines 108-114 for(my $i=0;$i<10;$i++){ Link Here
108
# usage : $biblist = GetShelfContents($shelfnumber);
112
# usage : $biblist = GetShelfContents($shelfnumber);
109
113
110
my %used = ();
114
my %used = ();
111
for(my $i=0; $i<10;$i++){
115
for my $i(0..9){
112
    my $bib = $biblionumbers[int(rand(9))];
116
    my $bib = $biblionumbers[int(rand(9))];
113
    my $shelfnumber = $shelves[int(rand(9))]->{number};
117
    my $shelfnumber = $shelves[int(rand(9))]->{number};
114
    if($shelfnumber<0) {
118
    if($shelfnumber<0) {
Lines 145-151 for(my $i=0; $i<10;$i++){ Link Here
145
# usage : ModShelf($shelfnumber, $shelfname, $owner, $category )
149
# usage : ModShelf($shelfnumber, $shelfname, $owner, $category )
146
# usage : (shelfnumber,shelfname,owner,category) = GetShelf($shelfnumber);
150
# usage : (shelfnumber,shelfname,owner,category) = GetShelf($shelfnumber);
147
151
148
for(my $i=0; $i<10;$i++){
152
for my $i(0..9){
149
    my $rand = int(rand(9));
153
    my $rand = int(rand(9));
150
    my $numA = $shelves[$rand]->{number};
154
    my $numA = $shelves[$rand]->{number};
151
    if($numA<0) {
155
    if($numA<0) {
Lines 173-195 for(my $i=0; $i<10;$i++){ Link Here
173
    }
177
    }
174
}
178
}
175
179
176
#-----------------------TEST DelShelf & DelFromShelf functions------------------------#
177
# usage : ($status) = &DelShelf($shelfnumber);
178
179
for(my $i=0; $i<10;$i++){
180
    my $shelfnumber = $shelves[$i]->{number};
181
    if($shelfnumber<0) {
182
        ok(1, 'Skip DelShelf for shelf -1');
183
        next;
184
    }
185
    my $status = DelShelf($shelfnumber);
186
    ok(1 == $status, "deleted shelf $shelfnumber and its contents");
187
}
188
189
#----------------------- CLEANUP ----------------------------------------------#
190
191
DelBiblio($_) for @biblionumbers;
192
193
#----------------------- SOME SUBS --------------------------------------------#
180
#----------------------- SOME SUBS --------------------------------------------#
194
181
195
sub randomname {
182
sub randomname {
Lines 199-201 sub randomname { Link Here
199
    }
186
    }
200
    return $rv;
187
    return $rv;
201
}
188
}
202
- 
189
190
$dbh->rollback;

Return to bug 10499