Bug 15629: Koha::Libraries - Remove GetBranchDetail
[koha.git] / 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 => 19;
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       ModBranch
42       GetBranchInfo
43       mybranch
44       )
45 );
46
47
48 # Start transaction
49 my $dbh = C4::Context->dbh;
50 $dbh->{AutoCommit} = 0;
51 $dbh->{RaiseError} = 1;
52
53 # clear the slate
54 $dbh->do('DELETE FROM branchcategories');
55
56 # Start test
57
58 my $count = Koha::Libraries->search->count;
59 like( $count, '/^\d+$/', "the count is a number" );
60
61 #add 2 branches
62 my $b1 = {
63     add            => 1,
64     branchcode     => 'BRA',
65     branchname     => 'BranchA',
66     branchaddress1 => 'adr1A',
67     branchaddress2 => 'adr2A',
68     branchaddress3 => 'adr3A',
69     branchzip      => 'zipA',
70     branchcity     => 'cityA',
71     branchstate    => 'stateA',
72     branchcountry  => 'countryA',
73     branchphone    => 'phoneA',
74     branchfax      => 'faxA',
75     branchemail    => 'emailA',
76     branchreplyto  => 'emailreply',
77     branchreturnpath => 'branchreturn',
78     branchurl      => 'urlA',
79     branchip       => 'ipA',
80     branchprinter  => undef,
81     branchnotes    => 'noteA',
82     opac_info      => 'opacA',
83     issuing        => undef,
84 };
85 my $b2 = {
86     branchcode     => 'BRB',
87     branchname     => 'BranchB',
88     branchaddress1 => 'adr1B',
89     branchaddress2 => 'adr2B',
90     branchaddress3 => 'adr3B',
91     branchzip      => 'zipB',
92     branchcity     => 'cityB',
93     branchstate    => 'stateB',
94     branchcountry  => 'countryB',
95     branchphone    => 'phoneB',
96     branchfax      => 'faxB',
97     branchemail    => 'emailB',
98     branchreplyto  => 'emailreply',
99     branchreturnpath => 'branchreturn',
100     branchurl      => 'urlB',
101     branchip       => 'ipB',
102     branchprinter  => undef,
103     branchnotes    => 'noteB',
104     opac_info      => 'opacB',
105     issuing        => undef,
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 Getbranches
122 my $branches = GetBranches();
123 is( scalar( keys %$branches ),
124     Koha::Libraries->search->count, "GetBranches returns the right number of branches" );
125
126 #Test ModBranch
127
128 $b1 = {
129     branchcode     => 'BRA',
130     branchname     => 'BranchA modified',
131     branchaddress1 => 'adr1A modified',
132     branchaddress2 => 'adr2A modified',
133     branchaddress3 => 'adr3A modified',
134     branchzip      => 'zipA modified',
135     branchcity     => 'cityA modified',
136     branchstate    => 'stateA modified',
137     branchcountry  => 'countryA modified',
138     branchphone    => 'phoneA modified',
139     branchfax      => 'faxA modified',
140     branchemail    => 'emailA modified',
141     branchreplyto  => 'emailreply modified',
142     branchreturnpath => 'branchreturn modified',
143     branchurl      => 'urlA modified',
144     branchip       => 'ipA modified',
145     branchprinter  => undef,
146     branchnotes    => 'notesA modified',
147     opac_info      => 'opacA modified',
148     issuing        => undef,
149 };
150
151 ModBranch($b1);
152 is( Koha::Libraries->search->count, $count + 1,
153     "A branch has been modified, no new branch added" );
154
155 #Test categories
156 my $count_cat  = Koha::LibraryCategories->search->count;
157
158 my $cat1 = {
159     categorycode     => 'CAT1',
160     categoryname     => 'catname1',
161     codedescription  => 'catdesc1',
162     categorytype     => 'cattype1',
163     show_in_pulldown => 1
164 };
165 my $cat2 = {
166     categorycode     => 'CAT2',
167     categoryname     => 'catname2',
168     categorytype     => 'catype2',
169     codedescription  => 'catdesc2',
170     show_in_pulldown => 1
171 };
172
173 my %new_category = (
174     categorycode     => 'LIBCATCODE',
175     categoryname     => 'library category name',
176     codedescription  => 'library category code description',
177     categorytype     => 'searchdomain',
178     show_in_pulldown => 1,
179 );
180
181 Koha::LibraryCategory->new(\%new_category)->store;
182 Koha::LibraryCategory->new($cat1)->store;
183 Koha::LibraryCategory->new($cat2)->store;
184
185 my $categories = Koha::LibraryCategories->search;
186 is( $categories->count, $count_cat + 3, "Two categories added" );
187
188 my $del = Koha::LibraryCategories->find( $cat2->{categorycode} )->delete;
189 is( $del, 1, 'One row affected' );
190
191 is( Koha::LibraryCategories->search->count, $count_cat + 2, "Category CAT 2 deleted" );
192
193 $b2->{CAT1} = 1;
194 ModBranch($b2);
195 is( Koha::Libraries->search->count, $count + 2, 'BRB added' );
196
197 #Test GetBranchInfo
198 my $b1info = GetBranchInfo( $b1->{branchcode} );
199 $b1->{categories} = [];
200 is_deeply( @$b1info[0], $b1, 'BRA has no categories' );
201
202 my $b2info = GetBranchInfo( $b2->{branchcode} );
203 my @cat    = ( $cat1->{categorycode} );
204 delete $b2->{add};
205 delete $b2->{CAT1};
206 $b2->{issuing}    = undef;
207 $b2->{categories} = \@cat;
208 is_deeply( @$b2info[0], $b2, 'BRB has the category CAT1' );
209
210 Koha::LibraryCategory->new($cat2)->store;
211 is( Koha::LibraryCategories->search->count, $count_cat + 3, "Two categories added" );
212 $b2 = {
213     branchcode     => 'BRB',
214     branchname     => 'BranchB',
215     branchaddress1 => 'adr1B',
216     branchaddress2 => 'adr2B',
217     branchaddress3 => 'adr3B',
218     branchzip      => 'zipB',
219     branchcity     => 'cityB',
220     branchstate    => 'stateB',
221     branchcountry  => 'countryB',
222     branchphone    => 'phoneB',
223     branchfax      => 'faxB',
224     branchemail    => 'emailB',
225     branchreplyto  => 'emailreply',
226     branchreturnpath => 'branchreturn',
227     branchurl      => 'urlB',
228     branchip       => 'ipB',
229     branchprinter  => undef,
230     branchnotes    => 'noteB',
231     opac_info      => 'opacB',
232     issuing        => undef,
233     CAT1           => 1,
234     CAT2           => 1
235 };
236 ModBranch($b2);
237 $b2info = GetBranchInfo( $b2->{branchcode} );
238 push( @cat, $cat2->{categorycode} );
239 delete $b2->{CAT1};
240 delete $b2->{CAT2};
241 $b2->{categories} = \@cat;
242 is_deeply( @$b2info[0], $b2, 'BRB has the category CAT1 and CAT2' );
243
244 #TODO later: test mybranchine and onlymine
245 # Actually we cannot mock C4::Context->userenv in unit tests
246
247 #Test GetBranchesLoop
248 my $loop = GetBranchesLoop;
249 is( scalar(@$loop), Koha::Libraries->search->count, 'There is the right number of branches' );
250
251 # End transaction
252 $dbh->rollback;
253