10 use Support::TestSetup;
15 use SL::DB::Department;
17 use SL::DB::PaymentTerm;
18 use SL::DB::DeliveryTerm;
22 use SL::DB::DeliveryOrder;
23 use SL::DB::DeliveryOrder::TypeData qw(:types);
25 use SL::Dev::ALL qw(:ALL);
27 Support::TestSetup::login();
32 my $order1 = SL::Dev::Record::create_purchase_order(
37 my $delivery_order = SL::DB::DeliveryOrder->new_from($order1);
39 is $delivery_order->type, PURCHASE_DELIVERY_ORDER_TYPE, "new_from purchase order gives purchase delivery order";
40 is scalar @{ $delivery_order->items }, 2, "purchase delivery order keeps items";
41 is $delivery_order->vendor_id, $order1->vendor_id, "purchase delivery order keeps vendor";
43 my $supplier_delivery_order = SL::DB::DeliveryOrder->new_from($order1, type => SUPPLIER_DELIVERY_ORDER_TYPE);
45 is $supplier_delivery_order->type, SUPPLIER_DELIVERY_ORDER_TYPE, "new_from purchase order with given type gives supplier delivery order";
46 is scalar @{ $supplier_delivery_order->items }, 0, "supplier delivery order ignores items";
47 is $supplier_delivery_order->vendor_id, $order1->vendor_id, "supplier delivery order keeps vendor";