View | Details | Raw Unified | Return to bug 10508
Collapse All | Expand All

(-)a/t/db_dependent/Branch.t (-4 / +2 lines)
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
- 

Return to bug 10508