X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/9d14fd7e7dc33f871b4a0841f85e8f0a347e9df0..4fcb6449e33f19651a26c71034598c836ecd1771:/t/wh/transfer.t

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;