From: Sven Schöling <s.schoeling@linet-services.de>
Date: Thu, 27 Oct 2011 15:01:56 +0000 (+0200)
Subject: Mehr als eine Lagertransaktion auf einmal testen.
X-Git-Tag: release-2.7.0beta1~189
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=4fcb6449e33f19651a26c71034598c836ecd1771;p=kivitendo-erp.git

Mehr als eine Lagertransaktion auf einmal testen.
---

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;