Tests erweitert

[mfinanz.git] / t / db_helper / convert_invoice.t

diff --git a/t/db_helper/convert_invoice.t b/t/db_helper/convert_invoice.t
index 088bb087f21d06d522428d31920c03922eeccc2f..f883cd5043899d669e3f1b4325ad4c4b77bb62d4 100644 (file)
--- a/t/db_helper/convert_invoice.t
+++ b/t/db_helper/convert_invoice.t
@@ -30,9 +30,10 @@ my ($customer, $currency_id, $buchungsgruppe, $employee, $vendor, $taxzone, $buc
 my $VISUAL_TEST = 0;  # just a sleep to click around
 
 sub clear_up {
-  foreach (qw(DeliveryOrderItem DeliveryOrder InvoiceItem Invoice Part Customer Vendor Employee Department PaymentTerm)) {
+  foreach (qw(DeliveryOrderItem DeliveryOrder InvoiceItem Invoice Part Customer Vendor Department PaymentTerm)) {
     "SL::DB::Manager::${_}"->delete_all(all => 1);
   }
+  SL::DB::Manager::Employee->delete_all(where => [ id => 31915 ]);
 };
 
 sub reset_state {