+@customers = (new_customer(name => 'TestCustomer1', discount => 0)->save);
+@parts = (
+ new_part(description => 'TestPart1', ean => '')->save,
+ new_part(description => 'TestPart2', ean => '')->save,
+ new_part(description => 'TestPart3', ean => '')->save
+);
+@orders = (
+ create_sales_order(
+ save => 1,
+ customer => $customers[0],
+ ordnumber => '1234',
+ orderitems => [ create_order_item(part => $parts[0], qty => 3, sellprice => 70),
+ create_order_item(part => $parts[1], qty => 10, sellprice => 50),
+ create_order_item(part => $parts[2], qty => 8, sellprice => 80),
+ create_order_item(part => $parts[2], qty => 11, sellprice => 80)
+ ]
+ )
+);
+
+$file = \<<EOL;
+datatype;customer;ordnumber
+datatype;description;qty
+datatype
+DeliveryOrder;TestCustomer1;1234
+OrderItem;TestPart1;1
+OrderItem;TestPart2;10
+OrderItem;TestPart1;2
+OrderItem;TestPart3;7
+OrderItem;TestPart3;11
+OrderItem;TestPart3;1
+
+EOL
+
+ 1; # make emacs happy
+
+# should be:
+# delivery oder pos/qty <- order pos/qty
+# 1/1 <- 1/1
+# 2/10 <- 2/10
+# 3/2 <- 1/2
+# 4/7 <- 3/7
+# 5/11 <- 4/11
+# 6/1 <- 3/1
+
+$entries = do_import($file);
+$orders[0]->load; # reload order to get correct delivered status
+
+$entry = $entries->[1];
+$linked = $entry->{object}->linked_records(from => 'OrderItem');
+ok($linked->[0]->position == 1, 'with source order: mixed qtys and fill up: order position ok 1');
+
+$entry = $entries->[2];
+$linked = $entry->{object}->linked_records(from => 'OrderItem');
+ok($linked->[0]->position == 2, 'with source order: mixed qtys and fill up: order position ok 2');
+
+$entry = $entries->[3];
+$linked = $entry->{object}->linked_records(from => 'OrderItem');
+ok($linked->[0]->position == 1, 'with source order: mixed qtys and fill up: order position ok 3');
+
+$entry = $entries->[4];
+$linked = $entry->{object}->linked_records(from => 'OrderItem');
+ok($linked->[0]->position == 3, 'with source order: mixed qtys and fill up: order position ok 4');
+
+$entry = $entries->[5];
+$linked = $entry->{object}->linked_records(from => 'OrderItem');
+ok($linked->[0]->position == 4, 'with source order: mixed qtys and fill up: order position ok 5');
+
+$entry = $entries->[6];
+$linked = $entry->{object}->linked_records(from => 'OrderItem');
+ok($linked->[0]->position == 3, 'with source order: mixed qtys and fill up: order position ok 6');
+
+ok(!!$orders[0]->delivered, 'with source order: mixed qtys and fill up: order completely delivered');
+
+#####
+$entries = undef;