From 6d67c57fa2c2d2fb304af3d02cc63c2f4adeb325 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 21 Mar 2013 13:27:39 +0100 Subject: [PATCH] Bug 7180: Add UT for C4::Budgets::GetBudgetByCode --- t/db_dependent/Budgets.t | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Budgets.t b/t/db_dependent/Budgets.t index 6ec8b57..63614f5 100755 --- a/t/db_dependent/Budgets.t +++ b/t/db_dependent/Budgets.t @@ -1,6 +1,6 @@ use strict; use warnings; -use Test::More tests=>17; +use Test::More tests=>19; BEGIN {use_ok('C4::Budgets') } use C4::Budgets; @@ -88,6 +88,8 @@ ok($budget_id=AddBudget( my $budget; ok($budget=GetBudget($budget_id) ,"GetBudget OK"); +my $budget_id = $budget->{id}; +my $budget_code = $budget->{budget_code}; $$budget{budget_permission}=1; ok($mod_status=ModBudget($budget),"ModBudget OK"); ok(GetBudgets()>0, @@ -102,4 +104,7 @@ ok(GetBudgets({budget_period_id=>GetBudgetPeriod($bpid)->{budget_period_id}},[{" ok($del_status=DelBudget($budget_id), "DelBudget returned $del_status"); +my $budget_by_code = GetBudgetByCode( $budget_code ); +ok($budget_by_code->{id} == $budget_id, "GetBudgetByCode, check id"); +ok($budget_by_code->{budget_notes} eq 'This is a note', "GetBudgetByCode, check notes"); -- 1.7.10.4