t/db_dependent/Branch.t

   1 #!/usr/bin/perl
   2
   3 # Copyright 2013 Equinox Software, Inc.
   4 #
   5 # This file is part of Koha.
   6 #
   7 # Koha is free software; you can redistribute it and/or modify it under the
   8 # terms of the GNU General Public License as published by the Free Software
   9 # Foundation; either version 3 of the License, or (at your option) any later
  10 # version.
  11 #
  12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
  15 #
  16 # You should have received a copy of the GNU General Public License along
  17 # with Koha; if not, see <http://www.gnu.org/licenses>.
  18
  19 use Modern::Perl;
  20
  21 use C4::Context;
  22 use Data::Dumper;
  23
  24 use Test::More tests => 23;
  25
  26 use C4::Branch;
  27 use Koha::Libraries;
  28 use Koha::LibraryCategories;
  29
  30 BEGIN {
  31     use FindBin;
  32     use lib $FindBin::Bin;
  33     use_ok('C4::Branch');
  34 }
  35 can_ok(
  36     'C4::Branch', qw(
  37       GetBranchName
  38       GetBranch
  39       GetBranches
  40       GetBranchesLoop
  41       GetBranchDetail
  42       ModBranch
  43       GetBranchInfo
  44       GetBranchesInCategory
  45       mybranch
  46       )
  47 );
  48
  49
  50 # Start transaction
  51 my $dbh = C4::Context->dbh;
  52 $dbh->{AutoCommit} = 0;
  53 $dbh->{RaiseError} = 1;
  54
  55 # clear the slate
  56 $dbh->do('DELETE FROM branchcategories');
  57
  58 # Start test
  59
  60 my $count = Koha::Libraries->search->count;
  61 like( $count, '/^\d+$/', "the count is a number" );
  62
  63 #add 2 branches
  64 my $b1 = {
  65     add            => 1,
  66     branchcode     => 'BRA',
  67     branchname     => 'BranchA',
  68     branchaddress1 => 'adr1A',
  69     branchaddress2 => 'adr2A',
  70     branchaddress3 => 'adr3A',
  71     branchzip      => 'zipA',
  72     branchcity     => 'cityA',
  73     branchstate    => 'stateA',
  74     branchcountry  => 'countryA',
  75     branchphone    => 'phoneA',
  76     branchfax      => 'faxA',
  77     branchemail    => 'emailA',
  78     branchreplyto  => 'emailreply',
  79     branchreturnpath => 'branchreturn',
  80     branchurl      => 'urlA',
  81     branchip       => 'ipA',
  82     branchprinter  => undef,
  83     branchnotes    => 'noteA',
  84     opac_info      => 'opacA'
  85 };
  86 my $b2 = {
  87     branchcode     => 'BRB',
  88     branchname     => 'BranchB',
  89     branchaddress1 => 'adr1B',
  90     branchaddress2 => 'adr2B',
  91     branchaddress3 => 'adr3B',
  92     branchzip      => 'zipB',
  93     branchcity     => 'cityB',
  94     branchstate    => 'stateB',
  95     branchcountry  => 'countryB',
  96     branchphone    => 'phoneB',
  97     branchfax      => 'faxB',
  98     branchemail    => 'emailB',
  99     branchreplyto  => 'emailreply',
 100     branchreturnpath => 'branchreturn',
 101     branchurl      => 'urlB',
 102     branchip       => 'ipB',
 103     branchprinter  => undef,
 104     branchnotes    => 'noteB',
 105     opac_info      => 'opacB',
 106 };
 107 ModBranch($b1);
 108 is( ModBranch($b2), undef, 'the field add is missing' );
 109
 110 $b2->{add} = 1;
 111 ModBranch($b2);
 112 is( Koha::Libraries->search->count, $count + 2, "two branches added" );
 113
 114 is( Koha::Libraries->find( $b2->{branchcode} )->delete, 1,          "One row affected" );
 115 is( Koha::Libraries->search->count,             $count + 1, "branch BRB deleted" );
 116
 117 #Test GetBranchName
 118 is( GetBranchName( $b1->{branchcode} ),
 119     $b1->{branchname}, "GetBranchName returns the right name" );
 120
 121 #Test GetBranchDetail
 122 my $branchdetail = GetBranchDetail( $b1->{branchcode} );
 123 $branchdetail->{add} = 1;
 124 $b1->{issuing}       = undef;    # Not used in DB
 125 is_deeply( $branchdetail, $b1, 'branchdetail is right' );
 126
 127 #Test Getbranches
 128 my $branches = GetBranches();
 129 is( scalar( keys %$branches ),
 130     Koha::Libraries->search->count, "GetBranches returns the right number of branches" );
 131
 132 #Test ModBranch
 133
 134 $b1 = {
 135     branchcode     => 'BRA',
 136     branchname     => 'BranchA modified',
 137     branchaddress1 => 'adr1A modified',
 138     branchaddress2 => 'adr2A modified',
 139     branchaddress3 => 'adr3A modified',
 140     branchzip      => 'zipA modified',
 141     branchcity     => 'cityA modified',
 142     branchstate    => 'stateA modified',
 143     branchcountry  => 'countryA modified',
 144     branchphone    => 'phoneA modified',
 145     branchfax      => 'faxA modified',
 146     branchemail    => 'emailA modified',
 147     branchreplyto  => 'emailreply modified',
 148     branchreturnpath => 'branchreturn modified',
 149     branchurl      => 'urlA modified',
 150     branchip       => 'ipA modified',
 151     branchprinter  => undef,
 152     branchnotes    => 'notesA modified',
 153     opac_info      => 'opacA modified'
 154 };
 155
 156 ModBranch($b1);
 157 is( Koha::Libraries->search->count, $count + 1,
 158     "A branch has been modified, no new branch added" );
 159 $branchdetail = GetBranchDetail( $b1->{branchcode} );
 160 $b1->{issuing} = undef;
 161 is_deeply( $branchdetail, $b1 , "GetBranchDetail gives the details of BRA");
 162
 163 #Test categories
 164 my $count_cat  = Koha::LibraryCategories->search->count;
 165
 166 my $cat1 = {
 167     categorycode     => 'CAT1',
 168     categoryname     => 'catname1',
 169     codedescription  => 'catdesc1',
 170     categorytype     => 'cattype1',
 171     show_in_pulldown => 1
 172 };
 173 my $cat2 = {
 174     categorycode     => 'CAT2',
 175     categoryname     => 'catname2',
 176     categorytype     => 'catype2',
 177     codedescription  => 'catdesc2',
 178     show_in_pulldown => 1
 179 };
 180
 181 my %new_category = (
 182     categorycode     => 'LIBCATCODE',
 183     categoryname     => 'library category name',
 184     codedescription  => 'library category code description',
 185     categorytype     => 'searchdomain',
 186     show_in_pulldown => 1,
 187 );
 188
 189 Koha::LibraryCategory->new(\%new_category)->store;
 190 Koha::LibraryCategory->new($cat1)->store;
 191 Koha::LibraryCategory->new($cat2)->store;
 192
 193 my $categories = Koha::LibraryCategories->search;
 194 is( $categories->count, $count_cat + 3, "Two categories added" );
 195
 196 my $del = Koha::LibraryCategories->find( $cat2->{categorycode} )->delete;
 197 is( $del, 1, 'One row affected' );
 198
 199 is( Koha::LibraryCategories->search->count, $count_cat + 2, "Category CAT 2 deleted" );
 200
 201 $b2->{CAT1} = 1;
 202 ModBranch($b2);
 203 is( Koha::Libraries->search->count, $count + 2, 'BRB added' );
 204
 205 #Test GetBranchInfo
 206 my $b1info = GetBranchInfo( $b1->{branchcode} );
 207 $b1->{categories} = [];
 208 is_deeply( @$b1info[0], $b1, 'BRA has no categories' );
 209
 210 my $b2info = GetBranchInfo( $b2->{branchcode} );
 211 my @cat    = ( $cat1->{categorycode} );
 212 delete $b2->{add};
 213 delete $b2->{CAT1};
 214 $b2->{issuing}    = undef;
 215 $b2->{categories} = \@cat;
 216 is_deeply( @$b2info[0], $b2, 'BRB has the category CAT1' );
 217
 218 Koha::LibraryCategory->new($cat2)->store;
 219 is( Koha::LibraryCategories->search->count, $count_cat + 3, "Two categories added" );
 220 $b2 = {
 221     branchcode     => 'BRB',
 222     branchname     => 'BranchB',
 223     branchaddress1 => 'adr1B',
 224     branchaddress2 => 'adr2B',
 225     branchaddress3 => 'adr3B',
 226     branchzip      => 'zipB',
 227     branchcity     => 'cityB',
 228     branchstate    => 'stateB',
 229     branchcountry  => 'countryB',
 230     branchphone    => 'phoneB',
 231     branchfax      => 'faxB',
 232     branchemail    => 'emailB',
 233     branchreplyto  => 'emailreply',
 234     branchreturnpath => 'branchreturn',
 235     branchurl      => 'urlB',
 236     branchip       => 'ipB',
 237     branchprinter  => undef,
 238     branchnotes    => 'noteB',
 239     opac_info      => 'opacB',
 240     CAT1           => 1,
 241     CAT2           => 1
 242 };
 243 ModBranch($b2);
 244 $b2info = GetBranchInfo( $b2->{branchcode} );
 245 push( @cat, $cat2->{categorycode} );
 246 delete $b2->{CAT1};
 247 delete $b2->{CAT2};
 248 $b2->{issuing}    = undef;
 249 $b2->{categories} = \@cat;
 250 is_deeply( @$b2info[0], $b2, 'BRB has the category CAT1 and CAT2' );
 251
 252 #Test GetBranchesInCategory
 253 my $brCat1 = GetBranchesInCategory( $cat1->{categorycode} );
 254 my @b      = ( $b2->{branchcode} );
 255 is_deeply( $brCat1, \@b, 'CAT1 has branch BRB' );
 256
 257 my $b3 = {
 258     add            => 1,
 259     branchcode     => 'BRC',
 260     branchname     => 'BranchC',
 261     branchaddress1 => 'adr1C',
 262     branchaddress2 => 'adr2C',
 263     branchaddress3 => 'adr3C',
 264     branchzip      => 'zipC',
 265     branchcity     => 'cityC',
 266     branchstate    => 'stateC',
 267     branchcountry  => 'countryC',
 268     branchphone    => 'phoneC',
 269     branchfax      => 'faxC',
 270     branchemail    => 'emailC',
 271     branchurl      => 'urlC',
 272     branchip       => 'ipC',
 273     branchprinter  => undef,
 274     branchnotes    => 'noteC',
 275     opac_info      => 'opacC',
 276     CAT1           => 1,
 277     CAT2           => 1
 278 };
 279 ModBranch($b3);
 280 $brCat1 = GetBranchesInCategory( $cat1->{categorycode} );
 281 push( @b, $b3->{branchcode} );
 282 is_deeply( $brCat1, \@b, 'CAT1 has branch BRB and BRC' );
 283
 284 #TODO later: test mybranchine and onlymine
 285 # Actually we cannot mock C4::Context->userenv in unit tests
 286
 287 #Test GetBranchesLoop
 288 my $loop = GetBranchesLoop;
 289 is( scalar(@$loop), Koha::Libraries->search->count, 'There is the right number of branches' );
 290
 291 # End transaction
 292 $dbh->rollback;
 293