From 4fcb6449e33f19651a26c71034598c836ecd1771 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Thu, 27 Oct 2011 17:01:56 +0200 Subject: [PATCH] Mehr als eine Lagertransaktion auf einmal testen. --- t/wh/transfer.t | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) diff --git a/t/wh/transfer.t b/t/wh/transfer.t index 28327d94d..d519ac309 100644 --- a/t/wh/transfer.t +++ b/t/wh/transfer.t @@ -106,6 +106,31 @@ my $r5 = $report->(); is $r4->{qty}, $r5->{qty} - 6.2, 'full object transfer back'; +############################################# + +WH->transfer({ + transfer_type => SL::DB::Manager::TransferType->find_by(description => 'transfer'), + parts => $part, + src_bin => $bin2, + src_warehouse => $wh, + dst_bin => $bin1, + dst_warehouse => $wh, + qty => 1, +}, +{ + transfer_type => SL::DB::Manager::TransferType->find_by(description => 'transfer'), + parts => $part, + src_bin => $bin1, + src_warehouse => $wh, + dst_bin => $bin2, + dst_warehouse => $wh, + qty => 1, +}); + +my $r6 = $report->(); + +is $r5->{qty}, $r6->{qty}, 'back and forth in one transaction'; + done_testing; -- 2.20.1