t/BookShelves.t

   1 #!/usr/bin/perl
   2
   3 #
   4 # This file is a test script for C4::BookShelves.pm
   5 # Author : Antoine Farnault, antoine@koha-fr.org
   6 #
   7
   8 use Test;
   9 use strict;
  10 use C4::Context;
  11
  12 # Making 30 tests.
  13 BEGIN { plan tests => 30 }
  14
  15 # Getting some borrowers from database.
  16 my $dbh = C4::Context->dbh;
  17 my $query = qq/
  18     SELECT borrowernumber
  19     FROM   borrowers
  20     LIMIT  10
  21 /;
  22 my $sth = $dbh->prepare($query);
  23 $sth->execute;
  24 my @borrowers;
  25 while(my $borrower = $sth->fetchrow){
  26     push @borrowers, $borrower;
  27 }
  28
  29 # Getting some itemnumber from database
  30 my $query = qq/
  31     SELECT itemnumber
  32     FROM   items
  33     LIMIT  10
  34 /;
  35 my $sth = $dbh->prepare($query);
  36 $sth->execute;
  37 my @items;
  38 while(my $item = $sth->fetchrow){
  39     push @items, $item;
  40 }
  41
  42 # Getting some biblionumbers from database
  43 my $query = qq/
  44     SELECT biblionumber
  45     FROM   biblio
  46     LIMIT  10
  47 /;
  48 my $sth = $dbh->prepare($query);
  49 $sth->execute;
  50 my @biblionumbers;
  51 while(my $biblionumber = $sth->fetchrow){
  52     push @biblionumbers, $biblionumber;
  53 }
  54
  55 # ---
  56 my $delete_bookshelf = qq/
  57     DELETE FROM  bookshelf WHERE 1
  58 /;
  59 my $delete_bookshelfcontent =qq/
  60     DELETE  FROM  shelfcontents WHERE 1
  61 /;
  62
  63 my $sth = $dbh->prepare($delete_bookshelf);
  64 $sth->execute;
  65 my $sth = $dbh->prepare($delete_bookshelfcontent);
  66 $sth->execute;
  67 # ---
  68
  69 #----------------------------------------------------------------------#
  70 #
  71 #           TESTS START HERE
  72 #
  73 #----------------------------------------------------------------------#
  74
  75 use C4::BookShelves;
  76 my $version = C4::BookShelves->VERSION;
  77 print "\n----------Testing C4::BookShelves version ".$version."--------\n";
  78
  79 ok($version);   # First test: the module is loaded & the version is readable.
  80
  81
  82 #-----------------------TEST AddShelf function------------------------#
  83 # usage : $shelfnumber = &AddShelf( $shelfname, $owner, $category);
  84
  85 # creating 10 good shelves.
  86 my @shelves;
  87 for(my $i=0; $i<10;$i++){
  88      my $ShelfNumber = AddShelf("Shelf_".$i,$borrowers[$i],int(rand(3))+1);
  89      die "test Not ok, remove some shelves before" if ($ShelfNumber == -1);
  90      ok($ShelfNumber);   # Shelf creation successful;
  91      push @shelves, $ShelfNumber if ok($ShelfNumber);
  92 }
  93
  94 ok(10,scalar @shelves); # 10 shelves in @shelves;
  95
  96 # try to create some shelf which already exists.
  97 for(my $i=0;$i<10;$i++){
  98     my $badNumShelf = AddShelf("Shelf_".int(rand(9)),'','');
  99     ok(-1,$badNumShelf);   # AddShelf returns -1 if name already exist.
 100 }
 101
 102 #-----------TEST AddToShelf & &AddToShelfFromBiblio & GetShelfContents &  DelFromShelf functions--------------#
 103 # usage : &AddToShelf($itemnumber, $shelfnumber);
 104 # usage : $itemlist = &GetShelfContents($shelfnumber);
 105 # usage : $itemlist = GetShelfContents($shelfnumber);
 106
 107 for(my $i=0; $i<10;$i++){
 108     my $item = $items[int(rand(9))];
 109     my $shelfnumber = $shelves[int(rand(9))];
 110
 111     my $itemlistBefore = GetShelfContents($shelfnumber);
 112     AddToShelf($item,$shelfnumber);
 113     my $itemlistAfter = GetShelfContents($shelfnumber);
 114     ok(scalar @$itemlistBefore,scalar (@$itemlistAfter - 1));  # the item has been successfuly added.
 115
 116
 117     # same thing with AddToShelfFromBiblio
 118     my $biblionumber = $biblionumbers[int(rand(10))];
 119     &AddToShelfFromBiblio($biblionumber, $shelfnumber);
 120     my $AfterAgain = GetShelfContents($shelfnumber);
 121     ok(scalar @$itemlistAfter, scalar (@$AfterAgain -1));
 122 }
 123
 124 #-----------------------TEST ModShelf & GetShelf functions------------------------#
 125 # usage : ModShelf($shelfnumber, $shelfname, $owner, $category )
 126 # usage : (shelfnumber,shelfname,owner,category) = GetShelf($shelfnumber);
 127
 128 for(my $i=0; $i<10;$i++){
 129     my $rand = int(rand(9));
 130     my $numA = $shelves[$rand];
 131     my $nameA = "NewName_".$rand;
 132     my $ownerA = $borrowers[$rand];
 133     my $categoryA = int(rand(3))+1;
 134
 135     ModShelf($numA,$nameA,$ownerA,$categoryA);
 136     my ($numB,$nameB,$ownerB,$categoryB) = GetShelf($numA);
 137
 138     ok($numA,$numB);
 139     ok($nameA,$nameB);
 140     ok($ownerB,$ownerA);
 141     ok($categoryA,$categoryB);
 142 }
 143
 144 #-----------------------TEST DelShelf & DelFromShelf functions------------------------#
 145 # usage : ($status) = &DelShelf($shelfnumber);
 146 # usage : &DelFromShelf( $itemnumber, $shelfnumber);
 147
 148 for(my $i=0; $i<10;$i++){
 149     my $shelfnumber = $shelves[$i];
 150     my $status = DelShelf($shelfnumber);
 151     if($status){
 152         my $items = GetShelfContents($shelfnumber);
 153         ok($status,scalar @$items);
 154         foreach (@$items){ # delete all the item in this shelf
 155             DelFromShelf($_{'itemnumber'},$shelfnumber);
 156         }
 157         ok(DelShelf($shelfnumber));
 158     }
 159 }