Lines 21-27
use Modern::Perl;
Link Here
|
21 |
use C4::Context; |
21 |
use C4::Context; |
22 |
use Data::Dumper; |
22 |
use Data::Dumper; |
23 |
|
23 |
|
24 |
use Test::More ;#tests => 6; |
24 |
use Test::More tests => 36; |
25 |
|
25 |
|
26 |
use C4::Branch; |
26 |
use C4::Branch; |
27 |
|
27 |
|
Lines 161-167
is( GetBranchesCount, $count + 1,
Link Here
|
161 |
"A branch has been modified, no new branch added" ); |
161 |
"A branch has been modified, no new branch added" ); |
162 |
$branchdetail = GetBranchDetail( $b1->{branchcode} ); |
162 |
$branchdetail = GetBranchDetail( $b1->{branchcode} ); |
163 |
$b1->{issuing} = undef; |
163 |
$b1->{issuing} = undef; |
164 |
is_deeply( $branchdetail, $b1 ); |
164 |
is_deeply( $branchdetail, $b1 , "GetBranchDetail gives the details of BRA"); |
165 |
|
165 |
|
166 |
#Test categories |
166 |
#Test categories |
167 |
my $categories = GetBranchCategories; |
167 |
my $categories = GetBranchCategories; |
Lines 350-353
is( scalar(@$loop), GetBranchesCount, 'There is the right number of branches' );
Link Here
|
350 |
# End transaction |
350 |
# End transaction |
351 |
$dbh->rollback; |
351 |
$dbh->rollback; |
352 |
|
352 |
|
353 |
done_testing; |
|
|
354 |
- |