From 745cccd159c20123fdbbde91e3b22ed41a12d0ec Mon Sep 17 00:00:00 2001 From: Kenza Zaki Date: Tue, 23 Jul 2013 14:58:39 +0200 Subject: [PATCH] [SIGNED-OFF] C4::Branch.pm needs unit tests Unit tests are wrap in a transaction. To test: prove t/db_dependent/Branch.t t/db_dependent/Branch.t .. 1/36 Using a hash as a reference is deprecated at t/db_dependent/Branch.t line 207. t/db_dependent/Branch.t .. ok All tests successful. Files=1, Tests=36, 1 wallclock secs ( 0.02 usr 0.02 sys + 0.13 cusr 0.01 csys = 0.18 CPU) Result: PASS http://bugs.koha-community.org/show_bug.cgi?id=10508 Signed-off-by: Srdjan --- t/db_dependent/Branch.t | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/t/db_dependent/Branch.t b/t/db_dependent/Branch.t index 4251816..ffa2346 100644 --- a/t/db_dependent/Branch.t +++ b/t/db_dependent/Branch.t @@ -21,7 +21,7 @@ use Modern::Perl; use C4::Context; use Data::Dumper; -use Test::More ;#tests => 6; +use Test::More tests => 36; use C4::Branch; @@ -161,7 +161,7 @@ is( GetBranchesCount, $count + 1, "A branch has been modified, no new branch added" ); $branchdetail = GetBranchDetail( $b1->{branchcode} ); $b1->{issuing} = undef; -is_deeply( $branchdetail, $b1 ); +is_deeply( $branchdetail, $b1 , "GetBranchDetail gives the details of BRA"); #Test categories my $categories = GetBranchCategories; @@ -350,4 +350,3 @@ is( scalar(@$loop), GetBranchesCount, 'There is the right number of branches' ); # End transaction $dbh->rollback; -done_testing; -- 1.8.1.2