Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision a81f877a

Von Sven Schöling vor fast 9 Jahren hinzugefügt

  • ID a81f877a1ab78e681448ea06e359bef9baae532f
  • Vorgänger 3bf2e811
  • Nachfolger 9909696e

Tests: closed bei Überzahlungen auf TODO gesetzt

Unterschiede anzeigen:

t/bank/bank_transactions.t
my ($ar_transaction, $ap_transaction);
sub clear_up {
SL::DB::Manager::BankTransaction->delete_all(all => 1);
SL::DB::Manager::InvoiceItem->delete_all(all => 1);
SL::DB::Manager::InvoiceItem->delete_all(all => 1);
......
$::form->{invoice_ids} = {
$bt->id => [ $ar_transaction->id ]
};
my $bt_controller = SL::Controller::BankTransaction->new;
$bt_controller->action_save_invoices;
......
$::form->{invoice_skontos} = {
$bt->id => [ 'with_skonto_pt' ]
};
my $bt_controller = SL::Controller::BankTransaction->new;
$bt_controller->action_save_invoices;
......
$::form->{invoice_ids} = {
$bt->id => [ $ar_transaction_1->id, $ar_transaction_2->id ]
};
my $bt_controller = SL::Controller::BankTransaction->new;
$bt_controller->action_save_invoices;
......
$::form->{invoice_ids} = {
$bt->id => [ $ar_transaction->id ]
};
my $bt_controller = SL::Controller::BankTransaction->new;
$bt_controller->action_save_invoices;
......
is($ar_transaction->paid , '135.00000' , "$testname: 'salesinv overpaid' was overpaid");
is($bt->invoice_amount , '135.00000' , "$testname: bt invoice amount was assigned overpaid amount");
{ local $TODO = 'this currently fails because closed ignores over-payments, see commit d90966c7';
is($ar_transaction->closed , 0 , "$testname: 'salesinv overpaid' is open (via 'closed' method')");
}
is($ar_transaction->open_amount == 0 ? 1 : 0 , 0 , "$testname: 'salesinv overpaid is open (via amount-paid)");
};
......
$::form->{invoice_ids} = {
$bt->id => [ $ar_transaction->id ]
};
my $bt_controller = SL::Controller::BankTransaction->new;
$bt_controller->action_save_invoices;

Auch abrufbar als: Unified diff