X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/28b68c381e3673cf2fe02e3ca9d43242699ad7cd..72ab222ccb9b4f968cda1f0ea49a4fb2d35e11ae:/t/wh/inventory.t

diff --git a/t/wh/inventory.t b/t/wh/inventory.t
index a10b9cf16..5b59c9202 100644
--- a/t/wh/inventory.t
+++ b/t/wh/inventory.t
@@ -1,4 +1,5 @@
 use strict;
+use Test::Deep qw(cmp_deeply ignore superhashof);
 use Test::More;
 use Test::Exception;
 
@@ -177,6 +178,37 @@ is(SL::Helper::Inventory::get_stock(part => $assembly1), "3.00000", 'produce wit
 is(SL::Helper::Inventory::get_stock(part => $part1), "2.00000", 'and consumes...');
 is(SL::Helper::Inventory::get_stock(part => $part2), "7.00000", '..the materials');
 
+# check comments and warehouses
+$::form->{l_comment}        = 'Y';
+$::form->{l_warehouse_from} = 'Y';
+$::form->{l_warehouse_to}   = 'Y';
+local $::instance_conf->data->{produce_assembly_same_warehouse} = 1;
+
+my @contents = WH->get_warehouse_journal(sort => 'date');
+
+cmp_deeply(\@contents,
+           [ ignore(), ignore(),
+              superhashof({
+                'comment'        => 'Used for assembly 6 Test Assembly',
+                'warehouse_from' => 'Warehouse'
+              }),
+              superhashof({
+                'comment'        => 'Used for assembly 6 Test Assembly',
+                'warehouse_from' => 'Warehouse'
+              }),
+              superhashof({
+                'part_type'    => 'assembly',
+                'warehouse_to' => 'Warehouse'
+              }),
+           ],
+          "Comments for assembly productions are ok"
+);
+
+
+
+
+
+
 # try to produce without allocations dies
 
 dies_ok(sub {