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