|
Lines 821-827
subtest 'GetBudgetSpent and GetBudgetOrdered' => sub {
Link Here
|
| 821 |
is( $ordered, 0, "New budget, no orders/invoices, should be nothing ordered"); |
821 |
is( $ordered, 0, "New budget, no orders/invoices, should be nothing ordered"); |
| 822 |
|
822 |
|
| 823 |
my $inv_adj_1 = $builder->build({ |
823 |
my $inv_adj_1 = $builder->build({ |
| 824 |
source => 'InvoiceAdjustment', |
824 |
source => 'AqinvoiceAdjustment', |
| 825 |
value => { |
825 |
value => { |
| 826 |
invoiceid => $invoice->{invoiceid}, |
826 |
invoiceid => $invoice->{invoiceid}, |
| 827 |
adjustment => 3, |
827 |
adjustment => 3, |
|
Lines 836-842
subtest 'GetBudgetSpent and GetBudgetOrdered' => sub {
Link Here
|
| 836 |
is( $ordered, 0, "After adding invoice adjustment on open invoice not encumbered, should be nothing ordered"); |
836 |
is( $ordered, 0, "After adding invoice adjustment on open invoice not encumbered, should be nothing ordered"); |
| 837 |
|
837 |
|
| 838 |
my $inv_adj_2 = $builder->build({ |
838 |
my $inv_adj_2 = $builder->build({ |
| 839 |
source => 'InvoiceAdjustment', |
839 |
source => 'AqinvoiceAdjustment', |
| 840 |
value => { |
840 |
value => { |
| 841 |
invoiceid => $invoice->{invoiceid}, |
841 |
invoiceid => $invoice->{invoiceid}, |
| 842 |
adjustment => 3, |
842 |
adjustment => 3, |
|
Lines 857-863
subtest 'GetBudgetSpent and GetBudgetOrdered' => sub {
Link Here
|
| 857 |
} |
857 |
} |
| 858 |
}); |
858 |
}); |
| 859 |
my $inv_adj_3 = $builder->build({ |
859 |
my $inv_adj_3 = $builder->build({ |
| 860 |
source => 'InvoiceAdjustment', |
860 |
source => 'AqinvoiceAdjustment', |
| 861 |
value => { |
861 |
value => { |
| 862 |
invoiceid => $invoice_2->{invoiceid}, |
862 |
invoiceid => $invoice_2->{invoiceid}, |
| 863 |
adjustment => 3, |
863 |
adjustment => 3, |
|
Lines 866-872
subtest 'GetBudgetSpent and GetBudgetOrdered' => sub {
Link Here
|
| 866 |
} |
866 |
} |
| 867 |
}); |
867 |
}); |
| 868 |
my $inv_adj_4 = $builder->build({ |
868 |
my $inv_adj_4 = $builder->build({ |
| 869 |
source => 'InvoiceAdjustment', |
869 |
source => 'AqinvoiceAdjustment', |
| 870 |
value => { |
870 |
value => { |
| 871 |
invoiceid => $invoice_2->{invoiceid}, |
871 |
invoiceid => $invoice_2->{invoiceid}, |
| 872 |
adjustment => 3, |
872 |
adjustment => 3, |
|
Lines 887-893
subtest 'GetBudgetSpent and GetBudgetOrdered' => sub {
Link Here
|
| 887 |
} |
887 |
} |
| 888 |
}); |
888 |
}); |
| 889 |
my $inv_adj_5 = $builder->build({ |
889 |
my $inv_adj_5 = $builder->build({ |
| 890 |
source => 'InvoiceAdjustment', |
890 |
source => 'AqinvoiceAdjustment', |
| 891 |
value => { |
891 |
value => { |
| 892 |
invoiceid => $invoice->{invoiceid}, |
892 |
invoiceid => $invoice->{invoiceid}, |
| 893 |
adjustment => 3, |
893 |
adjustment => 3, |
|
Lines 896-902
subtest 'GetBudgetSpent and GetBudgetOrdered' => sub {
Link Here
|
| 896 |
} |
896 |
} |
| 897 |
}); |
897 |
}); |
| 898 |
my $inv_adj_6 = $builder->build({ |
898 |
my $inv_adj_6 = $builder->build({ |
| 899 |
source => 'InvoiceAdjustment', |
899 |
source => 'AqinvoiceAdjustment', |
| 900 |
value => { |
900 |
value => { |
| 901 |
invoiceid => $invoice_2->{invoiceid}, |
901 |
invoiceid => $invoice_2->{invoiceid}, |
| 902 |
adjustment => 3, |
902 |
adjustment => 3, |
| 903 |
- |
|
|