Revision d6e24333
Von Bernd Bleßmann vor fast 6 Jahren hinzugefügt
t/db_helper/payment.t | ||
---|---|---|
347 | 347 |
|
348 | 348 |
|
349 | 349 |
# test 1 |
350 |
sub test_default_invoice_one_item_19_without_skonto() {
|
|
350 |
sub test_default_invoice_one_item_19_without_skonto { |
|
351 | 351 |
my $title = 'default invoice, one item, 19% tax, without_skonto'; |
352 | 352 |
my $item = create_invoice_item(part => $parts[0], qty => 2.5); |
353 | 353 |
my $invoice = create_sales_invoice( |
... | ... | |
380 | 380 |
|
381 | 381 |
} |
382 | 382 |
|
383 |
sub test_default_invoice_one_item_19_without_skonto_overpaid() {
|
|
383 |
sub test_default_invoice_one_item_19_without_skonto_overpaid { |
|
384 | 384 |
my $title = 'default invoice, one item, 19% tax, without_skonto'; |
385 | 385 |
|
386 | 386 |
my $item = create_invoice_item(part => $parts[0], qty => 2.5); |
... | ... | |
419 | 419 |
|
420 | 420 |
|
421 | 421 |
# test 2 |
422 |
sub test_default_invoice_two_items_19_7_tax_with_skonto() {
|
|
422 |
sub test_default_invoice_two_items_19_7_tax_with_skonto { |
|
423 | 423 |
my $title = 'default invoice, two items, 19/7% tax with_skonto_pt'; |
424 | 424 |
|
425 | 425 |
my $item1 = create_invoice_item(part => $parts[0], qty => 2.5); |
... | ... | |
451 | 451 |
is($total, 0, "${title}: even balance"); |
452 | 452 |
} |
453 | 453 |
|
454 |
sub test_default_invoice_two_items_19_7_tax_with_skonto_tax_included() {
|
|
454 |
sub test_default_invoice_two_items_19_7_tax_with_skonto_tax_included { |
|
455 | 455 |
my $title = 'default invoice, two items, 19/7% tax with_skonto_pt'; |
456 | 456 |
|
457 | 457 |
my $item1 = create_invoice_item(part => $parts[0], qty => 2.5); |
... | ... | |
488 | 488 |
} |
489 | 489 |
|
490 | 490 |
# test 3 : two items, without skonto |
491 |
sub test_default_invoice_two_items_19_7_without_skonto() {
|
|
491 |
sub test_default_invoice_two_items_19_7_without_skonto { |
|
492 | 492 |
my $title = 'default invoice, two items, 19/7% tax without skonto'; |
493 | 493 |
|
494 | 494 |
my $item1 = create_invoice_item(part => $parts[0], qty => 2.5); |
... | ... | |
521 | 521 |
} |
522 | 522 |
|
523 | 523 |
# test 4 |
524 |
sub test_default_invoice_two_items_19_7_without_skonto_incomplete_payment() {
|
|
524 |
sub test_default_invoice_two_items_19_7_without_skonto_incomplete_payment { |
|
525 | 525 |
my $title = 'default invoice, two items, 19/7% tax without skonto incomplete payment'; |
526 | 526 |
|
527 | 527 |
my $item1 = create_invoice_item(part => $parts[0], qty => 2.5); |
... | ... | |
550 | 550 |
} |
551 | 551 |
|
552 | 552 |
# test 5 |
553 |
sub test_default_invoice_two_items_19_7_tax_without_skonto_multiple_payments() {
|
|
553 |
sub test_default_invoice_two_items_19_7_tax_without_skonto_multiple_payments { |
|
554 | 554 |
my $title = 'default invoice, two items, 19/7% tax not included'; |
555 | 555 |
|
556 | 556 |
my $item1 = create_invoice_item(part => $parts[0], qty => 2.5); |
... | ... | |
584 | 584 |
} |
585 | 585 |
|
586 | 586 |
# test 6 |
587 |
sub test_default_invoice_two_items_19_7_tax_without_skonto_multiple_payments_final_difference_as_skonto() {
|
|
587 |
sub test_default_invoice_two_items_19_7_tax_without_skonto_multiple_payments_final_difference_as_skonto { |
|
588 | 588 |
my $title = 'default invoice, two items, 19/7% tax not included'; |
589 | 589 |
|
590 | 590 |
my $item1 = create_invoice_item(part => $parts[0], qty => 2.5); |
... | ... | |
623 | 623 |
|
624 | 624 |
} |
625 | 625 |
|
626 |
sub test_default_invoice_two_items_19_7_tax_without_skonto_multiple_payments_final_difference_as_skonto_1cent() {
|
|
626 |
sub test_default_invoice_two_items_19_7_tax_without_skonto_multiple_payments_final_difference_as_skonto_1cent { |
|
627 | 627 |
my $title = 'default invoice, two items, 19/7% tax not included'; |
628 | 628 |
|
629 | 629 |
# if there is only one cent left there can only be one skonto booking, the |
... | ... | |
662 | 662 |
|
663 | 663 |
} |
664 | 664 |
|
665 |
sub test_default_invoice_two_items_19_7_tax_without_skonto_multiple_payments_final_difference_as_skonto_2cent() {
|
|
665 |
sub test_default_invoice_two_items_19_7_tax_without_skonto_multiple_payments_final_difference_as_skonto_2cent { |
|
666 | 666 |
my $title = 'default invoice, two items, 19/7% tax not included'; |
667 | 667 |
|
668 | 668 |
# if there are two cents left there will be two skonto bookings, 1 cent each |
... | ... | |
697 | 697 |
|
698 | 698 |
} |
699 | 699 |
|
700 |
sub test_default_invoice_one_item_19_multiple_payment_final_difference_as_skonto() {
|
|
700 |
sub test_default_invoice_one_item_19_multiple_payment_final_difference_as_skonto { |
|
701 | 701 |
my $title = 'default invoice, one item, 19% tax, without_skonto'; |
702 | 702 |
|
703 | 703 |
my $item = create_invoice_item(part => $parts[0], qty => 2.5); |
... | ... | |
736 | 736 |
|
737 | 737 |
} |
738 | 738 |
|
739 |
sub test_default_invoice_one_item_19_multiple_payment_final_difference_as_skonto_1cent() {
|
|
739 |
sub test_default_invoice_one_item_19_multiple_payment_final_difference_as_skonto_1cent { |
|
740 | 740 |
my $title = 'default invoice, one item, 19% tax, without_skonto'; |
741 | 741 |
|
742 | 742 |
my $item = create_invoice_item(part => $parts[0], qty => 2.5); |
... | ... | |
772 | 772 |
} |
773 | 773 |
|
774 | 774 |
# test 3 : two items, without skonto |
775 |
sub test_default_purchase_invoice_two_charts_19_7_without_skonto() {
|
|
775 |
sub test_default_purchase_invoice_two_charts_19_7_without_skonto { |
|
776 | 776 |
my $title = 'default invoice, two items, 19/7% tax without skonto'; |
777 | 777 |
|
778 | 778 |
my $purchase_invoice = new_purchase_invoice(); |
... | ... | |
795 | 795 |
|
796 | 796 |
} |
797 | 797 |
|
798 |
sub test_default_purchase_invoice_two_charts_19_7_with_skonto() {
|
|
798 |
sub test_default_purchase_invoice_two_charts_19_7_with_skonto { |
|
799 | 799 |
my $title = 'default invoice, two items, 19/7% tax without skonto'; |
800 | 800 |
|
801 | 801 |
my $purchase_invoice = new_purchase_invoice(); |
... | ... | |
818 | 818 |
|
819 | 819 |
} |
820 | 820 |
|
821 |
sub test_default_purchase_invoice_two_charts_19_7_tax_partial_unrounded_payment_without_skonto() {
|
|
821 |
sub test_default_purchase_invoice_two_charts_19_7_tax_partial_unrounded_payment_without_skonto { |
|
822 | 822 |
my $title = 'default purchase_invoice, two charts, 19/7% tax multiple payments with final difference as skonto'; |
823 | 823 |
|
824 | 824 |
# check whether unrounded amounts passed via $params{amount} are rounded for without_skonto case |
... | ... | |
838 | 838 |
}; |
839 | 839 |
|
840 | 840 |
|
841 |
sub test_default_purchase_invoice_two_charts_19_7_tax_without_skonto_multiple_payments_final_difference_as_skonto() {
|
|
841 |
sub test_default_purchase_invoice_two_charts_19_7_tax_without_skonto_multiple_payments_final_difference_as_skonto { |
|
842 | 842 |
my $title = 'default purchase_invoice, two charts, 19/7% tax multiple payments with final difference as skonto'; |
843 | 843 |
|
844 | 844 |
my $purchase_invoice = new_purchase_invoice(); |
... | ... | |
872 | 872 |
} |
873 | 873 |
|
874 | 874 |
# test |
875 |
sub test_default_invoice_two_items_19_7_tax_with_skonto_50_50() {
|
|
875 |
sub test_default_invoice_two_items_19_7_tax_with_skonto_50_50 { |
|
876 | 876 |
my $title = 'default invoice, two items, 19/7% tax with_skonto_pt 50/50'; |
877 | 877 |
|
878 | 878 |
my $item1 = create_invoice_item(part => $parts[2], qty => 1); |
... | ... | |
905 | 905 |
} |
906 | 906 |
|
907 | 907 |
# test |
908 |
sub test_default_invoice_four_items_19_7_tax_with_skonto_4x_25() {
|
|
908 |
sub test_default_invoice_four_items_19_7_tax_with_skonto_4x_25 { |
|
909 | 909 |
my $title = 'default invoice, four items, 19/7% tax with_skonto_pt 4x25'; |
910 | 910 |
|
911 | 911 |
my $item1 = create_invoice_item(part => $parts[2], qty => 0.5); |
... | ... | |
939 | 939 |
is($total , 0 , "${title}: even balance"); |
940 | 940 |
} |
941 | 941 |
|
942 |
sub test_default_invoice_four_items_19_7_tax_with_skonto_4x_25_tax_included() {
|
|
942 |
sub test_default_invoice_four_items_19_7_tax_with_skonto_4x_25_tax_included { |
|
943 | 943 |
my $title = 'default invoice, four items, 19/7% tax with_skonto_pt 4x25'; |
944 | 944 |
|
945 | 945 |
my $item1 = create_invoice_item(part => $parts[2], qty => 0.5); |
... | ... | |
976 | 976 |
} |
977 | 977 |
} |
978 | 978 |
|
979 |
sub test_default_invoice_four_items_19_7_tax_with_skonto_4x_25_multiple() {
|
|
979 |
sub test_default_invoice_four_items_19_7_tax_with_skonto_4x_25_multiple { |
|
980 | 980 |
my $title = 'default invoice, four items, 19/7% tax with_skonto_pt 4x25'; |
981 | 981 |
|
982 | 982 |
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