Revision 6c8df34e
Von Kivitendo Admin vor mehr als 1 Jahr hinzugefügt
| 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
t/model/records.t - beim Löschen history_erp prüfen