|
Lines 6-19
Link Here
|
| 6 |
# |
6 |
# |
| 7 |
|
7 |
|
| 8 |
use Modern::Perl; |
8 |
use Modern::Perl; |
| 9 |
use Test::More tests => 82; |
9 |
use Test::More tests => 72; |
| 10 |
use MARC::Record; |
10 |
use MARC::Record; |
| 11 |
|
11 |
|
| 12 |
use C4::Biblio qw( AddBiblio DelBiblio ); |
12 |
use C4::Biblio qw( AddBiblio DelBiblio ); |
| 13 |
use C4::Context; |
13 |
use C4::Context; |
| 14 |
|
14 |
|
| 15 |
# Getting some borrowers from database. |
15 |
# Start transaction |
| 16 |
my $dbh = C4::Context->dbh; |
16 |
my $dbh = C4::Context->dbh; |
|
|
17 |
$dbh->{RaiseError} = 1; |
| 18 |
$dbh->{AutoCommit} = 0; |
| 19 |
|
| 20 |
# Getting some borrowers from database. |
| 17 |
my $query = q{ |
21 |
my $query = q{ |
| 18 |
SELECT borrowernumber |
22 |
SELECT borrowernumber |
| 19 |
FROM borrowers |
23 |
FROM borrowers |
|
Lines 34-40
foreach(0..9) {
Link Here
|
| 34 |
push @biblionumbers, $biblionumber; |
38 |
push @biblionumbers, $biblionumber; |
| 35 |
} |
39 |
} |
| 36 |
|
40 |
|
| 37 |
# FIXME Why are you deleting my shelves? See bug 10386. |
|
|
| 38 |
my $delete_virtualshelf = q{ |
41 |
my $delete_virtualshelf = q{ |
| 39 |
DELETE FROM virtualshelves WHERE 1 |
42 |
DELETE FROM virtualshelves WHERE 1 |
| 40 |
}; |
43 |
}; |
|
Lines 42-51
my $delete_virtualshelfcontent = q{
Link Here
|
| 42 |
DELETE FROM virtualshelfcontents WHERE 1 |
45 |
DELETE FROM virtualshelfcontents WHERE 1 |
| 43 |
}; |
46 |
}; |
| 44 |
|
47 |
|
| 45 |
$sth = $dbh->prepare($delete_virtualshelf); |
48 |
$dbh->do($delete_virtualshelf); |
| 46 |
$sth->execute; |
49 |
$dbh->do($delete_virtualshelfcontent); |
| 47 |
$sth = $dbh->prepare($delete_virtualshelfcontent); |
|
|
| 48 |
$sth->execute; |
| 49 |
# --- |
50 |
# --- |
| 50 |
|
51 |
|
| 51 |
#----------------------------------------------------------------------# |
52 |
#----------------------------------------------------------------------# |
|
Lines 61-67
use_ok('C4::VirtualShelves');
Link Here
|
| 61 |
|
62 |
|
| 62 |
# creating 10 good shelves. |
63 |
# creating 10 good shelves. |
| 63 |
my @shelves; |
64 |
my @shelves; |
| 64 |
for(my $i=0; $i<10;$i++){ |
65 |
for my $i(0..9){ |
| 65 |
my $ShelfNumber = AddShelf( |
66 |
my $ShelfNumber = AddShelf( |
| 66 |
{shelfname=>"Shelf_".$i, category=>int(rand(2))+1 }, $borrowers[$i] ); |
67 |
{shelfname=>"Shelf_".$i, category=>int(rand(2))+1 }, $borrowers[$i] ); |
| 67 |
die "test Not ok, remove some shelves before" if ($ShelfNumber == -1); |
68 |
die "test Not ok, remove some shelves before" if ($ShelfNumber == -1); |
|
Lines 72-78
for(my $i=0; $i<10;$i++){
Link Here
|
| 72 |
ok(10 == scalar @shelves, 'created 10 lists'); # 10 shelves in @shelves; |
73 |
ok(10 == scalar @shelves, 'created 10 lists'); # 10 shelves in @shelves; |
| 73 |
|
74 |
|
| 74 |
# try to create some shelf which already exists. |
75 |
# try to create some shelf which already exists. |
| 75 |
for(my $i=0;$i<10;$i++){ |
76 |
for my $i(0..9){ |
| 76 |
my @shlf=GetShelf($shelves[$i]); |
77 |
my @shlf=GetShelf($shelves[$i]); |
| 77 |
|
78 |
|
| 78 |
# FIXME This test still needs some attention |
79 |
# FIXME This test still needs some attention |
|
Lines 95-101
for(my $i=0;$i<10;$i++){
Link Here
|
| 95 |
# usage : $biblist = GetShelfContents($shelfnumber); |
96 |
# usage : $biblist = GetShelfContents($shelfnumber); |
| 96 |
|
97 |
|
| 97 |
my %used = (); |
98 |
my %used = (); |
| 98 |
for(my $i=0; $i<10;$i++){ |
99 |
for my $i(0..9){ |
| 99 |
my $bib = $biblionumbers[int(rand(9))]; |
100 |
my $bib = $biblionumbers[int(rand(9))]; |
| 100 |
my $shelfnumber = $shelves[int(rand(9))]; |
101 |
my $shelfnumber = $shelves[int(rand(9))]; |
| 101 |
|
102 |
|
|
Lines 125-132
for(my $i=0; $i<10;$i++){
Link Here
|
| 125 |
#-----------------------TEST ModShelf & GetShelf functions------------------------# |
126 |
#-----------------------TEST ModShelf & GetShelf functions------------------------# |
| 126 |
# usage : ModShelf($shelfnumber, $shelfname, $owner, $category ) |
127 |
# usage : ModShelf($shelfnumber, $shelfname, $owner, $category ) |
| 127 |
# usage : (shelfnumber,shelfname,owner,category) = GetShelf($shelfnumber); |
128 |
# usage : (shelfnumber,shelfname,owner,category) = GetShelf($shelfnumber); |
| 128 |
|
129 |
for my $i(0..9){ |
| 129 |
for(my $i=0; $i<10;$i++){ |
|
|
| 130 |
my $rand = int(rand(9)); |
130 |
my $rand = int(rand(9)); |
| 131 |
my $numA = $shelves[$rand]; |
131 |
my $numA = $shelves[$rand]; |
| 132 |
my $shelf = { shelfname => "NewName_".$rand, |
132 |
my $shelf = { shelfname => "NewName_".$rand, |
|
Lines 140-153
for(my $i=0; $i<10;$i++){
Link Here
|
| 140 |
ok($shelf->{category} eq $categoryB, '... and category change took'); |
140 |
ok($shelf->{category} eq $categoryB, '... and category change took'); |
| 141 |
} |
141 |
} |
| 142 |
|
142 |
|
| 143 |
#-----------------------TEST DelShelf & DelFromShelf functions------------------------# |
143 |
$dbh->rollback; |
| 144 |
# usage : ($status) = &DelShelf($shelfnumber); |
|
|
| 145 |
|
| 146 |
for(my $i=0; $i<10;$i++){ |
| 147 |
my $shelfnumber = $shelves[$i]; |
| 148 |
my $status = DelShelf($shelfnumber); |
| 149 |
ok(1 == $status, "deleted shelf $shelfnumber and its contents"); |
| 150 |
} |
| 151 |
|
| 152 |
#----------------------- CLEANUP ----------------------------------------------# |
| 153 |
DelBiblio($_) for @biblionumbers; |
| 154 |
- |
|
|