Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 6c8df34e

Von Kivitendo Admin vor mehr als 1 Jahr hinzugefügt

  • ID 6c8df34e95ac3c8b04aa7670dcb0c10ad63c809a
  • Vorgänger f3242d02
  • Nachfolger 17112f06

t/model/records.t - beim Löschen history_erp prüfen

Unterschiede anzeigen:

t/model/records.t
is(SL::DB::Manager::Order->get_all_count(where => [ quotation => 0 ]), 2, 'number of orders before delete ok');
is(SL::DB::Manager::DeliveryOrder->get_all_count(), 2, 'number of delivery orders before delete ok');
is(SL::DB::Manager::Reclamation->get_all_count(), 2, 'number of reclamations before delete ok');
is(SL::DB::Manager::Invoice->get_all_count(), 1, 'number of invoices before delete ok'); # no purchase_invoice was created
SL::Model::Record->delete($sales_quotation1);
SL::Model::Record->delete($sales_order1);
SL::Model::Record->delete($sales_reclamation1);
SL::Model::Record->delete($sales_invoice1);
SL::Model::Record->delete($purchase_quotation1);
SL::Model::Record->delete($purchase_order1);
SL::Model::Record->delete($purchase_reclamation1);
# is(SL::DB::Manager::Invoice->get_all_count(), 1, 'number of invoices before delete ok'); # no purchase_invoice was created
foreach my $record ( ($sales_quotation1,
$sales_order1,
$sales_reclamation1,
$purchase_quotation1,
$purchase_order1,
$purchase_reclamation1
)
) {
my $delete_return = SL::Model::Record->delete($record);
my $record_history = SL::DB::Manager::History->find_by(trans_id => $record->id, addition => 'DELETED');
# just test if snumbers contains "_", not whether it actually is correct
ok($record_history->snumbers =~ m/_/, "history snumbers of record " . $record_history->snumbers . " ok");
};
is(SL::DB::Manager::Order->get_all_count(where => [ quotation => 1 ]), 0, 'number of quotations after delete ok');
is(SL::DB::Manager::Order->get_all_count(where => [ quotation => 0 ]), 0, 'number of orders after delete ok');

Auch abrufbar als: Unified diff