X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=t%2Fpart%2Fstock.t;h=39e5756654dfe33cdb812a30ad4f4697e6173fd6;hb=9dfd320ff258071e3ad78dd6cf2d76e215efd4f7;hp=583aefe4bbf5c83cfb840998f9806a9e8a9537ab;hpb=6ad5169eb4beaa7530626cde28c3cd63c23e74ee;p=kivitendo-erp.git diff --git a/t/part/stock.t b/t/part/stock.t index 583aefe4b..39e575665 100644 --- a/t/part/stock.t +++ b/t/part/stock.t @@ -6,20 +6,20 @@ use Support::TestSetup; use Carp; use Test::Exception; use SL::DB::Part; -use SL::Dev::Part; -use SL::Dev::Inventory; +use SL::Dev::Part qw(new_part); +use SL::Dev::Inventory qw(create_warehouse_and_bins set_stock transfer_stock); Support::TestSetup::login(); clear_up(); -my ($wh1, $bin1_1) = SL::Dev::Inventory::create_warehouse_and_bins( +my ($wh1, $bin1_1) = create_warehouse_and_bins( warehouse_description => 'Testlager', bin_description => 'Testlagerplatz', number_of_bins => 2, ); my $bin1_2 = $wh1->bins->[1]; -my ($wh2, $bin2_1) = SL::Dev::Inventory::create_warehouse_and_bins( +my ($wh2, $bin2_1) = create_warehouse_and_bins( warehouse_description => 'Testlager 2', bin_description => 'Testlagerplatz 2', number_of_bins => 2, @@ -28,18 +28,18 @@ my ($wh2, $bin2_1) = SL::Dev::Inventory::create_warehouse_and_bins( my $today = DateTime->today; my $yesterday = $today->clone->add(days => -1); -my $part = SL::Dev::Part::create_part->save; -SL::Dev::Inventory::set_stock(part => $part, bin_id => $bin1_1->id, qty => 7, shippingdate => $yesterday); -SL::Dev::Inventory::set_stock(part => $part, bin_id => $bin1_1->id, qty => 5); -SL::Dev::Inventory::set_stock(part => $part, bin_id => $bin1_1->id, abs_qty => 8); # apply -4 to get qty 8 in bin1_1 -SL::Dev::Inventory::set_stock(part => $part, bin_id => $bin1_2->id, qty => 9); - -SL::Dev::Inventory::set_stock(part => $part, bin_id => $bin2_1->id, abs_qty => 10); -SL::Dev::Inventory::transfer_stock(part => $part, - from_bin => $wh2->bins->[0], - to_bin => $wh2->bins->[1], - qty => 2, - ); +my $part = new_part()->save; +set_stock(part => $part, bin_id => $bin1_1->id, qty => 7, shippingdate => $yesterday); +set_stock(part => $part, bin_id => $bin1_1->id, qty => 5); +set_stock(part => $part, bin_id => $bin1_1->id, abs_qty => 8); # apply -4 to get qty 8 in bin1_1 +set_stock(part => $part, bin_id => $bin1_2->id, qty => 9); + +set_stock(part => $part, bin_id => $bin2_1->id, abs_qty => 10); +transfer_stock(part => $part, + from_bin => $wh2->bins->[0], + to_bin => $wh2->bins->[1], + qty => 2, + ); is( SL::DB::Manager::Part->get_all_count(), 1, "total number of parts created is 1"); is( $part->get_stock == 27 , 1 , "total stock of part is 27");