Lines 816-823
is( scalar @{$authCat}, 0, "GetBudgetAuthCats returns only non-empty sorting cat
Link Here
|
816 |
|
816 |
|
817 |
# /Test GetBudgetAuthCats |
817 |
# /Test GetBudgetAuthCats |
818 |
|
818 |
|
819 |
subtest 'GetBudgetSpent and GetBudgetOrdered' => sub { |
819 |
subtest 'GetBudgetSpent and GetBudgetOrdered and GetBudgetHierarchy shipping and adjustments' => sub { |
820 |
plan tests => 20; |
820 |
plan tests => 26; |
821 |
|
821 |
|
822 |
my $budget_period = $builder->build({ |
822 |
my $budget_period = $builder->build({ |
823 |
source => 'Aqbudgetperiod', |
823 |
source => 'Aqbudgetperiod', |
Lines 957-962
subtest 'GetBudgetSpent and GetBudgetOrdered' => sub {
Link Here
|
957 |
is( $ordered, 3, "After adding invoice adjustment on a child budget, should still be 3 ordered/budget unaffected"); |
957 |
is( $ordered, 3, "After adding invoice adjustment on a child budget, should still be 3 ordered/budget unaffected"); |
958 |
is( @$hierarchy[0]->{total_spent},9,"After adding invoice adjustment on child budget, budget hierarchy shows 9 spent"); |
958 |
is( @$hierarchy[0]->{total_spent},9,"After adding invoice adjustment on child budget, budget hierarchy shows 9 spent"); |
959 |
is( @$hierarchy[0]->{total_ordered},6,"After adding invoice adjustment on child budget, budget hierarchy shows 6 ordered"); |
959 |
is( @$hierarchy[0]->{total_ordered},6,"After adding invoice adjustment on child budget, budget hierarchy shows 6 ordered"); |
|
|
960 |
|
961 |
my $invoice_3 = $builder->build({ |
962 |
source => 'Aqinvoice', |
963 |
value => { |
964 |
closedate => '2017-07-01', |
965 |
shipmentcost_budgetid => $budget0->{budget_id}, |
966 |
shipmentcost => 1.25 |
967 |
} |
968 |
}); |
969 |
my $invoice_4 = $builder->build({ |
970 |
source => 'Aqinvoice', |
971 |
value => { |
972 |
closedate => '2017-07-01', |
973 |
shipmentcost_budgetid => $budget0->{budget_id}, |
974 |
shipmentcost => 1.75 |
975 |
} |
976 |
}); |
977 |
|
978 |
$spent = GetBudgetSpent( $budget->{budget_id} ); |
979 |
$ordered = GetBudgetOrdered( $budget->{budget_id} ); |
980 |
is( $spent, 6, "After adding invoice shipment cost on open and closed invoice on child, neither are counted as spent from parent"); |
981 |
is( $ordered, 3, "After adding invoice shipment cost on open and closed invoice, neither are counted as ordered from parent"); |
982 |
$spent = GetBudgetSpent( $budget0->{budget_id} ); |
983 |
$ordered = GetBudgetOrdered( $budget0->{budget_id} ); |
984 |
is( $spent, 6, "After adding invoice shipment cost on open and closed invoice on child, both are counted as spent from child"); |
985 |
is( $ordered, 3, "After adding invoice shipment cost on open and closed invoice, neither are counted as ordered from child"); |
986 |
$hierarchy = GetBudgetHierarchy($budget_period->{budget_period_id} ); |
987 |
is( @$hierarchy[0]->{total_spent},12,"After adding shipmentcost on child, budget hierarchy shows 12 spent total"); |
988 |
is( @$hierarchy[0]->{total_ordered},6,"After adding shipmentcost on child, budget hierarchy still shows 6 ordered total"); |
989 |
|
990 |
|
960 |
}; |
991 |
}; |
961 |
|
992 |
|
962 |
subtest 'GetBudgetSpent GetBudgetOrdered GetBudgetsPlanCell tests' => sub { |
993 |
subtest 'GetBudgetSpent GetBudgetOrdered GetBudgetsPlanCell tests' => sub { |
963 |
- |
|
|