Revision d6e24333
Von Bernd Bleßmann vor fast 6 Jahren hinzugefügt
t/db_helper/payment.t | ||
---|---|---|
|
||
|
||
# test 1
|
||
sub test_default_invoice_one_item_19_without_skonto() {
|
||
sub test_default_invoice_one_item_19_without_skonto {
|
||
my $title = 'default invoice, one item, 19% tax, without_skonto';
|
||
my $item = create_invoice_item(part => $parts[0], qty => 2.5);
|
||
my $invoice = create_sales_invoice(
|
||
... | ... | |
|
||
}
|
||
|
||
sub test_default_invoice_one_item_19_without_skonto_overpaid() {
|
||
sub test_default_invoice_one_item_19_without_skonto_overpaid {
|
||
my $title = 'default invoice, one item, 19% tax, without_skonto';
|
||
|
||
my $item = create_invoice_item(part => $parts[0], qty => 2.5);
|
||
... | ... | |
|
||
|
||
# test 2
|
||
sub test_default_invoice_two_items_19_7_tax_with_skonto() {
|
||
sub test_default_invoice_two_items_19_7_tax_with_skonto {
|
||
my $title = 'default invoice, two items, 19/7% tax with_skonto_pt';
|
||
|
||
my $item1 = create_invoice_item(part => $parts[0], qty => 2.5);
|
||
... | ... | |
is($total, 0, "${title}: even balance");
|
||
}
|
||
|
||
sub test_default_invoice_two_items_19_7_tax_with_skonto_tax_included() {
|
||
sub test_default_invoice_two_items_19_7_tax_with_skonto_tax_included {
|
||
my $title = 'default invoice, two items, 19/7% tax with_skonto_pt';
|
||
|
||
my $item1 = create_invoice_item(part => $parts[0], qty => 2.5);
|
||
... | ... | |
}
|
||
|
||
# test 3 : two items, without skonto
|
||
sub test_default_invoice_two_items_19_7_without_skonto() {
|
||
sub test_default_invoice_two_items_19_7_without_skonto {
|
||
my $title = 'default invoice, two items, 19/7% tax without skonto';
|
||
|
||
my $item1 = create_invoice_item(part => $parts[0], qty => 2.5);
|
||
... | ... | |
}
|
||
|
||
# test 4
|
||
sub test_default_invoice_two_items_19_7_without_skonto_incomplete_payment() {
|
||
sub test_default_invoice_two_items_19_7_without_skonto_incomplete_payment {
|
||
my $title = 'default invoice, two items, 19/7% tax without skonto incomplete payment';
|
||
|
||
my $item1 = create_invoice_item(part => $parts[0], qty => 2.5);
|
||
... | ... | |
}
|
||
|
||
# test 5
|
||
sub test_default_invoice_two_items_19_7_tax_without_skonto_multiple_payments() {
|
||
sub test_default_invoice_two_items_19_7_tax_without_skonto_multiple_payments {
|
||
my $title = 'default invoice, two items, 19/7% tax not included';
|
||
|
||
my $item1 = create_invoice_item(part => $parts[0], qty => 2.5);
|
||
... | ... | |
}
|
||
|
||
# test 6
|
||
sub test_default_invoice_two_items_19_7_tax_without_skonto_multiple_payments_final_difference_as_skonto() {
|
||
sub test_default_invoice_two_items_19_7_tax_without_skonto_multiple_payments_final_difference_as_skonto {
|
||
my $title = 'default invoice, two items, 19/7% tax not included';
|
||
|
||
my $item1 = create_invoice_item(part => $parts[0], qty => 2.5);
|
||
... | ... | |
|
||
}
|
||
|
||
sub test_default_invoice_two_items_19_7_tax_without_skonto_multiple_payments_final_difference_as_skonto_1cent() {
|
||
sub test_default_invoice_two_items_19_7_tax_without_skonto_multiple_payments_final_difference_as_skonto_1cent {
|
||
my $title = 'default invoice, two items, 19/7% tax not included';
|
||
|
||
# if there is only one cent left there can only be one skonto booking, the
|
||
... | ... | |
|
||
}
|
||
|
||
sub test_default_invoice_two_items_19_7_tax_without_skonto_multiple_payments_final_difference_as_skonto_2cent() {
|
||
sub test_default_invoice_two_items_19_7_tax_without_skonto_multiple_payments_final_difference_as_skonto_2cent {
|
||
my $title = 'default invoice, two items, 19/7% tax not included';
|
||
|
||
# if there are two cents left there will be two skonto bookings, 1 cent each
|
||
... | ... | |
|
||
}
|
||
|
||
sub test_default_invoice_one_item_19_multiple_payment_final_difference_as_skonto() {
|
||
sub test_default_invoice_one_item_19_multiple_payment_final_difference_as_skonto {
|
||
my $title = 'default invoice, one item, 19% tax, without_skonto';
|
||
|
||
my $item = create_invoice_item(part => $parts[0], qty => 2.5);
|
||
... | ... | |
|
||
}
|
||
|
||
sub test_default_invoice_one_item_19_multiple_payment_final_difference_as_skonto_1cent() {
|
||
sub test_default_invoice_one_item_19_multiple_payment_final_difference_as_skonto_1cent {
|
||
my $title = 'default invoice, one item, 19% tax, without_skonto';
|
||
|
||
my $item = create_invoice_item(part => $parts[0], qty => 2.5);
|
||
... | ... | |
}
|
||
|
||
# test 3 : two items, without skonto
|
||
sub test_default_purchase_invoice_two_charts_19_7_without_skonto() {
|
||
sub test_default_purchase_invoice_two_charts_19_7_without_skonto {
|
||
my $title = 'default invoice, two items, 19/7% tax without skonto';
|
||
|
||
my $purchase_invoice = new_purchase_invoice();
|
||
... | ... | |
|
||
}
|
||
|
||
sub test_default_purchase_invoice_two_charts_19_7_with_skonto() {
|
||
sub test_default_purchase_invoice_two_charts_19_7_with_skonto {
|
||
my $title = 'default invoice, two items, 19/7% tax without skonto';
|
||
|
||
my $purchase_invoice = new_purchase_invoice();
|
||
... | ... | |
|
||
}
|
||
|
||
sub test_default_purchase_invoice_two_charts_19_7_tax_partial_unrounded_payment_without_skonto() {
|
||
sub test_default_purchase_invoice_two_charts_19_7_tax_partial_unrounded_payment_without_skonto {
|
||
my $title = 'default purchase_invoice, two charts, 19/7% tax multiple payments with final difference as skonto';
|
||
|
||
# check whether unrounded amounts passed via $params{amount} are rounded for without_skonto case
|
||
... | ... | |
};
|
||
|
||
|
||
sub test_default_purchase_invoice_two_charts_19_7_tax_without_skonto_multiple_payments_final_difference_as_skonto() {
|
||
sub test_default_purchase_invoice_two_charts_19_7_tax_without_skonto_multiple_payments_final_difference_as_skonto {
|
||
my $title = 'default purchase_invoice, two charts, 19/7% tax multiple payments with final difference as skonto';
|
||
|
||
my $purchase_invoice = new_purchase_invoice();
|
||
... | ... | |
}
|
||
|
||
# test
|
||
sub test_default_invoice_two_items_19_7_tax_with_skonto_50_50() {
|
||
sub test_default_invoice_two_items_19_7_tax_with_skonto_50_50 {
|
||
my $title = 'default invoice, two items, 19/7% tax with_skonto_pt 50/50';
|
||
|
||
my $item1 = create_invoice_item(part => $parts[2], qty => 1);
|
||
... | ... | |
}
|
||
|
||
# test
|
||
sub test_default_invoice_four_items_19_7_tax_with_skonto_4x_25() {
|
||
sub test_default_invoice_four_items_19_7_tax_with_skonto_4x_25 {
|
||
my $title = 'default invoice, four items, 19/7% tax with_skonto_pt 4x25';
|
||
|
||
my $item1 = create_invoice_item(part => $parts[2], qty => 0.5);
|
||
... | ... | |
is($total , 0 , "${title}: even balance");
|
||
}
|
||
|
||
sub test_default_invoice_four_items_19_7_tax_with_skonto_4x_25_tax_included() {
|
||
sub test_default_invoice_four_items_19_7_tax_with_skonto_4x_25_tax_included {
|
||
my $title = 'default invoice, four items, 19/7% tax with_skonto_pt 4x25';
|
||
|
||
my $item1 = create_invoice_item(part => $parts[2], qty => 0.5);
|
||
... | ... | |
}
|
||
}
|
||
|
||
sub test_default_invoice_four_items_19_7_tax_with_skonto_4x_25_multiple() {
|
||
sub test_default_invoice_four_items_19_7_tax_with_skonto_4x_25_multiple {
|
||
my $title = 'default invoice, four items, 19/7% tax with_skonto_pt 4x25';
|
||
|
||
my $item1 = create_invoice_item(part => $parts[2], qty => 0.5);
|
Auch abrufbar als: Unified diff
t/db_helper/payment.t: keine Klammern bei subroutine-Definition
sonst gibt es eine Warnung bzgl. Prototypen