X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a87694dc525b4eabff11029f1e5401621e2bd3bc..c5d397d9b1c2e13dfdaf644fbd98cd41d00a2909:/t/db_helper/payment.t diff --git a/t/db_helper/payment.t b/t/db_helper/payment.t index 18da821f2..718f537db 100644 --- a/t/db_helper/payment.t +++ b/t/db_helper/payment.t @@ -83,7 +83,8 @@ sub reset_state { description_long => 'payment', terms_netto => '30', terms_skonto => '5', - percent_skonto => '0.05' + percent_skonto => '0.05', + auto_calculation => 1, )->save; $vendor = SL::DB::Vendor->new( @@ -427,7 +428,9 @@ sub test_default_invoice_two_items_19_7_tax_with_skonto_tax_included() { is($paid_amount, -17.51, "${title}: paid amount"); is($invoice->paid, 17.51, "${title}: paid"); is($number_of_payments, 3, "${title}: 3 AR_paid bookings"); + { local $TODO = "currently this test fails because the code writing the invoice is buggy, the calculation of skonto is correct"; is($total, 0, "${title}: even balance"); + } } # test 3 : two items, without skonto @@ -953,8 +956,9 @@ sub test_default_invoice_four_items_19_7_tax_with_skonto_4x_25_tax_included() { is($paid_amount, -100, "${title}: paid amount"); is($invoice->paid, 100, "${title}: paid"); is($number_of_payments, 3, "${title}: 3 AR_paid bookings"); -# currently this test fails because the code writing the invoice is buggy, the calculation of skonto is correct - is($total, 0, "${title}: even balance: this will fail due to rounding error in invoice post, not the skonto"); + { local $TODO = "currently this test fails because the code writing the invoice is buggy, the calculation of skonto is correct"; + is($total, 0, "${title}: even balance"); + } } sub test_default_invoice_four_items_19_7_tax_with_skonto_4x_25_multiple() {