X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=t%2Fdb_helper%2Frecord_links.t;h=2c7ea4db60c6d78085875f8f4766116bfe6a1210;hb=53593baa211863fbf66540cf1bcc36c8fb37257f;hp=a9ea048ec8874ba6fea758c53f884b66872bc092;hpb=f5df17caa4a22bcb8abe4910b837ec86a84ba9f0;p=kivitendo-erp.git

diff --git a/t/db_helper/record_links.t b/t/db_helper/record_links.t
index a9ea048ec..2c7ea4db6 100644
--- a/t/db_helper/record_links.t
+++ b/t/db_helper/record_links.t
@@ -19,6 +19,7 @@ use SL::DB::Employee;
 use SL::DB::Invoice;
 use SL::DB::Order;
 use SL::DB::DeliveryOrder;
+use SL::DB::DeliveryOrder::TypeData qw(:types);
 use SL::DB::Part;
 use SL::DB::Unit;
 use SL::DB::TaxZone;
@@ -86,6 +87,7 @@ sub new_delivery_order {
     employee_id => $employee->id,
     salesman_id => $employee->id,
     taxzone_id  => $taxzone->id,
+    order_type => SALES_DELIVERY_ORDER_TYPE,
     %params,
   )->save;
 }
@@ -363,4 +365,6 @@ is keys %$links, 2, "batch recursive by_id direction both 3";
 is $links->{$o1->id}[0]->id, $i1->id, "batch recursive by_id direction both 4";
 is $links->{$o2->id}[0]->id, $i2->id, "batch recursive by_id direction both 5";
 
+clear_up();
+
 1;