t/db_dependent/VirtualShelves.t

   1 #!/usr/bin/perl
   2
   3 # This file is a test script for C4::VirtualShelves.pm
   4 # Author : Antoine Farnault, antoine@koha-fr.org
   5 # Larger modifications by Jonathan Druart and Marcel de Rooy
   6
   7 use Modern::Perl;
   8 use Test::More tests => 71;
   9 use MARC::Record;
  10
  11 use C4::Biblio qw( AddBiblio DelBiblio );
  12 use C4::Context;
  13
  14
  15 my $dbh = C4::Context->dbh;
  16 $dbh->{RaiseError} = 1;
  17 $dbh->{AutoCommit} = 0;
  18
  19 # Getting some borrowers from database.
  20 my $query = q{SELECT borrowernumber FROM borrowers LIMIT 10};
  21 my $borr_ref=$dbh->selectall_arrayref($query);
  22 if(@$borr_ref==0) { #no borrowers? should not occur of course
  23     $borr_ref->[0][0]=undef;
  24         #but even then, we can run this robust test :)
  25 }
  26 my @borrowers;
  27 foreach(1..10) {
  28     my $t= $_> @$borr_ref ? int(rand()*@$borr_ref): $_-1; #repeat if not enough
  29     push @borrowers, $borr_ref->[$t][0];
  30 }
  31
  32 # Creating some biblios
  33 my @biblionumbers;
  34 foreach(0..9) {
  35     my ($biblionumber)= AddBiblio(MARC::Record->new, '');
  36         #item number ignored
  37     push @biblionumbers, $biblionumber;
  38 }
  39
  40 #----------------------------------------------------------------------#
  41 #
  42 #           TESTS START HERE
  43 #
  44 #----------------------------------------------------------------------#
  45
  46 use_ok('C4::VirtualShelves');
  47
  48 #-----------------------TEST AddShelf function------------------------#
  49 # usage : $shelfnumber = &AddShelf( $shelfname, $owner, $category);
  50
  51 # creating shelves (could be <10 when names are not unique)
  52 my @shelves;
  53 for my $i(0..9){
  54     my $name= randomname();
  55     my $catg= int(rand(2))+1;
  56     my $ShelfNumber= AddShelf(
  57         {
  58             shelfname => $name,
  59             category  => $catg,
  60         },
  61         $borrowers[$i]);
  62
  63     if($ShelfNumber>-1) {
  64         ok($ShelfNumber > -1, "created shelf");   # Shelf creation successful;
  65     }
  66     else {
  67         my $t= C4::VirtualShelves::_CheckShelfName(
  68             $name, $catg, $borrowers[$i], 0);
  69         ok($t==0, "Name clash expected on shelf creation");
  70     }
  71     push @shelves, {
  72         number => $ShelfNumber,
  73         name   => $name,
  74         catg   => $catg,
  75         owner  => $borrowers[$i],
  76     }; #also push the errors
  77 }
  78
  79 # try to create shelves with duplicate names
  80 for my $i(0..9){
  81     if($shelves[$i]->{number}<0) {
  82         ok(1, 'skip duplicate test for earlier name clash');
  83         next;
  84     }
  85     my @shlf=GetShelf($shelves[$i]->{number}); #number, name, owner, catg, ...
  86
  87     # A shelf name is not per se unique!
  88     if( $shlf[3]==2 ) { #public list: try to create with same name
  89         my $badNumShelf= AddShelf( {
  90             shelfname=> $shelves[$i]->{name},
  91             category => 2
  92         }, $borrowers[$i]);
  93         ok(-1==$badNumShelf, 'do not create public lists with duplicate names');
  94             #AddShelf returns -1 if name already exist.
  95         DelShelf($badNumShelf) if $badNumShelf>-1; #delete if went wrong..
  96     }
  97     else { #private list, try to add another one for SAME user (owner)
  98         my $badNumShelf= defined($shlf[2])? AddShelf(
  99             {
 100                 shelfname=> $shelves[$i]->{name},
 101                 category => 1,
 102             },
 103             $shlf[2]): -1;
 104         ok(-1==$badNumShelf, 'do not create private lists with duplicate name for same user');
 105         DelShelf($badNumShelf) if $badNumShelf>-1; #delete if went wrong..
 106     }
 107 }
 108
 109 #-----------TEST AddToShelf & GetShelfContents &  DelFromShelf functions--------------#
 110 # usage : &AddToShelf($biblionumber, $shelfnumber);
 111 # usage : $biblist = &GetShelfContents($shelfnumber);
 112 # usage : $biblist = GetShelfContents($shelfnumber);
 113
 114 my %used = ();
 115 for my $i(0..9){
 116     my $bib = $biblionumbers[int(rand(9))];
 117     my $shelfnumber = $shelves[int(rand(9))]->{number};
 118     if($shelfnumber<0) {
 119         ok(1, 'skip add to list-test for shelf -1');
 120         ok(1, 'skip counting list entries for shelf -1');
 121         next;
 122     }
 123
 124     my $key = "$bib\t$shelfnumber";
 125     my $should_fail = exists($used{$key}) ? 1 : 0;
 126     #FIXME We assume here that we have permission to add..
 127     #The different permissions could be tested too.
 128
 129     my ($biblistBefore,$countbefore) = GetShelfContents($shelfnumber);
 130     my $status = AddToShelf($bib,$shelfnumber,$borrowers[$i]);
 131     my ($biblistAfter,$countafter) = GetShelfContents($shelfnumber);
 132
 133     if ($should_fail) {
 134         ok(!defined($status), 'failed to add to list when we should');
 135     } else {
 136         ok(defined($status), 'added to list when we should');
 137     }
 138
 139     if (defined $status) {
 140         ok($countbefore == $countafter - 1, 'added bib to list');  # the bib has been successfuly added.
 141     } else {
 142         ok($countbefore == $countafter, 'did not add duplicate bib to list');
 143     }
 144
 145     $used{$key}++;
 146 }
 147
 148 #-----------------------TEST ModShelf & GetShelf functions------------------------#
 149 # usage : ModShelf($shelfnumber, $shelfname, $owner, $category )
 150 # usage : (shelfnumber,shelfname,owner,category) = GetShelf($shelfnumber);
 151
 152 for my $i(0..9){
 153     my $rand = int(rand(9));
 154     my $numA = $shelves[$rand]->{number};
 155     if($numA<0) {
 156         ok(1, 'Skip ModShelf test for shelf -1');
 157         ok(1, 'Skip ModShelf test for shelf -1');
 158         ok(1, 'Skip ModShelf test for shelf -1');
 159         next;
 160     }
 161     my $newname= randomname();
 162     my $shelf = {
 163         shelfname => $newname,
 164         category =>  3-$shelves[$rand]->{catg}, # tric: 1->2 and 2->1
 165     };
 166     #check name change (with category change)
 167     if(C4::VirtualShelves::_CheckShelfName($newname,$shelf->{category},
 168             $shelves[$rand]->{owner}, $numA)) {
 169         ModShelf($numA,$shelf);
 170         my ($numB,$nameB,$ownerB,$categoryB) = GetShelf($numA);
 171         ok($numA == $numB, 'modified shelf');
 172         ok($shelf->{shelfname} eq $nameB,     '... and name change took');
 173         ok($shelf->{category}  eq $categoryB, '... and category change took');
 174     }
 175     else {
 176         ok(1, "No ModShelf for $newname") for 1..3;
 177     }
 178 }
 179
 180 #----------------------- SOME SUBS --------------------------------------------#
 181
 182 sub randomname {
 183     my $rv='';
 184     for(0..19) {
 185         $rv.= ('a'..'z','A'..'Z',0..9) [int(rand()*62)];
 186     }
 187     return $rv;
 188 }
 189
 190 $dbh->rollback;