From 58551624b3beaf87b3ac9794d215569bfd2646a6 Mon Sep 17 00:00:00 2001 From: Baptiste Wojtkowski Date: Tue, 7 Feb 2017 09:49:34 +0000 Subject: [PATCH] Added unit tests to patch https://bugs.koha-community.org/show_bug.cgi?id=15408 --- t/db_dependent/Budgets.t | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Budgets.t b/t/db_dependent/Budgets.t index 0611389..3a9179c 100755 --- a/t/db_dependent/Budgets.t +++ b/t/db_dependent/Budgets.t @@ -1,6 +1,6 @@ #!/usr/bin/perl use Modern::Perl; -use Test::More tests => 142; +use Test::More tests => 143; BEGIN { use_ok('C4::Budgets') @@ -14,6 +14,7 @@ use Koha::Acquisition::Order; use Koha::Acquisition::Booksellers; use t::lib::TestBuilder; +use Koha::DateUtils; use YAML; @@ -389,6 +390,19 @@ my $budget_period_id_cloned = C4::Budgets::CloneBudgetPeriod( my $budget_period_cloned = C4::Budgets::GetBudgetPeriod($budget_period_id_cloned); is($budget_period_cloned->{budget_period_description}, 'Budget Period Cloned', 'Cloned budget\'s description is updated.'); +my $budget_cloned = C4::Budgets::GetBudgets({ budget_period_id => $budget_period_id_cloned }); +my $test = $budget_cloned->[0]->{timestamp}; +warn $test; +my $budget_time = Koha::DateUtils::dt_from_string($test); +my $local_time = Koha::DateUtils::dt_from_string(); +warn $budget_time; +warn $local_time; + + +is(DateTime::compare($budget_time, $local_time), 0); + + + my $budget_hierarchy = GetBudgetHierarchy($budget_period_id); my $budget_hierarchy_cloned = GetBudgetHierarchy($budget_period_id_cloned); -- 2.7.4