gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 27550: Add unit test for CloneBudgetHierarchy 

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
(cherry picked from commit ca338bae1e)

Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
(cherry picked from commit c7074be1c9)
Signed-off-by: Arthur Suzuki <arthur.suzuki@biblibre.com>
This commit is contained in:
Julian Maurice 2022-09-08 12:20:11 +02:00 committed by Arthur Suzuki
parent 8be601a748
commit eaa45e93db
1 changed files with 62 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
t/db_dependent/Budgets/CloneBudgetHierarchy.t Executable file
View File

@ -0,0 +1,62 @@
#!/usr/bin/perl
use Modern::Perl;
use Test::More;
use Koha::Database;
use Koha::Acquisition::Budget;
use Koha::Acquisition::Fund;
use C4::Budgets qw(AddBudget CloneBudgetHierarchy GetBudgetHierarchy);
use t::lib::TestBuilder;
plan tests => 1;
my $schema = Koha::Database->schema;
my $builder = t::lib::TestBuilder->new;
subtest 'CloneBudgetHierarchy should clone budget users too' => sub {
plan tests => 1;
$schema->txn_begin;
my $aqbudgetperiod_rs = $schema->resultset('Aqbudgetperiod');
my $budget_1 = Koha::Acquisition::Budget->new(
{
budget_period_startdate => '2000-01-01',
budget_period_enddate => '2999-12-31',
}
)->store;
my $budget_1_fund_1 = Koha::Acquisition::Fund->new(
{
budget_period_id => $budget_1->id,
}
)->store;
my $patron_1 = $builder->build_object({ class => 'Koha::Patrons' });
my $patron_2 = $builder->build_object({ class => 'Koha::Patrons' });
C4::Budgets::ModBudgetUsers($budget_1_fund_1->id, $patron_1->id, $patron_2->id);
my $budget_2 = Koha::Acquisition::Budget->new(
{
budget_period_startdate => '2000-01-01',
budget_period_enddate => '2999-12-31',
}
)->store;
CloneBudgetHierarchy(
{
budgets => C4::Budgets::GetBudgetHierarchy($budget_1->id),
new_budget_period_id => $budget_2->id,
}
);
my @funds = Koha::Acquisition::Funds->search({ budget_period_id => $budget_2->id })->as_list;
my @borrowernumbers = C4::Budgets::GetBudgetUsers($funds[0]->id);
is_deeply(\@borrowernumbers, [$patron_1->id, $patron_2->id], 'cloned budget has the same users as the original');
$schema->txn_rollback;
};